帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
8 X. g: m* W% U& p8 v6 I- J) f* \/ F Randomize
  z7 E! ~/ k! t3 k2 T& k  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
1 b/ V7 S: C3 r; M% |& s: W6 a       For x = -15 To 15 Step 0.001
2 G* J8 F3 y. u! z8 N# K1 w0 C         Y = SC.Run("runthis", x)
         DoEvents
; ?7 J1 V6 w3 z: I1 x" \; e: T          Picture1.PSet (x, Y), RGB(250, 0, 0)
8 x3 F, j+ d( P: J& B3 I+ M+ D6 b+ {          Next x
End Sub</P>
5 W6 k2 h+ f+ V. Q1 ]6 C5 z<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
" I  c0 I) d. F, Z/ B( Y" Y7 J/ ^7 _( r.CurrentY = Y
  m8 I; z* _: j.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
' d, [$ ~* f! C: B) [9 r" }4 v+ D- e3 XEnd Function
# o1 u5 s( F7 E. [- O: }7 R'定义画点函数
6 v  ~3 r' C( J  A+ {Private Function DrawDot(Px, Py, Color)
$ r7 O# S5 y( ^3 I. FPicture1.PSet (Px, Py), Color
# K7 Q) h" @$ r$ F1 S6 i% F) UEnd Function
Sub XY() '建立直角坐标系
# e; _& ]# C$ d# _% BPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
9 ~. [. L5 W8 S: |6 oPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
& U0 r9 u4 j: @! _( D# @  OPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
& O0 w6 g0 T! f' PPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
8 b% p% S) t' [! BPicture1.ForeColor = RGB(0, 0, 255)
$ l4 b8 R8 X! S3 k$ w% V0 X6 VPicture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
3 l$ _( w% U( \  w2 EPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
2 t: F9 b7 u' {5 t3 l! ~4 N% w9 b4 fFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
8 W5 f( W7 a3 @& l% [Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
, Z3 ^- w& E! @$ ~2 f8 o1 ?! |: L9 r! C2 cwor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
4 c# i2 X- B( h- e' cEnd Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
3 M, ~9 S, F  g3 L Dim x As Double, Y As Double
Randomize
" i  ?: T$ J2 \- q  
, p* ^5 P- D1 j6 @) _3 B        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
          Picture1.PSet (x, Y), RGB(250, 0, 0)
4 P) a; o2 e* ]. v          Next x
End Sub</P><>rivate Sub Command2_Click()
$ B0 i7 Q9 `2 ?, i. ]5 jXY
End Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
3 @( y# l3 o5 H" ePrivate Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
) K  J5 X# X" m: Z3 i6 GXY
* b+ h% S6 G: E- y0 oEnd Sub
. q! M2 n& }9 w4 P0 z* S控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
( }$ T! Z9 E$ T





+ E! }: ?1 z5 f. V* z3 a

0 \, i4 ~$ z! g7 w- \% A


  }4 F7 @4 |7 ^. v: @- }( A
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！