帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
$ I, a6 g# ~5 H+ UXY
  a' S, A: ^4 v& fOn Error Resume Next
: n. P4 y4 i; d( a: N# ]; m Dim x As Double, Y As Double
Randomize
  
        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
  i/ e: D8 e- `$ x6 S+ S! E6 g5 h         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
0 T. s& {$ O2 [- c/ O! Z. R<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
( a; B+ ^% u' Z* B; U( b9 f' oWith Picture1
, [1 E8 K4 f$ i4 T- r7 I.CurrentX = x
6 U( w) Z$ o- Z& F. M5 g, Z0 ^$ m.CurrentY = Y
# B  K  I  F( [8 I9 N9 o.ForeColor = RGB(0, 0, 255)
9 h% b- D" E1 o8 I" lEnd With
. B0 C3 N* y. _Picture1.Print Word
$ X3 w( Q5 O- G6 r; N  ?9 DEnd Function
% {& i$ f5 h) m. z5 S; `8 v'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
( o; b# |1 F) j0 [$ g, f; i) e5 d  QEnd Function
Sub XY() '建立直角坐标系
8 x3 M. N- _0 MPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
) u8 K4 M7 r2 R! l5 L'设定用户坐标系，坐标原点在Picture1中心
" @: ~4 Y" n6 rPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
- O- D- U. K0 H/ CPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
- f) z, r( ^; fPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
5 W' r* C) b- ~, v, h: b3 d" XPicture1.Print "X"
'画 X 轴
- q1 F- |$ ?% v3 L( cPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
, x, r7 j2 Q! q) H6 P/ ]1 DPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
! Z4 F" D% I$ E) t6 W, E1 V0 G4 OPicture1.Print "Y"
# q. O: P4 T3 U" P; `'画 Y 轴
/ Q$ r+ A: H1 x+ d9 `4 p/ ?$ BFor lin = -9 To 9
+ i' \. [1 P8 T$ n( v" e" R2 gPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
7 }$ e) N+ l2 Q9 e7 TPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
) b3 E( w) A! L7 J" ywor = PrintWord(-0.9, lin, Str(lin))
- ^2 h" |* K/ a' @' h/ U# O' vEnd If
( t* s, J% \6 U- y. sNext lin
' q. v  w+ x5 sPicture1.DrawWidth = 1
8 P3 K( f8 a+ _4 hEnd Sub
, a" s7 l3 a. Z& k, ?Private Sub cmdPlot_Click()
( U# V& Z5 ], ?. [: M) b4 |; `XY
, n5 o. k$ u: u8 x9 R0 W# kOn Error Resume Next
Dim x As Double, Y As Double
Randomize
  
$ x2 \1 p; l# U9 X; _$ q7 _        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
  a8 h+ ]& K5 _$ \) i8 D! d       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
, }) d0 B5 ]  {$ `         DoEvents
. M6 b; K8 y" U6 H- e* |5 f& D5 N          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
* `0 K# f- D8 J. x( jXY
. [9 @1 J+ R, |# W$ ], J# x# IEnd Sub</P><>rivate Sub Command3_Click()
- ]! x1 t% L' [9 z2 uEnd
! o$ k0 k* [4 Q% i# S9 r1 IEnd Sub</P><>
Private Sub Form_Load()
" B: M& ~: Q$ \9 e" w( ~7 E( @Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
& D+ U, i0 F& j) xMe.AutoRedraw = True
7 Q  G& F3 L/ k5 U3 M  Q+ hXY
. p+ B0 J7 H4 F0 @, xEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
+ q) e& B* V% D6 ~! |, y
: D; A% {! M2 f4 E) l; y, w
6 N3 W2 X7 A* g$ f) L9 V
9 y- {. e, X3 f7 n, w: M1 N
: m2 H* A$ |- P0 l  g4 ~
" J$ E6 m+ s. c* J- G& O

1 x- S( e7 ~& G' p- `



" X9 E* w2 i) F; b) Y
) ^& P' h; V, d: ]1 I6 U. N& H大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！