帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
0 s3 R0 f/ Y5 Z/ `! e8 [On Error Resume Next
Dim x As Double, Y As Double
! L. V; p' M& O& i Randomize
  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
) v! g( v, l, @9 Z& Q. B       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
6 G/ _" H0 s+ L4 H" Y         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
& C% n+ W6 d6 O# p/ A          Next x
End Sub</P>
<>为仕么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
.CurrentY = Y
% w  ]1 \9 C, g( b- |.ForeColor = RGB(0, 0, 255)
End With
$ c% X( b, ]  t( gPicture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
! o4 b& X" y% G5 \: gSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
0 {; x4 v7 ~/ u+ {Picture1.Cls
'设定用户坐标系，坐标原点在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)
) R( g1 P. R8 B9 I) c) qPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
4 N! i0 X9 B. i$ IPicture1.ForeColor = RGB(0, 0, 255)
7 Q! [. o0 Q/ B4 b" VPicture1.Print "X"
1 z  p+ C7 t: H' n" i) r'画 X 轴
  h7 r; X8 _- J; IPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
# z2 T  e. w' i  X, kPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
1 a9 [" L( q3 f  gPicture1.Print "Y"
& H! C# H& q) L* @2 \# ^3 `'画 Y 轴
9 s% l; `% A) CFor lin = -9 To 9
) e9 U* Z* y) PPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
/ `, ~5 o8 O* s+ }If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
, V" K0 `2 O1 P  GNext lin
9 j: i9 {  d( pPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
# j6 R* I$ b. o. S' ~XY
* F9 J% }; O1 {5 M7 KOn Error Resume Next
4 D# J* q# e' C5 {) b Dim x As Double, Y As Double
5 W2 a; `% g1 ?+ I7 k2 [" n6 }& h# a Randomize
  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
3 q! {  l3 }/ o       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
4 Z5 Z. G6 g- j! N4 ^          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
9 A' J2 E. o, E1 rEnd Sub</P><>rivate Sub Command2_Click()
XY
+ V5 e; L( \! d3 Y+ zEnd Sub</P><>rivate Sub Command3_Click()
1 l( o* h3 ]1 P4 C+ BEnd
End Sub</P><>
  k' a( f( k. Q& t  ]" Z" X7 kPrivate Sub Form_Load()
% ^7 a" r$ X0 O$ A( `1 a' q( J  tMe.Caption = "美丽曲线——山东省商河一中路来民"
6 u$ o: B" w  dMe.Show
. z" u4 p$ ^/ j6 mMe.AutoRedraw = True
XY
/ _1 k5 {7 v, }! |" S6 |7 tEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

# w2 I$ {# x- ?7 ]( d7 s

/ U9 g3 s; N2 r2 ^5 |
7 C" \1 I5 U: u2 g8 u8 w; m, }
4 R; O" I: }" s1 i# }
. ~5 F, W/ p9 E$ n' l1 O$ j
: F7 U  A3 Z# \7 j0 @  b! Z$ J- @
/ K, p/ E3 W2 Z5 o' n) U1 q1 {

; R8 E4 |: G' t* x0 p

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

ealx0yJu

我看不错噢 谢谢楼主！