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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
4 z- e  h/ Q# U9 s1 v* g0 i# |
<TR>
7 N2 N. r" x; Y2 ~; |, l<TD width=*>
; D0 a; n7 x5 O3 a0 B; X8 M<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
9 \3 H  l* o3 E) H<>rivate Function PrintWord(x, Y, Word As String)
0 H: f% j! f0 }- T6 AWith Picture1
% R4 K% w* I- I- t7 {! }. |6 F.CurrentX = x
9 }5 c  O8 B, L* U* x3 W1 y5 T0 t3 n.CurrentY = Y
7 [  m) D: L  P+ x.ForeColor = RGB(0, 0, 255)
End With
0 {+ ?3 @& b5 y0 tPicture1.Print Word
0 c) y8 Z. q4 M. I6 J" @End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
' \+ @& m. G4 q3 UPicture1.PSet (Px, Py), Color
/ ?$ t" \  k7 J2 @' n/ {4 ^End Function
Sub XY() '建立直角坐标系
" S& I2 ?1 C- u+ U# f3 q* V& dPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
6 P2 v! \4 X: }# I2 E/ B, i9 hPicture1.Scale (-10, 10)-(10, -10)
9 K4 t$ P, _& Y3 s3 tPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
5 `' a+ B/ F! _3 L% {Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
4 b( ?+ t# K0 ]$ t: S* c* rPicture1.ForeColor = RGB(0, 0, 255)
, H6 Z( W2 @* o* H2 PPicture1.Print "X"
7 f9 I7 _5 S; e7 h- y8 V'画 X 轴
# p6 x6 ^8 _6 D9 s. ^! QPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
& q4 b7 U1 `2 V4 \7 _Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
% `" c; W) o4 n2 D5 ^6 z. Y9 I- |Picture1.Print "Y"
, `/ n4 {/ n; ?6 Q'画 Y 轴
For lin = -9 To 9
9 W7 B& Y+ D& V2 OPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
& \  w% m- H( ]" B) Z& E4 ZPicture1.Line (0, lin)-(-0.25, lin)
& v$ h9 ]& [. a# Q% N$ lIf lin &lt;&gt; 0 Then
: `7 ^' N7 P3 L* o- @+ ^  xwor = PrintWord(-0.9, lin, Str(lin))
7 c* ?5 z! {$ n- Y# J" O( ~% K. l5 \6 lEnd If
4 N; `" ]: v* a3 }1 `Next lin
5 t9 H. s% U; i0 y4 A, VPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
' U3 O7 k9 Z) k' K* o9 H; qOn Error Resume Next
Dim x As Double, Y As Double
9 W; V0 X% a! D8 Q. d% i- gRandomize
/ p( P% g, r4 b  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
$ P! A4 D6 B+ Z( q; C7 M: e& `* h       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
8 A3 c5 v' L) h* k& h! b          Next x
End Sub</P>
7 i, R; }, m5 i$ h3 s. d& A<>rivate Sub Command2_Click()
XY
# z! P/ r! j! l: a. j5 F, r! XEnd Sub</P>
<>rivate Sub Command3_Click()
! R/ |) g# A  j' W! s# F4 oEnd
End Sub</P>
<>
. D1 d$ S+ A  o* r% D6 [Private Sub Form_Load()
; ~4 f' }! J) J2 B3 E0 ?0 p# ]Me.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
6 m  q. p8 x2 q9 U' jXY
: G& w& a6 F% F; BEnd Sub
</P></TD>
<TD align=right width=60></TD></TR></TABLE>
' s3 F5 d& D7 G<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
) p' c1 k0 A4 @( m6 k5 h7 ]" q0 O

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

kensington

回复 1# llm3-1415926

1 R5 S5 y8 }9 Q7 G* R
0 c) M; N2 b! c2 U$ p你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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