帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
- U' `# O3 R0 `9 d+ c Dim x As Double, Y As Double
Randomize
& ], d! N! L! k2 A3 K  
7 m( D" y# F  i$ P$ F1 E        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
5 u# }) a9 b. ^2 d- S( |         Y = SC.Run("runthis", x)
) d4 \- K7 p7 \% |9 |6 d         DoEvents
3 B9 L( m4 s8 a9 k9 {, ]          Picture1.PSet (x, Y), RGB(250, 0, 0)
7 t' A$ f" [! t4 b6 ?3 k9 n          Next x
End Sub</P>
0 m6 Y0 I8 `  e5 p! [<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

ealx0yJu

我看不错噢 谢谢楼主！

秋天的风儿

呵呵，看大家评论如何




/ r3 P, F: B( ]0 H# m2 b




1 K5 I( C  t# u+ Q& x
3 ]$ X/ @. c2 h
; l! P* O+ w1 P- g$ ^$ R8 r4 u
大家好,能交朋友嘛？ok0633.com

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
8 F6 w. A9 q2 f* Y% N, I4 ~% r2 s, }.CurrentY = Y
3 G0 d( v4 y5 z.ForeColor = RGB(0, 0, 255)
End With
$ a  {4 h' `" F" ^& l0 o$ [Picture1.Print Word
* n9 ?- C) n. Z8 D6 M1 }, i9 MEnd Function
! f- e: V5 N6 Z) y- R) k* k6 V$ a'定义画点函数
6 P/ H2 k* w% P9 D3 ?; `4 NPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
# U6 K9 W" V. k( B7 c& CSub XY() '建立直角坐标系
) e8 Q. T; g) o9 F4 w1 pPicture1.DrawWidth = 1 '设置线条宽度
1 u3 Q; @. u* R% _Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
' K" |: X! W# O8 f: FPicture1.Scale (-10, 10)-(10, -10)
' L1 I3 i" W/ f" b9 Y9 HPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
5 H5 l, c0 D+ R% y5 c/ }1 @- DPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
( [5 P) v& z) R6 Y) `- a0 u9 FPicture1.Print "X"
'画 X 轴
5 y3 U5 G" g- f* ?# SPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
8 p8 H: O2 {3 D6 c, LPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
. V  X  r& u) k4 APicture1.Print "Y"
" ]3 H/ c/ E0 b" h2 L  f'画 Y 轴
For lin = -9 To 9
/ I0 V; r! r4 L( dPicture1.Line (lin, 0)-(lin, 0.25)
( A& h9 X4 T$ m8 k5 @; j1 j9 Qwor = PrintWord(lin - 0.5, -0.5, Str(lin))
) t: N: B$ [9 E% O7 EPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
- Q, ~9 H0 a( l' dNext lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
3 ?( V. e7 R' B& _XY
8 H8 f9 o8 S" [$ f( f% N  B  c* \On Error Resume Next
Dim x As Double, Y As Double
Randomize
! M. A; ]  V+ m$ A+ v: K6 q  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
" W% y0 k* p- Q. L9 J       For x = -15 To 15 Step 0.001
2 F- J* ~( x* K         Y = SC.Run("runthis", x)
( o4 ]* ~! c# Z" [+ G/ ^         DoEvents
# w2 d7 j: X3 ]9 e7 ]+ h3 |; F. e          Picture1.PSet (x, Y), RGB(250, 0, 0)
5 [. q! X' Z0 |! U8 B: g7 Y          Next x
End Sub</P><>rivate Sub Command2_Click()
  S2 U/ |5 \3 v; H7 |XY
End Sub</P><>rivate Sub Command3_Click()
. G- u0 I! q- T8 V- R( tEnd
End Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
; u8 `% }9 e6 C9 j7 n' o- bMe.Show
1 j/ M$ _9 q  e& _Me.AutoRedraw = True
& i) ~: A9 k1 o3 u6 lXY
' w; g/ S9 M! @7 m% ~End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

USER001

把完整代码发上来