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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
6 u5 I6 I4 i+ z; b: @# r$ S1 g
2 [$ O9 ]$ h2 s! q<TR>
<TD width=*>
. a! ?7 ]: u& Q<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
& u. W( B: n2 m% \$ ^# B& v- f.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
% t0 i1 W# o1 `End With
/ Y) g6 ~) t8 TPicture1.Print Word
End Function
4 }0 ^2 G; a% {, {'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
" Y0 G  `" z) f1 C' A+ v) USub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
( w' {1 t5 Q/ O$ {: E9 T'设定用户坐标系，坐标原点在Picture1中心
( M7 Y7 K5 A+ m! LPicture1.Scale (-10, 10)-(10, -10)
- z1 l4 N; Z- lPicture1.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 _; @# U; N& L: K6 P/ zPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
, C3 r6 m( V5 x0 K' J5 |! I'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
& e# _$ p& G! O5 cPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
" U. s1 X) D2 r* \& J7 IPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
3 O: z8 o; b6 a+ \% g  `6 pPicture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
' @7 X7 V1 K1 r* H0 V) ^4 h1 I8 K! owor = PrintWord(lin - 0.5, -0.5, Str(lin))
* d/ K  {" q$ {, I2 V0 J/ ]6 zPicture1.Line (0, lin)-(-0.25, lin)
+ z0 A0 ^: p% T5 _If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
# T0 c: ^/ d  k: ?/ S: f- aEnd If
3 T- A7 Y# z- t6 GNext lin
7 Q; n0 r( E- a" ~0 D5 oPicture1.DrawWidth = 1
9 F% W9 ~6 x+ y+ M  I4 K0 |End Sub
Private Sub cmdPlot_Click()
2 W4 l; u7 x& x4 e( GXY
2 w% G  V" P/ U" Q+ t, _2 i: ]  \On Error Resume Next
% _; ?) B8 p& V; `Dim x As Double, Y As Double
& o5 q" H+ I& K# wRandomize
) v% J5 g5 L! A7 o- P# H/ R& p  
        SC.Reset
        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
& `/ b3 y: X$ P3 q, O  f. n; b' P4 SEnd Sub</P>
<>rivate Sub Command2_Click()
XY
End Sub</P>
<>rivate Sub Command3_Click()
. u2 K& i1 I7 ?. G% AEnd
7 L/ u! [6 k0 z) m. P; |- r* |2 BEnd Sub</P>
& a1 C. m( M( s<>
( |- F0 |; B9 R/ r1 f1 E2 }Private Sub Form_Load()
  s; ~" W3 O# H" Z% B5 v1 M: y) ~Me.Caption = "美丽曲线——数学爱好者"
) Y7 r( I! V7 X0 J6 D  i# oMe.Show
7 C- d, T& \+ B# _( ZMe.AutoRedraw = True
, C/ s3 n6 P0 S: z4 [  t" bXY
$ J" P0 H2 y% C. e1 B5 fEnd Sub
0 O  T& F- Y  Y0 s, x</P></TD>
) t" E+ x" b+ Y7 A2 E<TD align=right width=60></TD></TR></TABLE>
& F5 l# G$ l5 _3 g<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926
: Q+ I& w3 u7 \& x4 }6 K, \& v

) Q( d, S3 k/ A9 @5 p7 O. o你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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