帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
* }# X+ N% k( W5 i3 \2 D( A6 S Dim x As Double, Y As Double
Randomize
* q/ C  x2 {% G3 Y6 ~  
        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
          Picture1.PSet (x, Y), RGB(250, 0, 0)
$ Z0 G( H; d+ V. n; l          Next x
0 P# j, f2 o( y* ~, ?0 l. {End Sub</P>
+ @: |- @9 g$ j<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
  M2 L1 ]* e: N2 O& C.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
4 O9 `+ ?6 g7 j# \- @8 K6 |4 G0 \: Q5 Z& KEnd With
Picture1.Print Word
5 {* `  _/ h3 d2 t0 W; j4 kEnd Function
4 c1 b0 d! Y5 ^'定义画点函数
% v% M$ ?/ i. u# M2 y, |Private Function DrawDot(Px, Py, Color)
" N5 M5 o$ \) V$ p  F8 _Picture1.PSet (Px, Py), Color
; D8 R) P* N3 o. L: `" G- Y4 M; kEnd Function
$ D* Q1 O+ o. t' R4 rSub XY() '建立直角坐标系
" h4 Q3 ?3 U; P: @7 H. B" VPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
5 F3 A% d( Q( u0 V$ h3 o+ {% b'设定用户坐标系，坐标原点在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)
8 B0 o5 n% ?6 cPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
. Y- c, G' T3 f% i# RPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
8 L+ Y( p7 F+ }& rPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
2 w# Y' n0 ]8 u: Z# x5 zPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
% F+ M+ W$ Q7 w: V3 nPicture1.Print "Y"
'画 Y 轴
+ B: K6 }! k: l- l; x$ EFor lin = -9 To 9
5 b# \8 h* s% B: T& j$ T% x* kPicture1.Line (lin, 0)-(lin, 0.25)
; |1 R) [9 ]5 {# m5 x  Lwor = PrintWord(lin - 0.5, -0.5, Str(lin))
- |2 E) o1 M) ?( U) WPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
; A; W3 j8 X4 u! F4 Y' H; ?  RPicture1.DrawWidth = 1
2 |2 q$ f3 d1 M3 b4 ]% u0 `$ @End Sub
7 K: f9 U. J( w8 F1 v/ G+ t) sPrivate Sub cmdPlot_Click()
; u: h7 [9 w: X& |% oXY
; C' }* }, [# z7 t0 J5 H, |7 NOn Error Resume Next
Dim x As Double, Y As Double
/ W8 x! y$ z; L Randomize
  
        SC.Reset
5 g0 {. b+ h) \" l4 F/ N1 T1 a9 e1 b        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
+ |6 a6 p( @8 p       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
( s# C- H5 A: F# h+ u1 C/ K         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
2 t& {) N4 g% m9 g9 Z5 h+ j          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
7 F0 Z! V8 Z, @' u0 v. I  XEnd Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
XY
2 A1 t/ `2 n. p( \  QEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
( J# B8 ]; w9 D+ Z6 T$ C
% V% E- f. F) n; X$ S4 ~






. z3 D. j( [" @+ Y+ e
/ g5 t- I6 ?( P9 E- Z
* l2 ~- p9 i% {1 z9 X0 t& m( c, l

大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！