帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
+ N- L; V& G/ [, nOn Error Resume Next
Dim x As Double, Y As Double
. [2 U# C( n3 T) j  Q' x$ @, j Randomize
6 {$ @, y: @# O/ h6 \  
' V) `" z4 j' P% k, f) P6 W        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
( k# k& e% `* w9 w, y       For x = -15 To 15 Step 0.001
6 Q2 k, e1 N! {         Y = SC.Run("runthis", x)
         DoEvents
+ a1 Y( P3 j+ S% ?1 d- W  I5 I$ @          Picture1.PSet (x, Y), RGB(250, 0, 0)
0 ~7 L9 Z% ^* S; z8 _2 A- F          Next x
- e) b' w" K' g: P+ nEnd Sub</P>
, u) H/ w! W2 c6 J<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
' T: }- Y9 Q( H( O1 ZWith Picture1
.CurrentX = x
2 Y1 I( g& J7 `$ v) _.CurrentY = Y
) J' O- p$ t& y. \# C# T* N$ M.ForeColor = RGB(0, 0, 255)
End With
" d/ @& S) E6 z0 H3 lPicture1.Print Word
End Function
'定义画点函数
2 ~: }- I5 b% U( f! Z6 X) uPrivate Function DrawDot(Px, Py, Color)
- a* w' a9 m# f' j# `5 D3 mPicture1.PSet (Px, Py), Color
  L4 L: b& ^% M" \7 a4 AEnd Function
1 h: V9 Z5 A* t3 D3 G' l) HSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
" R9 G0 c: V& {" _7 l9 t& @7 GPicture1.Scale (-10, 10)-(10, -10)
8 m9 C8 e6 Z, `; d1 g9 CPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
* Y; a+ ^. A0 Z& XPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
2 Q/ T: j6 o6 G; X" [5 A6 LPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
$ v3 a1 H! i7 C3 k9 @0 pPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
6 f2 c) u6 ^7 r'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
" X" o6 U# p  H- d- cPicture1.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 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
) A3 j2 L+ d8 ?wor = PrintWord(lin - 0.5, -0.5, Str(lin))
: l) c; w7 b+ M9 Y# w& V/ wPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
  C1 ^: Q0 V, q1 q! f7 v- uwor = PrintWord(-0.9, lin, Str(lin))
End If
+ a1 g6 g5 S9 b% bNext lin
. t* S6 c8 Q: ^6 uPicture1.DrawWidth = 1
" f4 P$ j. S. i% G& }End Sub
* v% l6 `6 @( L3 a: g% i, YPrivate Sub cmdPlot_Click()
0 f6 q: i& v/ p! w# ?XY
9 S3 i3 P& M4 z2 }2 HOn Error Resume Next
9 [$ N& y3 D) p$ H- s  c3 @ Dim x As Double, Y As Double
; E, u3 [6 e2 I& A9 L4 I1 j& y5 S6 z Randomize
- C$ y' }8 y7 U  
; {% ^! G1 f' x+ h        SC.Reset
0 w! t8 m. v- ]/ Y# \( b$ m        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
! N0 w" @6 A( N5 {, U- K8 _3 B          Picture1.PSet (x, Y), RGB(250, 0, 0)
- K/ ?9 }( D8 A2 d, a          Next x
* g( e+ {8 a5 B+ pEnd Sub</P><>rivate Sub Command2_Click()
# Q/ @( {& p0 D! z- VXY
. I( A- ]& w/ q7 @* [End Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
( N% Z# E9 k" r6 g. j, m/ cPrivate Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
XY
End Sub
6 N! V" n& P9 b+ J2 e$ G+ U1 u' L控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

; e& h6 g8 D+ V  C5 N
0 u5 r, }; W9 K5 s6 I0 l
$ k" r. i: N, d
0 d* S. G% c5 f8 W& k( r
& ~* O8 ^! \  g+ X# R- i8 Z& Z

7 t* J: B2 W( J0 p
! E2 }: S7 g' h6 r+ ^$ t
( f/ c7 ~# d/ P8 i1 m4 m( }$ D! v
  g3 y  {* L4 \

' S8 f; n2 v& e" `大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！