帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
1 q3 r7 I# b% ]4 qXY
* a" G  q* {$ R6 _! @% H' d* AOn Error Resume Next
$ R7 m! u* O' P+ E( s* r/ R- {' w Dim x As Double, Y As Double
Randomize
/ t, Y+ T% d$ |  `5 n  
        SC.Reset
  H) N9 L: K/ W) V$ H        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
End Sub</P>
" S9 \- a" [* k& X$ I<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
( L& d8 }: e3 I  i, ^2 @With Picture1
.CurrentX = x
.CurrentY = Y
2 l5 x) s7 ]- B.ForeColor = RGB(0, 0, 255)
End With
' f- N1 M$ l. \0 i2 ^9 hPicture1.Print Word
End Function
$ C( k5 P  X) F'定义画点函数
, a8 C; T0 M# NPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
( w" M# a0 J3 A'设定用户坐标系，坐标原点在Picture1中心
& w) F; M2 `# U/ j: @0 _8 H5 zPicture1.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)
2 \2 d) S& ~+ _2 VPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
6 P6 ]5 R- B& ?& }! XPicture1.Print "X"
$ @& a" O+ \3 w( O'画 X 轴
  f# U: Z9 D8 m& }- [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)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
0 J7 h# f$ e4 I! R; i( ePicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
3 b' l, _* D# F% ]4 Y  N1 xPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
3 x; D' j- X' K0 ]- C% H* e' g! N5 cwor = PrintWord(-0.9, lin, Str(lin))
: }. Q% r* g4 ^! C8 pEnd If
2 K2 D' _' |! ]  @Next lin
5 F# r2 f: O$ m% v" k* V/ u% \Picture1.DrawWidth = 1
2 r' a1 w. d' l7 {& A  t& QEnd Sub
1 U/ u# ^8 {+ `5 r# a6 VPrivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
3 U9 ^& ^5 E: v4 `# M4 H* L' v4 K& N Randomize
9 j3 s- q) S7 K+ u' `# X  
        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
) k, V* @* K, [4 L$ V0 b         Y = SC.Run("runthis", x)
( F) g; k" d" X% O) `         DoEvents
( a6 U  ?) b8 M4 D8 q          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
End
- `' y2 O: v1 Z8 IEnd Sub</P><>
Private Sub Form_Load()
" ^5 x. T5 `$ Y5 ~$ a+ p2 l* hMe.Caption = "美丽曲线——山东省商河一中路来民"
$ {9 t: _( o  G* c2 uMe.Show
Me.AutoRedraw = True
5 E! G$ b2 i: o0 o2 Q2 g" sXY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
/ ^" W, z* m5 a+ d8 u+ x" u- e
, y4 I7 G. L6 f& c  r# T

1 J9 S1 n9 @9 ~$ z/ n7 A
2 B! a. R% P1 S8 E7 `
8 Y. X1 a2 @/ `3 b' n  U7 ^1 o






) R5 j+ s) m* V1 E* V大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！