帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
. [, Q6 W; h' q8 tOn Error Resume Next
Dim x As Double, Y As Double
Randomize
  
- s2 Y, T" _* o1 O# [        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
" B! R& J& z: M' B- c       For x = -15 To 15 Step 0.001
& u8 {) Q$ l# d; h, k% \         Y = SC.Run("runthis", x)
         DoEvents
7 o8 _. R9 ?+ Z+ f5 O          Picture1.PSet (x, Y), RGB(250, 0, 0)
$ K1 H2 u% ^6 u0 v) ?4 c) V          Next x
End Sub</P>
0 k+ f4 F; s) b, z# t  o9 n<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
5 ^! T8 D8 S  }7 ]* d; @.CurrentX = x
* L4 p* k* l' p9 j% S.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
, F& B( ^: h; T4 S; Z( mEnd With
Picture1.Print Word
: g0 ]$ _$ F& x" |3 |4 M6 R; DEnd Function
'定义画点函数
# f- s6 q/ q( Y# d. uPrivate Function DrawDot(Px, Py, Color)
' E! ]) |3 V. @: k/ a" {+ x2 aPicture1.PSet (Px, Py), Color
End Function
! U. B; H! b8 _& y! p" c5 fSub XY() '建立直角坐标系
; b6 H. T# N% v6 t( JPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
9 ~! \, G* T# @& vPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
- D1 R. G6 ?( C, K2 @7 l; i* ~Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
, Y0 _3 J# p, s- d' d- d' rPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
  i' ^8 l1 v$ q3 X# _9 a8 EPicture1.Print "X"
'画 X 轴
* T2 `, ^$ Y5 e9 ?" ]. c: T/ J: @Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
# r; j& c5 `2 G7 D  H! ^' N2 ^Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
+ k6 V& W' U5 lFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
* I; c/ g4 J  ^# ]) @5 T& ~2 M. cwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
; P6 ^& t, o- g- \% gwor = PrintWord(-0.9, lin, Str(lin))
End If
* T! s+ v( x! u8 p. lNext lin
Picture1.DrawWidth = 1
! I9 [+ z$ ?9 T5 I/ f  w1 KEnd Sub
+ G" a! p# S$ r" D! p9 R. G9 @6 iPrivate Sub cmdPlot_Click()
XY
% n: Q" e8 |- S" aOn Error Resume Next
Dim x As Double, Y As Double
" K/ x) t! I( \  o+ Y Randomize
  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
: B* d3 n. S# L       For x = -15 To 15 Step 0.001
2 ?3 e/ ~; K0 p! k' f         Y = SC.Run("runthis", x)
, o  X# L. x! q0 s/ a         DoEvents
2 d# o* p: m2 {6 F' u          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
( y/ ~/ t/ G& h! @6 v" Q0 m3 rEnd
' i* o5 d- n* OEnd Sub</P><>
0 I5 T) X* X) a. G8 C* [# P& DPrivate Sub Form_Load()
3 k) Q# W7 v' `, V- F1 _2 T! y5 rMe.Caption = "美丽曲线——山东省商河一中路来民"
/ b! l: {% \5 |/ jMe.Show
Me.AutoRedraw = True
5 J9 ^' o/ n+ w" f0 G9 `9 NXY
. d( H( t9 c% r5 [  ^1 S) eEnd Sub
  u3 n- Y0 O4 W# _4 p0 g0 y3 o控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

- O( r3 I2 R- G1 p
, X6 C+ ~+ K; q2 S' H8 x- }
8 n& N4 n7 K  E) ^! P+ c
) e/ a9 t& g, o+ o5 t& C2 r* p3 d
# Y0 c/ X9 ?! y' e9 S


! R/ i8 ?, d7 C( v$ @5 S
% ?) ^; [4 t2 `/ k
! D' _% x8 x: y4 s! E9 N+ I7 v

大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！