帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
5 ]* c( ]8 M3 I, dXY
4 B4 U; j0 s$ Y/ S& C$ jOn Error Resume Next
Dim x As Double, Y As Double
Randomize
  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
1 |( ]6 n: l! g. V1 x/ V# D& ^       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
: U- K8 a& ?4 \) e6 \; z         DoEvents
$ K% N3 j+ @, k: ]2 m* X          Picture1.PSet (x, Y), RGB(250, 0, 0)
3 ^1 r5 \6 P5 `/ z: m: x, |% \          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)
8 T! j5 s' a; c4 B7 s% ~) jWith Picture1
.CurrentX = x
.CurrentY = Y
  k3 O; {6 b' _, B( ~% q  U. I.ForeColor = RGB(0, 0, 255)
8 d6 F' F; R) o5 y5 [1 |! ?/ }End With
( K" [* i) t  }4 c! kPicture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
: i4 t! _9 W) ~$ OPicture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
6 V2 {6 P: }: E5 @'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
9 y/ I3 d/ a( d+ T) D) N- K5 sPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
5 D" D# S, D/ w$ W: GPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
+ i2 h" ]7 S: M% }* T# G( U'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
( M% u; N( v( k2 `Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
8 O4 l) G0 c1 b) Q2 D" t'画 Y 轴
For lin = -9 To 9
; g' n1 ~7 p9 Y& v: x- M: SPicture1.Line (lin, 0)-(lin, 0.25)
8 v: T) m: V& \: ~wor = PrintWord(lin - 0.5, -0.5, Str(lin))
9 h8 ]3 P6 K" i1 ^- D0 v/ P0 y+ u" _' \Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
' @/ H+ f7 a- W: \3 k2 i' Dwor = PrintWord(-0.9, lin, Str(lin))
$ Y8 ~$ R5 D- D0 P5 rEnd If
# Q. J5 J  M" @) b8 ~Next lin
9 n' n2 `8 ], r$ \7 rPicture1.DrawWidth = 1
End Sub
1 j; |, {: l# a  S9 C+ D+ W) L( f) E) u, GPrivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
0 u7 ^+ h. J0 s4 u7 z, s Randomize
  
        SC.Reset
) s! z4 A% v6 N" {        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)
8 L" h  I" d" D) B/ C6 K         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
% P: c: P, E1 S; P- X- x% \. Y# Y4 a: uEnd Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
& l( R! w% ?- J% F7 zPrivate Sub Form_Load()
% S! m. e$ V. ~8 }% J2 ?# @3 YMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
& k5 P* d# r: q/ xMe.AutoRedraw = True
XY
, A. O: J5 {4 G' ]! [End Sub
6 m+ W4 ~4 P" M5 W0 t( Q! \) Y控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

, A: |2 Q& U2 ]* ]: z; Y6 C
  S5 o, f; A: [( ]; U6 ]
/ p+ ?/ U4 J8 q/ O. f6 N3 s+ H2 u
6 X! C: c5 e9 o8 A+ M0 y
) r% r0 y2 q. W5 f. A6 e. ^3 e/ ~
) W- u* g2 w5 j/ R% b) T


+ ^6 S' ]5 G5 I) W# T


. B, O, b% R. L7 d) D) m5 C大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！