帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
( {. d" ^: T0 _) A. L! ^* _- c1 |- Y Dim x As Double, Y As Double
% I2 k7 s. k4 X, c% h( R Randomize
- [$ X: |' K% G  e) _" |  
        SC.Reset
: [" H. ?6 a! x5 Z4 ]5 l5 t# x' ^& L        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
; d; [$ e; H3 B2 j9 I       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
% I! \2 F" i  O) j; {, M/ f         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
! U6 m$ Y0 [& d' i3 i2 l& ]6 F          Next x
" r1 g$ f! k7 i3 l! T: A. zEnd Sub</P>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

ealx0yJu

我看不错噢 谢谢楼主！

秋天的风儿

呵呵，看大家评论如何
3 O; c- [4 _, F! M# E




( w* ~8 i$ O; x0 @$ Y
+ o8 F' p" i9 x2 I! Y
0 A4 I0 [) @2 [6 |  j
5 ~1 ]- h$ q) G# b( w8 T

# P- {) t& M- v, ^' z6 z/ c' i
( ^1 N( L) M, G, c* v* ]* ?7 \2 I) i
大家好,能交朋友嘛？ok0633.com

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)
# _; p6 \$ H9 o; B# XEnd With
Picture1.Print Word
; ~$ u! D- M3 z/ n) pEnd Function
; C% X# j8 j9 P5 n9 v# a$ D: w$ d'定义画点函数
; Y. U+ S3 m0 r# M- IPrivate Function DrawDot(Px, Py, Color)
5 X- H$ E6 _" ]' v/ MPicture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
6 B7 s' i+ ^( a' o4 O7 c3 a8 WPicture1.Cls
$ o0 t) N) {, e' L/ p) j'设定用户坐标系，坐标原点在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)
* |! m$ R9 g8 t& y" X4 rPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
4 V3 ^. C* ~4 p! y) s) OPicture1.ForeColor = RGB(0, 0, 255)
- g# }. n. u7 X! m; `Picture1.Print "X"
! L$ J7 B% n, V( a'画 X 轴
; [8 ]# `4 c. W3 V# G+ GPicture1.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 轴
For lin = -9 To 9
( J/ u+ V: K8 c* W$ ~Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
) E# R* |# m2 A( QIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
, p2 ~: @. `$ IEnd If
3 p( i. O: j# _+ Y. C0 p  iNext lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
6 @, I' ^$ t2 B8 B" sOn Error Resume Next
! t) Y* L( b& \. W( c Dim x As Double, Y As Double
5 J" }$ }( V+ S; p Randomize
" Z: o, ]% n7 k- o5 e/ @  
! m: H2 O% C; @. n, F        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
: B( L' t8 G( M0 J3 s       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
3 \5 w0 y" {4 W6 O; P0 e: X         DoEvents
# C* S  p( C3 p; d) v, c- k/ A          Picture1.PSet (x, Y), RGB(250, 0, 0)
. D( W' d+ Y3 R  Y) Q, f" k          Next x
+ c' v$ t* c; ^! R* pEnd Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
End
( \0 S) s  n0 }$ sEnd Sub</P><>
3 k+ l3 e& @2 f8 ^" C/ a1 qPrivate Sub Form_Load()
+ P0 A- H4 g4 F4 Q) x: PMe.Caption = "美丽曲线——山东省商河一中路来民"
! Z# q* s" s  s) i, v4 n8 T: j$ vMe.Show
Me.AutoRedraw = True
XY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

USER001

把完整代码发上来