帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
* h, u# p& w$ o* e( w: @ Dim x As Double, Y As Double
Randomize
# E4 J  L8 q7 P$ U$ }! R$ P& Y  
        SC.Reset
: {7 x$ a% E  ~  C, A! e        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
+ T# C4 c$ ^* Y( {% Q9 b* ?       For x = -15 To 15 Step 0.001
2 j: @% z9 j* ], `         Y = SC.Run("runthis", x)
0 I  S7 Y  b/ _2 P% o         DoEvents
+ R5 k" b' m# I5 V9 G: I          Picture1.PSet (x, Y), RGB(250, 0, 0)
3 a7 }* C$ k3 Q8 q          Next x
End Sub</P>
# T( f  a6 A) V/ t<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
8 p$ E' |0 ^5 ~6 Z6 Y.CurrentX = x
, I  i+ n. s1 S2 T; {% u/ j.CurrentY = Y
8 r9 {- g& w% P+ |/ M# ~: z.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
! G  ~; _+ \, }2 VEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
7 C: y2 V# [- v8 x( d, lPicture1.DrawWidth = 1 '设置线条宽度
" s- ~4 k7 `  t0 Y% ?0 b0 d9 ePicture1.Cls
& T# V# O& E( C2 e2 w2 l+ A/ w8 V1 ^'设定用户坐标系，坐标原点在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)
Picture1.ForeColor = RGB(0, 0, 255)
6 ?' w+ x3 {4 a3 O9 ]- b7 YPicture1.Print "X"
/ [$ ~  H$ C, R  ~% Y' Z; Y'画 X 轴
( M' N; E# |5 ?# Y# c4 @' ?  s2 APicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
1 z( `8 C1 ]( S8 _6 m- d! ^. yPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
6 S8 t1 X& n& L$ nPicture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
' B1 ?  `, q$ [& Z- \: k2 iPicture1.Line (lin, 0)-(lin, 0.25)
6 w# l; Q- h% b  mwor = PrintWord(lin - 0.5, -0.5, Str(lin))
) o1 P6 L+ F& c8 ^5 @Picture1.Line (0, lin)-(-0.25, lin)
1 U6 d( V: P8 ?& R- \/ RIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
+ [/ n, u( a: wEnd If
5 V: r# C' E$ @/ j5 N) t/ P7 CNext lin
1 r3 d' ^5 v# _& _" QPicture1.DrawWidth = 1
1 g" @2 N7 N: |# FEnd Sub
Private Sub cmdPlot_Click()
) M2 `$ g/ b7 A; OXY
) a5 e5 d; ]  Y; Z) T6 ROn Error Resume Next
Dim x As Double, Y As Double
1 X+ C: M' Z6 N Randomize
* i' j$ G# \" y9 L1 ?1 ?4 ^  
6 ^2 a6 C3 D7 r) T8 N# 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
         Y = SC.Run("runthis", x)
         DoEvents
% f/ j3 E& F5 K5 Q( M$ |          Picture1.PSet (x, Y), RGB(250, 0, 0)
+ Q6 Z: S- p: _  j9 q          Next x
5 v. T, R/ E9 I# ]" kEnd Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
1 w5 x0 V5 C, BMe.Show
6 d0 ^3 ~5 I/ z1 _Me.AutoRedraw = True
3 O$ h0 y+ q$ I2 GXY
7 B( }- p( Z4 x3 n& oEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

6 m& h' l+ b. y5 N" B

+ o6 w- p5 a  J6 i* t

1 |1 B: i1 _7 P8 q' p& o7 i
) J* X$ L6 ^2 {, q. r" y7 J9 \$ j* U




7 }4 \$ E7 N2 w& l
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！