帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
Randomize
3 u) n' b# d# O2 H2 r  
4 f; S, q+ g- B# t$ ?/ \4 b        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
( e; D6 H; M; ~; p* h2 a9 ~       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
0 j" v1 `2 S  [  M         DoEvents
8 ^5 W) d' ?$ F, \9 t/ v6 }  }          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
: ?  G: J2 O' Z! V1 m# S  h! c2 x0 J9 PEnd Sub</P>
9 }* h" x9 M. Q$ R( |- 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
.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
1 k% v9 s$ K& `; u, kEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
$ x6 z7 ]- J+ V' V) \% d8 \- FPicture1.PSet (Px, Py), Color
End Function
6 `( H+ S+ L5 J9 ]# ~4 |4 ~Sub XY() '建立直角坐标系
; A& T- d4 g& k; q5 iPicture1.DrawWidth = 1 '设置线条宽度
3 ~# f! d* {# @. R) ePicture1.Cls
'设定用户坐标系，坐标原点在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)
$ h% z; n8 l+ S9 a2 E. i. Z' @9 ~Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
( j+ u# U+ F8 V. R; MPicture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
6 t1 z- \2 m5 `7 e. Q4 o- Z' m7 qPicture1.Print "Y"
'画 Y 轴
2 y# `0 R4 Q# h  i0 vFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
# l5 N; @" F- X3 `, z/ @Picture1.Line (0, lin)-(-0.25, lin)
/ Y9 D6 E! U) n: _If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
0 ?2 ^6 T1 q( d' f1 ]* gEnd If
Next lin
, c6 Z: U7 O4 t0 R1 p. q  LPicture1.DrawWidth = 1
) `- |$ x2 Y# n9 h9 k; DEnd Sub
Private Sub cmdPlot_Click()
: ~: A1 r# e3 bXY
( u8 ?2 Q' h& p* COn Error Resume Next
Dim x As Double, Y As Double
9 g! r2 K* T3 s  c( N# x; y, ^ Randomize
  
3 X+ w; L! S) [7 Z$ X; o, y        SC.Reset
/ k& ~5 C7 l# Y" A% X8 L5 v        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
; x6 y# h8 b; d7 ^! q- ~" t         Y = SC.Run("runthis", x)
* w- Z5 {2 K! k# H         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
) [! i( o4 E* w: r3 n( oEnd Sub</P><>rivate Sub Command2_Click()
$ T6 t: P! y/ e2 L: |XY
( I" g  L) x: e. bEnd Sub</P><>rivate Sub Command3_Click()
+ B' [. S  X" f4 z, f; y" m) W. DEnd
End Sub</P><>
! x. M4 {& x, H! K$ g7 yPrivate Sub Form_Load()
: |  r0 G8 U  c$ F) y3 }4 T: `1 LMe.Caption = "美丽曲线——山东省商河一中路来民"
# }4 C& Q# A' J# O* A. x4 g0 n# z/ EMe.Show
# u+ \% y) Z8 g, D* u) N  S. U4 bMe.AutoRedraw = True
XY
' w; m6 n3 z) ^- x1 ^End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

8 ~, X; ]0 L' H( I
  p2 P! y* Y( [# _; d& u
7 o8 @& D: _& G+ h( {

) g9 z8 J9 Y5 _. i" T
. U* p' Y8 ]; z* \+ g" n
( q' F; u  `, U; W) B& t, z( `$ H5 d
6 D" T7 z1 R% n9 t
. J; c# l- M( A0 y3 g
$ b' t  t4 P* f6 L* q" Q- ~( X
/ q) g: h! k$ o4 d
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！