帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
0 N/ S- L% `; ~ Dim x As Double, Y As Double
; L: w. v  t% e- c) l- Z( j Randomize
" O/ @; B5 r) L& }  
        SC.Reset
; ]! A7 `+ u) s2 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
5 a- z( R: |# f* C& h         Y = SC.Run("runthis", x)
         DoEvents
: k2 f! k% S% g* P          Picture1.PSet (x, Y), RGB(250, 0, 0)
6 h, h9 P: O$ ]/ @' K6 ~! z9 J          Next x
End Sub</P>
0 b1 n" e8 m7 U4 s% K: _/ ^9 T% s<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
2 m; ~. a% \' {$ [& |, t.CurrentX = x
, X4 |5 S0 `6 N4 @8 Q.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
2 C9 @9 X9 T( l$ h& kEnd With
2 N) M7 i- K$ bPicture1.Print Word
8 O5 U" d$ q$ n: D& [5 l) |End Function
4 ^" i6 U' z+ I. @0 N; p'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
, U- y7 ?, D  N* u) XEnd Function
0 }* n' k- t, |" n, t# T$ b2 s4 a( N; @6 @Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
  `- B& ]; ?3 oPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
# o# [+ @, L  u; o& p  nPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
8 \' {1 J) Q2 C% a! a" P'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
: a$ b$ H+ }; Y9 nPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
) x$ W# B! x) Z) ~# D" o6 T; F$ MPicture1.Print "Y"
'画 Y 轴
* l7 Q: ?+ Q! f# IFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
5 \  }" m+ ^+ p) X2 G- hwor = PrintWord(lin - 0.5, -0.5, Str(lin))
% c; b" g/ m; x) L7 W: U0 zPicture1.Line (0, lin)-(-0.25, lin)
8 m+ |' j; w( [9 Y5 lIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
5 C& p9 G# g6 W5 s" W3 A$ `" r2 j( iPicture1.DrawWidth = 1
- d; c" U. Q4 d* EEnd Sub
) W1 p* d+ [8 H. _  ?$ G4 TPrivate Sub cmdPlot_Click()
XY
9 T2 _; F6 z1 |7 POn Error Resume Next
Dim x As Double, Y As Double
: D( y: b- F/ _1 V5 Q0 r0 r Randomize
" W. R8 k, N+ w7 C+ E" |  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
7 f4 d- q% [- n" a' S% @       For x = -15 To 15 Step 0.001
. y' v3 w/ v' d2 ?1 v3 k5 E         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
2 b) v/ B# h- W6 PEnd Sub</P><>rivate Sub Command2_Click()
" O  c: p& T8 q) B& w0 ~XY
' Y# z- Z$ L9 w8 W9 e' k! l: nEnd Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
Private Sub Form_Load()
. W9 R1 I, @" JMe.Caption = "美丽曲线——山东省商河一中路来民"
/ x8 F: Z% G" h$ q/ q; AMe.Show
Me.AutoRedraw = True
% L$ s% R; z  aXY
: Z+ \- ]+ h& ^' i: c! MEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
! P3 H6 ?& G" t" v

* \. z6 e3 v1 r. r- Q0 k
/ s/ }, [! @& g9 f
7 h7 z7 p: U( l6 y! V. S2 m
4 V. M. e7 e; q; D. ^4 \
1 j3 `9 F8 P& w7 J% e8 `( N
; O& T" u) }3 Z/ O5 H4 l3 z  C
- E! }; P2 \; f
6 @0 w' Y4 k) a9 D/ `
, z5 F8 R2 @3 v- f  g

6 M. M" X$ Q1 d# Z, x; {大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！