帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
/ N# \4 n, q- A8 x  X: FXY
! V$ D! q" j) l! M. \9 B0 HOn Error Resume Next
! m! ]8 p9 }0 N Dim x As Double, Y As Double
9 j+ ^2 f1 I5 e Randomize
  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
! W! R! m7 f- }. i5 F1 A9 s       For x = -15 To 15 Step 0.001
" l- o9 l; Y1 k5 U         Y = SC.Run("runthis", x)
8 ^9 S; b7 @* a# U4 c$ Q         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
) C( {! L. T; m& _9 y% K          Next x
End Sub</P>
9 P# g! }+ n: R/ i5 X  k<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

ealx0yJu

我看不错噢 谢谢楼主！

秋天的风儿

呵呵，看大家评论如何

7 D/ F7 T8 c* a" V7 r; m; Z

: b" N7 F; {/ `. d

  v$ g* `" [7 P2 {

. [( T' F) G  p



, j8 y: X$ C2 ~0 ~8 f
大家好,能交朋友嘛？ok0633.com

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
! R9 r: f4 t7 n1 z.CurrentX = x
4 r5 J/ [; Z3 h.CurrentY = Y
$ C. }# X* S" W3 S. V.ForeColor = RGB(0, 0, 255)
End With
" g; R+ x1 C. e! P& \& gPicture1.Print Word
End Function
. X$ {7 F0 C5 M( U- Y2 R. l'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
( V. o+ u* {% XSub XY() '建立直角坐标系
: P/ `0 c& ^# Q6 H( p2 ]Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
+ I9 J7 Q7 I4 A+ i1 o# d'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
* v3 d4 e) [" _* Z! n% g- FPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
0 C2 m7 ]( Q+ ]Picture1.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 轴
- X  \7 h" \9 oFor lin = -9 To 9
2 d2 N  _2 f8 l- T) H* YPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
* T; \3 j4 |( D0 R) I8 a( F' O- A9 UPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
) A8 V& a# k# l6 q1 g$ OEnd If
6 E* ]# u+ @: z. Z% z  h& N: g% iNext lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
* c* T. l2 i0 w$ ~2 ?- bXY
& J4 h; s$ a: X' |! ~/ t# aOn Error Resume Next
* x% \. X/ u9 e% M& S1 _5 C Dim x As Double, Y As Double
Randomize
9 M# i0 L6 J( N+ u4 s, A  
- a3 t/ U- v7 d/ E- b# e        SC.Reset
+ ?3 I9 W4 l+ ^; P! M, ~) J' E( @        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
. K% y+ c+ R8 g7 A       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
1 Q/ l( V2 v. m; d' @         DoEvents
- c7 R, R7 I' e7 W6 f; d" j" G! n          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
4 B. |' o% e' @9 D" OEnd Sub</P><>rivate Sub Command2_Click()
% j) t3 {2 r* ~& WXY
End Sub</P><>rivate Sub Command3_Click()
3 Z" L2 R1 `8 G6 p' O. _. H" ?2 fEnd
End Sub</P><>
Private Sub Form_Load()
4 X8 B) |! o- h/ k* E1 Z5 _. nMe.Caption = "美丽曲线——山东省商河一中路来民"
% y! e7 v) _# S0 I7 m) ?Me.Show
2 ~: s6 F! n) _0 b* ~" i- uMe.AutoRedraw = True
XY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

USER001

把完整代码发上来