帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
, k. \! K0 Z4 h3 R2 D" S( oXY
/ c: f9 F) W1 @. {On Error Resume Next
+ l* p  A, m" J) k2 m Dim x As Double, Y As Double
Randomize
) d1 G$ O1 z% I) Q$ F" P  
- R& H4 m& c* Z* m* T        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)
          Next x
. h0 w: n% ~7 S0 Z6 i- {End Sub</P>
' [+ k4 M! v9 x9 B  l! ^; q/ ]<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
& m' ~9 A* b& W, s6 U9 h2 nWith Picture1
.CurrentX = x
.CurrentY = Y
3 E0 H6 g- y$ N$ X+ F) w0 ^.ForeColor = RGB(0, 0, 255)
9 T4 {$ P( n+ l1 I0 W. tEnd With
Picture1.Print Word
End Function
2 t7 t# {* }: o, u; W'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
/ T& C; K4 Z& k+ UEnd Function
& }" U- t) G, @" u8 W6 W# t5 GSub XY() '建立直角坐标系
' v1 c# q* Q6 C* |  NPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
- U0 v1 h9 {) K) {1 x9 z+ s5 |. h( b'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
7 u* _/ X' I7 f& e; c. P4 aPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
. A+ Z" m  \' ^( _( j* m5 L4 pPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
) G+ b% R, r6 j+ s; N3 o$ u) _Picture1.Print "X"
: R5 e5 A* B2 ['画 X 轴
% b7 `+ i9 {! |% EPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
; I8 U6 `: k. [$ }' e$ _Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
0 h. }* j2 f# x% _6 o4 i+ v: v0 W'画 Y 轴
For lin = -9 To 9
- m& j7 @5 M3 Q, d2 c# qPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
' J( Q- x  |  O- b, uIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
9 b! k! p7 [, D/ n+ EEnd If
Next lin
0 {7 s/ z: K9 Q! P/ {& a: rPicture1.DrawWidth = 1
End Sub
; r4 N- k0 [# ]& e0 X7 u9 T& ~Private Sub cmdPlot_Click()
XY
On Error Resume Next
4 w: R0 I5 Y% m/ h) U3 ~6 Z6 b6 O Dim x As Double, Y As Double
  g8 |! }' @4 y1 r Randomize
% I8 q! D3 e& q1 ?* A  
        SC.Reset
5 f! x8 n% U2 j' K2 q        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
; U+ _0 A; j# n4 f" x6 M6 J. [; x$ B       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
/ F3 s2 h5 F. i; f         DoEvents
+ e: _9 ~% B# W) H/ H          Picture1.PSet (x, Y), RGB(250, 0, 0)
& W& |: R; @, D          Next x
End Sub</P><>rivate Sub Command2_Click()
6 T1 p: l- b  xXY
9 l, B: M4 b  b6 s* MEnd Sub</P><>rivate Sub Command3_Click()
; h; c* i, Z2 `/ ?End
# j' S3 E9 }7 x$ {0 H- OEnd Sub</P><>
/ ~7 {2 k% r- _+ m/ lPrivate Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
/ s% {0 [& W" @6 I( N, w  IMe.Show
/ `9 d" a: Y$ v  y" \Me.AutoRedraw = True
XY
2 i. A! k: w! _3 P' XEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
7 \, V. Z! q' M; v3 ^3 w
- C9 y8 t8 R5 n/ n, U! }
- G6 O, T% u$ g' n! C* M8 q
8 q- U' R9 j- |% P' y1 F
9 d* \* j; o4 ?: I+ y





4 X: r7 H) T, r7 G$ _% Q: R
& H) v0 L6 x5 H9 v: b
4 V! M8 m: D% l8 Z3 d4 l' }大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！