帮帮忙，跪下谢谢斑竹，VB

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>

<TR>
! V7 X( J$ C( O2 _<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
& ?8 c$ d2 I6 Z, Z3 j! l0 O<>rivate Function PrintWord(x, Y, Word As String)
+ O/ I' g9 q/ y- C. h) ?With Picture1
.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
5 d: W2 T) i0 b0 T! |4 ^: ^End With
6 S: @% i4 s& m! s1 c9 `" APicture1.Print Word
: W& Y/ \9 r+ B3 d& c9 |$ IEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
3 V2 Z8 S" p/ l7 }  wEnd Function
4 z1 S% e7 _$ j; ?+ L5 D; YSub XY() '建立直角坐标系
$ h3 j+ G. J3 m+ P& HPicture1.DrawWidth = 1 '设置线条宽度
7 e  Z! {: x- J1 bPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
" a$ f& {7 v" n5 ?$ ZPicture1.Scale (-10, 10)-(10, -10)
4 ], t( v5 b! ]" o# u+ `Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
+ d" ]2 I6 W% m8 u0 }; _Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
1 C6 n: ^9 Q4 o- p) x7 \# |Picture1.ForeColor = RGB(0, 0, 255)
0 U$ v1 ?: A! Q' q  A0 mPicture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
1 d( O, O4 l8 ^" `- {Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
5 |, H) u4 }0 ^( Z0 Z9 jFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
, ]; q7 s' u' gwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
" g- Z. C0 Q+ t# q, ~6 X+ ZIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
5 ^2 ~1 s! t" [  K) @& ^Next lin
Picture1.DrawWidth = 1
1 e& |" ?( T. J6 G, h2 D, wEnd Sub
# K1 R2 Y4 X! EPrivate Sub cmdPlot_Click()
2 S$ v. e+ }/ L  w3 g0 `XY
On Error Resume Next
Dim x As Double, Y As Double
( ]# H! z( R. O2 N. wRandomize
  
        SC.Reset
* @2 G7 h& T2 p. m, m* R7 W4 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
7 c6 a, b5 x6 a0 F' i1 o         Y = SC.Run("runthis", x)
' M) e2 T! j6 k* e7 F- y         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
9 K4 h1 q2 N" \5 |4 _# }* f. J, }          Next x
End Sub</P>
<>rivate Sub Command2_Click()
XY
7 J1 F3 A; ]; B. HEnd Sub</P>
<>rivate Sub Command3_Click()
( v: I- \7 J' ?" V/ l8 u$ m3 I- e. vEnd
& ?8 u( m! {9 }# K7 n4 g  }. q0 jEnd Sub</P>
( |2 a" }$ _/ t<>
4 n  m2 X' }4 A4 n/ ]. N0 g" u1 RPrivate Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
3 c1 s' Q1 j5 xMe.Show
- e$ z$ t) x& k; k1 SMe.AutoRedraw = True
8 v0 J0 t6 C) y: C& x7 ^XY
End Sub
) M7 s7 D$ @3 S& Z  I) O</P></TD>
<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
' Q! U7 c% Z" f0 c* i6 }

[此贴子已经被作者于2005-3-4 17:40:39编辑过]

诺＆然

我不得不承认我是有一点VB基础的孩子啊，可是真的完全看不懂

诺＆然

亲，你在写什么啊？

sxjm567

好帖，确实好帖！

水木年华zzu

代码写的好不好另当别论，格式一定要好

数学者

楼主这是啥意思啊？不明白你在说什么呢~

kensington

回复 1# llm3-1415926

  U# N8 n, A; E
你在搞什么呢？………………………………………………