帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
) R$ ^7 X& y: x( T" pXY
% r/ E8 [7 U) y9 h1 ]! UOn Error Resume Next
0 j$ g! P  Z6 n$ R: i! }+ g/ [ Dim x As Double, Y As Double
& }. q/ q( Q- u- y: m6 H Randomize
  
8 D- C" J5 D& W  A$ L6 Q5 t        SC.Reset
6 j2 F' o' \3 k/ v5 @        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
( o  W% i( a# `/ c3 ^  U       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
. e- _' v$ }/ \- e4 r3 ?- z          Picture1.PSet (x, Y), RGB(250, 0, 0)
. f  @( p: z' v9 Z  G          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
$ W7 ?1 Z. Z" v% x) [/ R4 V.CurrentX = x
' n* \, U+ j0 l# Y& ], l1 a.CurrentY = Y
9 a& L% |  `: W: T9 a" o: b! m.ForeColor = RGB(0, 0, 255)
3 b1 b; `1 C' G& l8 hEnd With
Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
$ F2 M. j( P0 t4 j0 T$ m) ]; FPicture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
5 d' r4 h( c9 U  kPicture1.DrawWidth = 1 '设置线条宽度
: J) c2 v$ r0 f( {0 e/ cPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
* W$ l/ q0 {5 @1 B4 @* b# p' kPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
% p" `! N0 V& W& ?' FPicture1.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)
Picture1.Print "X"
. s' C5 j& x9 n" r- P3 R'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
9 z5 ^5 a0 c( o3 i( e( qPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
+ F, R6 t  f! iPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
( O5 S3 S% p  v: I% CIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
( c& E. Y! u( {2 m( {End If
  g) w; }* D( YNext lin
9 W# h; H/ i& m  T( `, CPicture1.DrawWidth = 1
End Sub
' p# ?( ?" N5 h# ^) _" yPrivate Sub cmdPlot_Click()
% d8 K1 F1 i5 ~XY
6 o9 g9 U8 ^* \7 Q$ u/ _. yOn Error Resume Next
5 l  P; d* n; n- v; u+ y( G1 t Dim x As Double, Y As Double
Randomize
  
$ g& S. k( Z7 \2 P6 u        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
& Q$ l* _) P2 F5 B         Y = SC.Run("runthis", x)
$ U8 W( f! k, S; z- F* T         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
0 u* b: u3 Z' p3 W/ z) P7 H) \          Next x
1 R, ~, H" R2 B: lEnd Sub</P><>rivate Sub Command2_Click()
XY
$ Y) U7 J/ z; X, O: zEnd Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
* A2 S6 Y: a1 oPrivate Sub Form_Load()
1 H$ O, s; r" a$ y& IMe.Caption = "美丽曲线——山东省商河一中路来民"
) I# [" `" \# i% }/ \% rMe.Show
+ }& ^5 m! }- O3 L/ N  f% h3 VMe.AutoRedraw = True
XY
End Sub
" x2 q# o9 t( ]0 h( H4 ^, y% _控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

) t" n2 R, l4 p8 E0 K


0 ?4 c8 L& r* W

) Q6 N  i2 ]; s4 k! \4 D

6 f. K* F1 _" ^2 R
# X& {! B3 j% Y  ?


# M: T- l7 d- {/ @9 A大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！