帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
/ y: O4 X3 j* c7 c Dim x As Double, Y As Double
Randomize
  Y4 R' P5 o: F* Y, [! A5 P  O6 _  
% ~6 Y! A' p1 B% U9 }2 Q        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
9 f) C8 {. U8 N" g       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
% B) l+ ^0 \0 P4 n; G; ~          Next x
End Sub</P>
- p8 T( e* ^9 v: I* d<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
4 S  p, N% U& R1 B/ a.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
8 }6 _- f1 F# F" h$ @End Function
" D6 h8 b' E0 A, }'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
4 Y) ^/ y: d3 R% yEnd Function
Sub XY() '建立直角坐标系
: c( c0 g: {' L, j; PPicture1.DrawWidth = 1 '设置线条宽度
1 d+ ~9 g% W: M: g. h! z6 n8 MPicture1.Cls
" R6 s% @- T% p: t5 X/ a'设定用户坐标系，坐标原点在Picture1中心
& x9 y& f& O6 d' D" l0 |) S1 DPicture1.Scale (-10, 10)-(10, -10)
& o! m5 @! l6 X* ?: @Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
8 P, `: [* j! V1 o( X* CPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
. ?- t4 K  B* `6 d2 MPicture1.Print "X"
% G+ [& v& e! n, o4 V" \'画 X 轴
, T* u( u1 h1 a; G+ dPicture1.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)
- d" K! l6 O& A- WPicture1.Print "Y"
) O, g9 c: |& b'画 Y 轴
; _& v7 u+ t9 Z1 @For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
! u2 w7 e2 O* ]/ B- A( h. o* m& W6 nwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
/ L  G; U, Q! D6 Q" R. B. V3 UIf lin &lt;&gt; 0 Then
. Z4 e1 p4 \- y. K6 q" zwor = PrintWord(-0.9, lin, Str(lin))
, s  B8 |% @3 a  `End If
9 C  J1 K+ J3 s# INext lin
Picture1.DrawWidth = 1
5 L7 [) o8 q( X( v. ^' kEnd Sub
Private Sub cmdPlot_Click()
) E# B$ Q9 ~% a9 A( f- T! M" mXY
8 w! K4 A, M" o: ^- [On Error Resume Next
& m7 y) a7 {5 v1 \4 @ Dim x As Double, Y As Double
7 L( B3 c6 t, o8 t Randomize
  
: z- e8 C& Q+ ^1 p& m6 w' H        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
$ d3 ~& K* B* S. D% e6 v& o       For x = -15 To 15 Step 0.001
: B  M9 M4 ~. t9 X$ t8 N: i, v         Y = SC.Run("runthis", x)
' m: y1 |; e# S/ c7 Y5 d0 ^         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
! A) R9 j9 p' H4 x, f4 d6 J) a2 u          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
- G" e6 `  N/ U5 D. t$ |+ |End Sub</P><>rivate Sub Command3_Click()
- d3 C$ u2 y9 GEnd
End Sub</P><>
Private Sub Form_Load()
8 q# B3 o* ]+ n1 m# z6 j6 h7 QMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
" D9 x3 c$ Y9 |+ pMe.AutoRedraw = True
XY
( c8 L" G/ A* T) e$ u- m& LEnd Sub
# Y% ~! P+ Y7 |2 Y  w* \" S控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
! j, V1 i+ d9 }" N5 g( m



- D5 {2 h: C% M2 l0 D4 i
* ?3 |3 j7 Q1 A4 ~, J

! b# y0 T# Z/ g- F; A
# w. G8 c8 r9 [9 z' Q! |* S: i, p
: Z. e3 ^6 a: L. ^1 S+ F4 O


8 ]) K' D3 a" R7 y* I, z* R大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！