帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
7 S! e) z  q. z& ?XY
2 ~+ ]7 ~% O' p& d5 E! dOn Error Resume Next
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"
2 F- \8 W& r6 t" Y6 ]* n9 T       For x = -15 To 15 Step 0.001
- R: m; n0 ~$ A         Y = SC.Run("runthis", x)
         DoEvents
" T% n3 K7 i; }( P) y- \          Picture1.PSet (x, Y), RGB(250, 0, 0)
9 O! y! ?  f$ o          Next x
) S: j3 j5 E0 _# o; n; y5 nEnd 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
.ForeColor = RGB(0, 0, 255)
- E: z' m% d, G; V* x, }0 e2 PEnd With
/ W9 p8 C1 [+ F8 IPicture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
: |$ a! s; I4 V" ~" FPicture1.PSet (Px, Py), Color
$ _- s# [: ?% v( w) V( uEnd Function
: U' r. h2 Z. W7 c" ~( U& q% [# `Sub XY() '建立直角坐标系
0 r, L# \9 C' ]Picture1.DrawWidth = 1 '设置线条宽度
! r+ ?4 e! L1 E9 a( j6 HPicture1.Cls
0 F0 v) o5 @$ {! P$ S/ O'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
% z$ m  a5 _% v' V6 v0 C# Q5 f* BPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
3 X% H, P2 {+ l0 ^6 L( MPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
* S5 Q: |7 u" tPicture1.Print "X"
3 ^& U* f- \# q3 b'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
7 E# `! z/ ?  ~. l) nPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
. j! U3 a9 v& i'画 Y 轴
For lin = -9 To 9
: g0 ~; [) ?  w5 m) v+ [- ~Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
/ _9 R1 y  u% jPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
( ^5 B4 R9 |* d# g( x$ y9 e. zEnd Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
  M. w$ W" R+ m6 z, J2 n9 _: v& T/ o Dim x As Double, Y As Double
Randomize
, M& E& j4 ?6 P$ M  
' j/ f2 R3 t$ ?; {; V        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)
, ^3 m4 b4 l( n6 _5 j         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
End
$ y7 @' \- G$ f! W+ e9 aEnd Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
) {2 c  Y5 }: u$ h' ]+ a3 N# uMe.Show
6 n" {6 D; Y2 c7 B0 O' iMe.AutoRedraw = True
XY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
) s* @8 j/ `' ?




# [; W2 u# e1 x8 A1 H, V3 ?  [
! [$ m) Y& F3 E# \4 o
" o( C+ {8 ]) t9 m. V; l# s0 c& w
. D3 j+ n, h% P! b

; E# F) f9 c( X4 I* R, h

* T% l5 |( ~. F5 m. X3 r大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！