帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
5 t5 C8 a3 b/ O6 d/ M# C5 AXY
On Error Resume Next
Dim x As Double, Y As Double
& ~0 ]& B! {4 X0 s! _; U" {0 }6 j Randomize
2 U% A$ X% d, s: @" U  
8 A* ?; |0 n: S; A2 N9 A# s/ ~  @  _        SC.Reset
5 E, p. E& f3 D5 ^$ @% r/ _        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
; v9 N* {8 {" v, x/ c* h5 Q          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
8 ?4 y! c8 U6 b6 J4 R0 J5 x$ {<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
4 h/ U2 `$ Q- `. m+ ?! _7 {; QWith Picture1
.CurrentX = x
' W' q( m$ c4 w% u* d.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function
'定义画点函数
9 g. C& T8 R' R4 r& |6 b4 [6 P" V# [$ wPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
' o5 _& g1 n9 Q0 H' R6 Z8 e# iSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
& Z) Z% y9 J7 c) t$ R  y& g# T'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
' R8 [3 y: F* |+ r) l5 PPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
5 }* V$ H4 y7 j3 B: S8 ~- CPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
- W! Y+ G+ ^. ^$ t'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
, w. @" M/ C( P) ^Picture1.Print "Y"
'画 Y 轴
) M2 ]) b0 Y+ f7 Q! dFor lin = -9 To 9
( J: B. ]' Z- g* E! b. LPicture1.Line (lin, 0)-(lin, 0.25)
4 c) G$ _! g* @# K8 }. H/ U1 n" Zwor = PrintWord(lin - 0.5, -0.5, Str(lin))
3 |9 e; [0 N' A/ C, \Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
6 v& v6 j5 q6 _End If
* B! Z- t2 T, ^* A* p1 S! ~Next lin
  J& n* K( n: cPicture1.DrawWidth = 1
( f7 n9 Y  J' F4 l( |# ?End Sub
7 D9 \" C; z( i9 M; gPrivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
Randomize
  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
& G3 I" L# }! K* \! m% B# X          Picture1.PSet (x, Y), RGB(250, 0, 0)
& M$ o( ]5 a0 N          Next x
) j) `8 L& w) _+ R" s3 z% KEnd Sub</P><>rivate Sub Command2_Click()
! R. q  n$ f0 ]9 E: U  m- d( DXY
* V3 A7 {3 @5 Y- MEnd Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
$ M% L/ W  S0 S. {' W+ DMe.Show
Me.AutoRedraw = True
# k* T5 f3 A  k% PXY
End Sub
5 p& O/ M3 S5 d) D, g! A控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
' s3 w% J* l+ x0 h3 P
! b# s4 }' e- i/ D


2 T1 K  q1 Y, p" @
; t/ j) r8 @" Y/ N# l


4 |/ U0 U. r7 T0 M3 o) j( C. O



: x- U1 Z! q- S9 i2 }5 j大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！