帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
1 t- k- `$ W& D! y9 E8 v- COn Error Resume Next
4 ~; i5 O, }  ? Dim x As Double, Y As Double
Randomize
2 n3 C8 _5 `, S2 p0 p2 G- a  
) H) P% S; N  ?7 g7 h0 T        SC.Reset
' C) ]4 K$ q8 J) K4 A: G4 X        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)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
, ?/ G5 |6 R, y8 j& sEnd Sub</P>
5 Y5 P$ t2 E, e5 h<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
- R# H$ z" }9 D& W# p4 H3 R.CurrentX = x
.CurrentY = Y
7 d5 ^, T! n- M" Q' A% ^: t.ForeColor = RGB(0, 0, 255)
End With
: X' H9 W: y2 yPicture1.Print Word
End Function
* \" x( s4 x3 I" L" `. Z$ I+ w1 L'定义画点函数
2 ~! @: X" u% p7 ^Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
5 _7 B: V4 q* u- u3 }5 \. J/ e" VSub XY() '建立直角坐标系
$ v# o3 ?& }+ P) ePicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
4 [) a  L" y  T'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
% M% b$ r$ I$ ]Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
' {0 F/ @: C$ m" K+ k% M  w* QPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
# `4 {0 J0 N3 [' @- J/ K5 aPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
; e. S$ W6 u% Y' ['画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
, f3 H0 t9 u% r( P6 [2 APicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
# L& C+ K1 ~2 I8 ePicture1.Print "Y"
3 o3 t" q8 K! P+ ~, ^; h1 I% M% ~& X; @'画 Y 轴
# y" ?% D. ~/ }& d  OFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
  C! ~8 T! i  D/ C/ _; P- LPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
% C9 }" D8 l1 dPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
7 D; d: v4 G. nXY
/ H  V: p! ]. M$ `) kOn Error Resume Next
Dim x As Double, Y As Double
4 u/ s+ g) N/ `4 B+ W Randomize
# Y* p9 m6 m3 C  
- M) v) {6 t4 i7 u6 H        SC.Reset
/ R% B, N5 ~$ p( {2 y        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
6 M9 |  q  z9 P3 q$ R) a0 Q       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
8 x7 Y; z/ _- u# C, S0 q7 Z' n$ z         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
! J+ ^9 B+ |2 O4 Q          Next x
End Sub</P><>rivate Sub Command2_Click()
* S% E% N3 \) E- [; lXY
0 A. z. m+ I- N1 j! U% V/ h& JEnd Sub</P><>rivate Sub Command3_Click()
. P( w; q$ s4 Q0 A; pEnd
End Sub</P><>
Private Sub Form_Load()
4 m0 e: @5 ~; b: {; |% B9 }: @Me.Caption = "美丽曲线——山东省商河一中路来民"
# a: Z5 s, f, n% r( l. }( jMe.Show
Me.AutoRedraw = True
XY
End Sub
: D1 W, i4 q" p' L) c6 ^控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

1 Y7 t  y( L4 g8 B& }

" N0 o1 j( P0 Z" I
; B5 h+ i" o% t3 P4 k  a; R
' E- l4 A! F& t. |
$ l2 @- K% Q- x) ~% T
& H/ T2 ~0 }/ q


% m. |5 a% i( ]3 ?
8 P+ e# @9 o( l/ l* @# E
0 a, d0 _% ~" v0 e+ U大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！