帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
: ^' l) B2 g: P' J* E& m, U% lOn Error Resume Next
! |% f0 ^1 A- c: A  y( B# L Dim x As Double, Y As Double
% d/ \6 X# @3 O7 T Randomize
& m% h3 p* H" L  Z( C  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
- E! J) K$ ^, [       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
; F) V" a9 e- R* n* _          Next x
9 v3 L' ^; a& l4 m* 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)
6 L6 V( Z3 }6 Q; lWith Picture1
2 ?7 Q9 I. O3 o3 `4 C.CurrentX = x
6 e( @$ {8 u. B: X: H4 Q.CurrentY = Y
4 X3 E& G9 i0 U. p$ n0 K.ForeColor = RGB(0, 0, 255)
1 r' ~, i* r% M. n5 LEnd With
$ V) l8 s  E  O4 }% o& lPicture1.Print Word
7 a; v  @+ m# fEnd Function
7 \( ?: P5 }# U  ~/ w+ y'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
( t+ N, s+ ?6 ~3 uSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
4 {3 S0 V8 b3 p0 |Picture1.Cls
8 a( Y4 _% j0 v. q5 U'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
: ]9 z8 l( F" M4 HPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
3 n' J. P. Q! V6 PPicture1.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)
Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
0 c6 w  c7 t; i4 xPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
5 z' ~1 @* [% o' m& S, aPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
& u# k# c6 M0 K$ `2 D& ~2 |7 ePicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
/ o7 Q5 e1 d* i9 w+ y- `9 n0 Y% [Picture1.Line (0, lin)-(-0.25, lin)
0 G+ M( F, T( o- D3 OIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
End Sub
/ z8 g! u* N* X7 YPrivate Sub cmdPlot_Click()
- T  I' i* \# A& c4 N) aXY
8 J! T! M: U1 G' @( NOn Error Resume Next
Dim x As Double, Y As Double
+ r3 `7 H: s* l2 w Randomize
: w% j( A, `4 c3 h  
  H, D! p3 t) k4 y$ d4 y# J: G        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
; w: F" g' {* a% r       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
& `1 |' D1 r7 V4 m          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
3 K8 g- ~& u& J7 ^. VEnd Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
XY
% d8 t/ s/ f. \# F8 FEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
0 ^2 f% s& ?: Y% q






' g& w+ [6 A* R0 H/ ]$ c! N! m

9 ?* j- U; s, y, ]  B3 I1 f

, f+ T$ m' W; E8 _& F- z/ v( Q/ K
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！