帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
( l* H' R8 A7 r& a9 HXY
" d+ m! u& R4 }7 sOn Error Resume Next
9 s2 Q4 _! @/ ]9 w Dim x As Double, Y As Double
7 C/ A; }6 ]; F" K( i& | Randomize
7 I* X7 R- Z/ H  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
: z# i* q; C' \9 @9 u       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
& U0 f5 L# C$ qEnd Sub</P>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

ealx0yJu

我看不错噢 谢谢楼主！

秋天的风儿

呵呵，看大家评论如何

! V; ^  `5 i% [, p/ E  t4 @


) z7 E3 t$ s8 H; l' n+ l


% G7 h4 p# P7 ?3 s+ J+ R

% x7 P4 x, m% W0 R! w! n
  C1 T* [0 I, |2 o
; v; E4 b5 r2 `* _7 P( r6 p
) P) {; ^+ B+ ^0 R( r$ {大家好,能交朋友嘛？ok0633.com

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
$ ^: h) l9 [8 {" ^.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
3 J7 t; C) [: X% IEnd With
Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
# f- q; c1 r' V9 D9 q% O+ V! A" aPicture1.PSet (Px, Py), Color
+ X  b- e( j5 J$ DEnd Function
" R: z. D6 C* k3 Z! u2 ?, F* ESub XY() '建立直角坐标系
/ G4 S* y) [3 UPicture1.DrawWidth = 1 '设置线条宽度
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)
& s' B! e& F% LPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
. N- l: `4 l( l5 y' w" iPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
- R, w5 D) {6 N, E4 wPicture1.Print "Y"
1 ^3 ?. |- j% A3 [* g6 ~- ]% g" z'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
% x; z! S9 g! a" h0 V$ _$ J5 p0 \wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
7 u; m$ W! }4 F" q& ^" B" @8 E# M3 vIf lin &lt;&gt; 0 Then
2 P- N2 ]. O0 T+ ~wor = PrintWord(-0.9, lin, Str(lin))
3 T: s6 K' g( U8 K# s& VEnd If
Next lin
0 ^# a5 g! r0 w' g0 mPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
% ]; ]" _9 b$ E7 S" ^9 @& K2 H, SOn Error Resume Next
0 y7 y: ^! x' j$ x/ ?2 R$ T" f Dim x As Double, Y As Double
! b1 W4 g# Q+ M4 f: L# f$ k Randomize
, ~2 d/ @( n1 P0 O  
/ Y5 u6 U2 x" a2 Z9 D) o& Y        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)
) S. w& `2 i5 _) {3 z( o- Q         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
# e, R( g9 L5 z! a6 [End Sub</P><>rivate Sub Command2_Click()
% o( M" l) F( X" L0 ~6 ]8 LXY
6 E; o0 s8 [$ IEnd Sub</P><>rivate Sub Command3_Click()
; _* H1 G$ v5 h1 t8 kEnd
End Sub</P><>
8 m' _5 a% [2 x! BPrivate Sub Form_Load()
$ H. `  h0 g) e! @1 `0 [Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
XY
5 ?1 ~0 T1 Q# B" l; dEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

USER001

把完整代码发上来