帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
: P5 N& N! B& A6 N3 n7 b$ fOn Error Resume Next
7 m) p. e+ O4 p: \; Q1 l! M* O3 g Dim x As Double, Y As Double
. ?% C8 d" t+ `. q! h7 P$ d' k- h( ] Randomize
  
        SC.Reset
4 m+ p# M% D% p$ [% i8 M        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)
, x: C, T5 @+ H( s; ]         DoEvents
4 M$ K& @' g" n5 ?! B          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
<>为仕么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
) y0 F) o5 U* D& d+ F" e1 ^) D& E! V.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
# M; B, L7 R0 C9 J6 L) m0 JPicture1.Print Word
End Function
" |! D8 ^2 y. `'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
# f9 o% t) X- K1 rEnd Function
" ]: j: O6 y* {% ^( KSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
3 Z; E! M* Z  j* R'设定用户坐标系，坐标原点在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)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
' V  t) S+ z- UPicture1.ForeColor = RGB(0, 0, 255)
! v0 a2 Q* u. J3 c% \: a. P8 ]Picture1.Print "X"
$ \" J2 s$ \5 @5 q'画 X 轴
2 j( V- [) X+ q/ e( h1 D: x+ pPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
& u4 g3 F& Q( S' {Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
: g: D* [; _' @1 A5 uPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
6 i* v8 a; n* I'画 Y 轴
& G) j( \& L  q& u- WFor lin = -9 To 9
/ G, k& ]; @3 U/ {Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
4 X, |3 R! n4 GEnd If
" n* m' ^8 g) F- h3 p$ A# ^Next lin
Picture1.DrawWidth = 1
: u+ R2 ]( g* V. w5 WEnd Sub
$ v/ R/ e: a. m. I5 h5 y8 uPrivate Sub cmdPlot_Click()
XY
& S4 n& K8 \: j! N5 ?4 o; U) ^( xOn Error Resume Next
) z" h6 E' t' ]: r! S4 O, k Dim x As Double, Y As Double
  ^* k0 a3 ]* }3 X  G Randomize
  
* ~% I, L. y  z1 K        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
- x! ]- j1 w7 F+ i. X$ H6 \       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
. R; V* }0 s; F- M. ^          Next x
End Sub</P><>rivate Sub Command2_Click()
/ d7 N( r. o# g# u7 \XY
End Sub</P><>rivate Sub Command3_Click()
7 P9 M4 j' x6 n: w, v; OEnd
( B$ \4 l1 d0 H; m  }/ j' N& q5 `End Sub</P><>
4 `' R3 D4 I; E2 Z) x1 T" M% XPrivate Sub Form_Load()
) R' D3 s3 ^# g) O7 e/ m* SMe.Caption = "美丽曲线——山东省商河一中路来民"
$ _) J& @0 Z6 h) qMe.Show
; T# B7 l0 q/ t! J6 _6 ^6 CMe.AutoRedraw = True
2 K) m+ M. C) R1 m) F2 uXY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

2 K: S2 K9 X! p% N3 B



5 s2 J) W, G+ @6 l; `% X
& P/ r7 {6 Y- K% [- I




3 v2 u7 P2 [+ c; h+ z
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！