帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
: n. D: Y" j/ x' C9 w# T% @ Dim x As Double, Y As Double
Randomize
  
        SC.Reset
' \4 Z" h! s3 `( K  A+ e, h* m8 f        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
# h$ h% _5 N- X2 M' k  e" Q         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
( W: A5 g7 I  |0 p! A          Next x
End Sub</P>
7 V4 A7 o, W5 x' g, E6 ]<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
, r. ]$ u( ^3 R* i$ |1 y! YWith Picture1
.CurrentX = x
.CurrentY = Y
) ]6 q9 c/ G- @; z.ForeColor = RGB(0, 0, 255)
End With
0 y+ ?, U, R) _( h8 ]/ d: a, [Picture1.Print Word
- n3 k+ \5 m. D- \- `# s  F8 }6 GEnd Function
'定义画点函数
; L3 v, i- ]0 M3 @( B3 J6 SPrivate Function DrawDot(Px, Py, Color)
+ C& l* K) [" o4 w+ E( w9 \0 r( ZPicture1.PSet (Px, Py), Color
: B( _) N# \+ |; KEnd Function
3 {4 {: ?9 Z& LSub XY() '建立直角坐标系
# M& ?5 o$ O& e  lPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
+ |% l4 ]! w; H5 u2 g! N- @) V'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
8 a% w* q% S" _% APicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
2 c( f; @3 {1 N; F- ?Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
" L2 q$ b' A9 d1 `Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
( j8 s  T8 i% G2 C'画 X 轴
" {' e5 u& ?4 L/ P5 C' ZPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
$ z: I6 A, v, N. W$ B/ XPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
6 o& O' \' ?) H) O& e" ^Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
7 a# Y0 d+ a* {  h6 {, v: SFor lin = -9 To 9
# |6 @5 D; M, t8 F9 V4 i) H" {7 iPicture1.Line (lin, 0)-(lin, 0.25)
  u# l) O, R$ vwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
# v8 [+ J4 \3 E% A  DIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
  ^' Q$ b6 f* R3 DEnd If
Next lin
( C8 Z% D- x* z+ U. v0 e. YPicture1.DrawWidth = 1
3 b( u+ l% p( F% z7 \6 N2 \End Sub
+ @- a1 h$ Z# ~+ }/ \; EPrivate Sub cmdPlot_Click()
XY
On Error Resume Next
$ v( J& E; G/ X9 w" H6 L) R Dim x As Double, Y As Double
- c2 |+ G5 i1 Z" y1 G9 V. U4 @2 g 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
  @1 `: c4 Z3 S9 h7 a* e* e         Y = SC.Run("runthis", x)
$ V' B7 `& ?0 U% Y9 {% @  q- s         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
0 j1 X" n% S0 k& ^. t6 `End Sub</P><>rivate Sub Command2_Click()
XY
% k4 `; o4 b; T& Y. O9 p3 ~2 nEnd Sub</P><>rivate Sub Command3_Click()
End
) [7 _, d$ i: f5 _7 K4 zEnd Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
! P$ x( T9 S6 ]( ]5 Y* YMe.AutoRedraw = True
XY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
7 e8 h) S$ u3 Y! a8 T  j- {
. f% T' Q6 G5 e2 B: J


8 H5 z9 M; i( v0 T3 e
. _7 j% ]9 u, e  x
; {% ]* F9 C" h4 \; R  V

# k; A3 t! L8 b- s
# [& C* E+ L- I# L: h  E
1 W6 X7 }2 Z* E/ o4 G
0 E+ B: z6 \3 }% K% a
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！