帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
# t: }$ X& s1 _6 _1 iXY
3 w: l6 ?! E( J* f% LOn Error Resume Next
4 a- p" S/ O- e" h/ N! ~ Dim x As Double, Y As Double
& w) d5 E# X4 V Randomize
  
9 ]  h7 m7 t8 e& S1 P1 p7 K& \0 C6 n        SC.Reset
8 |$ E0 M: M# C2 g# ]' }8 g        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
8 `3 c% [/ ~: x7 O8 l% h7 ^       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
3 \% R- y3 E' C1 n! B1 Q         DoEvents
) ?5 M" n' B! q6 n. f          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
3 ^$ v1 s5 Z+ t4 ^, z% pEnd 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
6 x7 M* g& c4 Y6 S.CurrentX = x
.CurrentY = Y
4 Y: {& K$ `% \2 E+ G/ b.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function
1 {/ Y+ K& `( M  @/ ^1 V6 e'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
/ n' L4 f, Z! T+ A/ Y5 FSub XY() '建立直角坐标系
! \- U! V, w7 ~, APicture1.DrawWidth = 1 '设置线条宽度
, y+ g6 X  M: F! N$ G/ }; lPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
& g5 G3 _, M9 q2 Z9 `# N2 U( WPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
: e& ~2 D3 V, Z) {8 q0 |9 C+ F  ?Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
2 ?" ]- i( R% p: R  F" L* p# ?! C5 bPicture1.ForeColor = RGB(0, 0, 255)
. y' s, d0 J1 M  yPicture1.Print "X"
'画 X 轴
# h" K' ^, a' K: A# {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"
' g2 r. c' z, [& G'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
8 ]* e: H0 v. x8 U7 I! Ewor = PrintWord(lin - 0.5, -0.5, Str(lin))
9 i( r% s! Q  b$ W- _Picture1.Line (0, lin)-(-0.25, lin)
' u0 {0 p' t9 ]3 Z! J' u7 TIf lin &lt;&gt; 0 Then
& Y) l& Y! d* s( ~# Z- g7 Kwor = PrintWord(-0.9, lin, Str(lin))
" G8 r. U' Q1 r; C4 kEnd If
. b- \7 u0 ~) F- B7 S3 i3 ^( {Next lin
6 T+ |1 h' |9 aPicture1.DrawWidth = 1
, l& w$ I  k: D9 p$ fEnd Sub
1 }! r2 a5 Y5 ?* ]0 u* o6 ^* IPrivate Sub cmdPlot_Click()
XY
! \+ x. M0 N$ o* x4 \* tOn Error Resume Next
Dim x As Double, Y As Double
Randomize
  
# T$ G' Z& t. x, V7 A; m        SC.Reset
% \% G7 j1 A$ A8 B) `. e$ ~/ U        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
6 ^& ?( Y) \9 J7 ]: i0 w/ y1 i% T       For x = -15 To 15 Step 0.001
9 m1 e, u! b  ]* Q         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
9 r7 V( X3 J8 d0 n          Next x
# H( H  o9 A( TEnd Sub</P><>rivate Sub Command2_Click()
2 w8 N. g' D, [XY
End Sub</P><>rivate Sub Command3_Click()
$ ^$ f5 ~7 G4 C3 i1 Q# A7 w2 L( OEnd
9 {5 r$ m; s1 _% c0 NEnd Sub</P><>
; f# O9 B' b$ [/ bPrivate Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
9 m5 m' M' t. T2 ~4 C1 XMe.AutoRedraw = True
XY
& U- \7 D& `8 n9 s* j( QEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
. N; f4 G/ h3 M5 W5 q



9 t. u1 y$ i( L8 e# ~$ V  K

( b) j" i/ k7 {- A
3 H6 y: `! s. Y  n0 `) }% R

/ s2 H1 F. A) u7 _* k: l( z. m

, Z" H! L6 G+ `" n
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！