帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
* X' Q. a6 P+ D3 y  fOn Error Resume Next
. }2 s  ~: H# g% \% B! w  C0 h1 c 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
5 _% \3 k$ E5 x, ~$ r, M$ g) C0 i         Y = SC.Run("runthis", x)
         DoEvents
. j' K5 G& Y' w! _9 e9 [$ ^          Picture1.PSet (x, Y), RGB(250, 0, 0)
6 Z/ y- m' L! ^          Next x
End Sub</P>
3 M% l3 s/ W, y<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
) [$ G/ b4 w6 Z) g# `.CurrentX = x
! V) d7 T; u4 [9 q5 [2 g. \, ~.CurrentY = Y
: n6 t" h; s$ S8 a. I.ForeColor = RGB(0, 0, 255)
- o( S1 f9 C8 K" {4 [+ g# b% AEnd With
: m4 b+ r; ?7 l9 x4 C4 d, s8 rPicture1.Print Word
- `# k9 W$ }: g+ \  n5 REnd Function
) `4 h' ]0 Z7 `'定义画点函数
Private Function DrawDot(Px, Py, Color)
. C+ I! o. L% zPicture1.PSet (Px, Py), Color
End Function
/ v3 O! Q/ m8 j& q8 XSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
) _% u6 a, A! z# Y! T9 qPicture1.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)
$ m( C3 O! u# V+ dPicture1.Print "X"
$ Y+ o0 l4 x( a, ~" b! b7 V'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
  z6 A2 G# c7 I4 f# a& xFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
# q1 X. z! P8 h+ zIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
/ K0 v% Z$ P# O- N Randomize
, t4 S% H7 S9 @- M  
! d$ _+ O) n+ U        SC.Reset
* J! z5 S/ k% k2 f( W        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
. v$ z+ b4 |. i9 H6 |; C/ t* X         Y = SC.Run("runthis", x)
         DoEvents
5 g1 D2 G2 c, i' I* G2 Q          Picture1.PSet (x, Y), RGB(250, 0, 0)
' B, _$ `" x) H. J; z1 [          Next x
1 W' Z8 l& E7 }# q) e& LEnd Sub</P><>rivate Sub Command2_Click()
& V  j( _8 ]# \" n" mXY
: a* {9 O! r; o/ I' bEnd Sub</P><>rivate Sub Command3_Click()
End
* z4 V: q4 ?6 K3 X9 Z7 }# }# mEnd Sub</P><>
( E5 e1 O5 y9 KPrivate Sub Form_Load()
# E, y1 O, }/ j6 n, }+ n8 s. pMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
) Y/ y- u$ O- v: c6 I. kMe.AutoRedraw = True
5 C9 Y$ G% L5 r; H7 L  X5 GXY
0 q6 l! |% I: |9 m) ^  R9 gEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
! x3 w% v7 ?1 i; R1 A



* S' J% V, `4 f- t5 J% v& O& r% `
& d) o& ~# Z8 P! B& I& X

  q, |5 s4 _8 c0 @$ b) t
0 K' W$ t5 V* d; i. Q

2 I0 J/ i" A1 l8 l* Z4 L
+ N! N& G3 G5 i; l  ?
8 Z+ f* g! H. W. m( v& V) o& A0 O大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！