帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
! k4 r" X* g6 m( cXY
5 I2 V1 d8 i5 n+ c5 H' ?On Error Resume Next
Dim x As Double, Y As Double
; Y" m$ |8 S: Y& x- j/ L Randomize
  
& [$ [; W% \5 B" K( ~# n& i        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
* \# w# [, C5 w3 Y3 y+ ^       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
! x- r8 ~0 \* K" M2 X/ }         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
9 O5 t$ j( l  n" d- r<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
.CurrentY = Y
) A* h" l1 i$ c% ^, R. g.ForeColor = RGB(0, 0, 255)
End With
3 ~9 @, k3 I# I+ x6 `3 r8 I' PPicture1.Print Word
4 a7 N' E0 [2 q7 c! z* g; `End Function
7 N7 z0 d  g: T1 h" F- @, p( }9 N'定义画点函数
# y' c# O3 f. E& U$ l/ WPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
" ~9 T5 m( |! p! p1 FEnd Function
Sub XY() '建立直角坐标系
# v; P* G& D6 B3 yPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
1 c& a# o# q9 _! P'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
; V3 C) l3 M, `* G, T! {( kPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
4 F* L6 p, k6 ~/ K  r( `, IPicture1.ForeColor = RGB(0, 0, 255)
- ?$ q6 q) Z& P4 H) ]8 }' EPicture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
% u8 L" |; d5 L; _$ G3 r* |5 fPicture1.Print "Y"
'画 Y 轴
* f( Z% z6 }* f/ C& f- q$ ]7 i, HFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
4 L' r# T1 ?# {0 W7 g' @- B$ ?" nwor = PrintWord(-0.9, lin, Str(lin))
End If
8 `8 F3 P! @5 e! q) m6 A( kNext lin
Picture1.DrawWidth = 1
% t* y: N) d8 _End Sub
Private Sub cmdPlot_Click()
XY
5 Y& e: v  I7 z8 ?On Error Resume Next
Dim x As Double, Y As Double
Randomize
  
        SC.Reset
! Y# @2 V. M! l7 i* ^        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
% y0 i2 I$ B7 I, _* R8 x       For x = -15 To 15 Step 0.001
" L6 h( b/ ?( s- I7 e1 D2 N7 g         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
5 ]" j- l1 ]0 v6 u; DEnd Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
# a% Y4 V  U; lPrivate Sub Form_Load()
& s7 j9 S( j4 T' G4 _Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
& s# I1 w: x/ _/ t8 ~% ?Me.AutoRedraw = True
$ @4 R* o' W: }$ {, m1 cXY
+ C) }3 m, K' Y2 s4 s/ _End Sub
1 {# H3 t. O& N- y7 Z控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何



/ \8 Q6 ^* i/ n" O2 S







% ?3 |: B, H' x5 ~% a0 Q" T
# m" o" Q" I& X0 m! t) B' u大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！