帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
7 h2 o; o6 a2 s5 B/ e; |XY
8 M* m9 [( W0 ~* xOn Error Resume Next
& v/ D2 ^0 A: j; c8 o  ]1 N* ` Dim x As Double, Y As Double
Randomize
  
        SC.Reset
6 I  F2 M! K% K' T. |$ y8 y  I' E        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
6 ~: W1 X: _" B7 n* q; {! c! AEnd Sub</P>
, v8 g  E/ Y$ P9 O. g<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
- E( `8 e0 d7 D+ ^With Picture1
4 T- j* t7 n( P5 `$ B9 S0 v.CurrentX = x
: V& j# c% ~3 I6 {.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function
. [- B3 O, _# C. z- P3 G9 }'定义画点函数
Private Function DrawDot(Px, Py, Color)
! w6 a0 S& q; nPicture1.PSet (Px, Py), Color
8 u# z# A6 E0 ^End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
0 k! }* \' J- {; ?2 _' |% rPicture1.Scale (-10, 10)-(10, -10)
. G- {: N$ `- C) Q* X2 l- tPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
  ^6 \9 e; K  G  C0 N, kPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
) {; |$ P0 b9 h/ xPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
" D; ^, c& Y" a, |' lPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
( X% {* t! P2 a4 c5 k! DPicture1.Line (lin, 0)-(lin, 0.25)
  m4 O' t) m  o4 v5 jwor = PrintWord(lin - 0.5, -0.5, Str(lin))
, Q. @6 D. j+ e/ ZPicture1.Line (0, lin)-(-0.25, lin)
( K2 x* r* \' y+ x! n; [( SIf lin &lt;&gt; 0 Then
# d; [" R$ C8 N  qwor = PrintWord(-0.9, lin, Str(lin))
3 M# C3 v: E; L& A" s; LEnd If
3 k: Y& k; f8 A# G6 P1 S8 q) U5 TNext lin
+ `, [) B" P5 S& w: {. oPicture1.DrawWidth = 1
End Sub
# A) p! h' ^( }, {Private Sub cmdPlot_Click()
7 n6 R! Q; I3 g6 W: w( _6 EXY
; ~  k  s7 m6 M; n, w1 B3 t: v5 j" @On Error Resume Next
; k& D4 h" X$ a0 A8 m3 E& f* a Dim x As Double, Y As Double
: V* X# ^9 a- \6 O9 E0 a Randomize
  
4 J% l* {& r# h1 e% l9 {9 @1 c        SC.Reset
+ L3 o; k9 a6 k2 d! U        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
2 l; r. E- c: T* O& u       For x = -15 To 15 Step 0.001
, v$ D0 S  V3 H% ^         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
0 h+ L% P" J" N; U3 e; l9 E" U) E2 Q! AEnd Sub</P><>rivate Sub Command3_Click()
* T+ ]6 x  W1 M! tEnd
End Sub</P><>
" V% e( k- J# H2 Y  |Private Sub Form_Load()
- O: @0 t- ^, l% u+ {2 e7 }4 cMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
! A8 |  x5 L" j/ O/ uXY
5 G* [, R; o& z/ H+ ]End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
' d4 l5 ?. S' Q0 n  }. q) p

; [$ g0 c! u: s! j: z: [




2 l  S) x# u# L: j+ R, W, z2 `% \


& }$ q7 r8 U# I% L0 u3 w
9 ~8 m7 k" e4 K3 P: B
4 @: C; }8 B  \+ I& d" x大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！