帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
! R, [- T: v, |, b/ jXY
On Error Resume Next
Dim x As Double, Y As Double
Randomize
+ s0 R: b, I, J" x. c: \; s# L9 J  
7 L! y) u$ a- _: n        SC.Reset
$ w% C4 @. J/ ]4 B8 o0 o: w1 ?        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
5 a) M) f' C! H( O       For x = -15 To 15 Step 0.001
' C% j) |# y3 u( ~1 z% B         Y = SC.Run("runthis", x)
9 |6 j& Q6 p! R, z8 I2 S! `         DoEvents
$ S, S% K/ |1 v9 e* ~! S( b  f, `          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
. W: t+ q5 Z1 r2 z$ C8 i  VEnd Sub</P>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
- U; L' I! X9 E, wWith Picture1
1 i. q) X+ \& p  g.CurrentX = x
3 G8 W5 [' h- {4 R9 j  Q/ M.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
: F" `+ z  F' B5 Z; v2 d7 bEnd With
Picture1.Print Word
7 a0 m+ M* A' J4 F/ }5 {End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
& i9 ~+ m& h  z! m, }" r% m9 m, ]8 wPicture1.PSet (Px, Py), Color
# ~( Y% a' Z2 E- I. IEnd Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
2 i! M$ U! B4 p" K3 P# E# g8 M% b+ YPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
6 [+ a- J# X. f& j1 S+ lPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
3 K: M4 d$ C' s. y. d# a( y5 HPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
' w  x$ `! j1 Y& T' l; l7 wPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
& A2 [" W9 f: q'画 X 轴
# v8 a& p% m1 R- ?0 r! DPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
0 c& ^2 k$ h0 ?5 gPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
1 }+ o. P0 |3 T1 Z' kwor = PrintWord(lin - 0.5, -0.5, Str(lin))
7 n3 v; R6 q& M) @2 J* t$ gPicture1.Line (0, lin)-(-0.25, lin)
$ z# b! f: D* @If lin &lt;&gt; 0 Then
$ z- g2 L$ a$ ~  s9 X% jwor = PrintWord(-0.9, lin, Str(lin))
End If
( E: F, J# v! w( I9 aNext lin
Picture1.DrawWidth = 1
End Sub
6 [$ D( k* T9 `% p0 ~- gPrivate Sub cmdPlot_Click()
XY
7 S* _. n$ E$ m  V- lOn Error Resume Next
+ H: T! I7 {% b3 V8 m Dim x As Double, Y As Double
5 w/ J: \  k/ t: j) h; x Randomize
* S1 S& X) r* O8 ]) z  
- g( g# a$ H  S' t! H4 S        SC.Reset
) W! R* n( O) B0 l! \1 G) s        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
: Y( C2 E0 ?- o6 p& e7 Y       For x = -15 To 15 Step 0.001
* p& F0 A% B+ |1 M) q* ?5 L% K         Y = SC.Run("runthis", x)
8 I9 f( a( d7 ]/ q* ]5 L, b         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
! r# F) N8 O+ u( R& H' ~! [4 K          Next x
. T0 E8 C8 L9 Y' dEnd Sub</P><>rivate Sub Command2_Click()
; b# e6 P$ [; |6 bXY
End Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
Private Sub Form_Load()
. B, b/ G6 d0 g) w3 [0 JMe.Caption = "美丽曲线——山东省商河一中路来民"
, s# h2 m# w9 R# {, |Me.Show
( W4 h+ _! q* UMe.AutoRedraw = True
XY
6 i/ W2 c. U* o5 hEnd Sub
8 K" s; I* G/ {" C5 E- M7 b7 m* C控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
' V+ Q& \  R# S$ r  p  e

% V9 @% K4 ^+ V! O% J  Q: R( y
# I& q3 @$ O) l0 p5 Q% ?# f8 V
5 w6 B0 ?+ y  j8 K' z! z1 n0 o
5 L# o8 V. @. l. X
/ ^5 k& c% D9 l. `% O

% S" [3 L% r) U/ h& ~1 q
0 a9 N3 B2 c. e2 R, S


6 Q4 g& }7 ^, p- A' E. \8 Y$ p大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！