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

llm3-1415926

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

7 }  l2 b1 Z/ D. S<TR>
* F; }9 l) i% H* i<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
% E( _+ m6 F* |* BEnd With
. k1 n, \# f3 O- b/ n) ^Picture1.Print Word
9 X: V( W9 g, |2 k) cEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
& Q( ?: J9 s1 Q& y$ W; @Picture1.Cls
) q" ?0 n8 ~0 z) s9 D5 b'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
2 @- P0 m" J; d: e' cPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
1 N2 b, a0 ~  XPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.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)
% B" z; u& Z& t5 p: x4 f. M/ xPicture1.Print "Y"
+ p- t7 O6 Y/ Y+ ['画 Y 轴
For lin = -9 To 9
- I! W& h5 l- c7 tPicture1.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
) @6 R; i2 c/ |( L6 t7 Rwor = PrintWord(-0.9, lin, Str(lin))
End If
3 g0 P- u0 k( b5 _$ R8 ~Next lin
; o1 \. c# r4 D8 ?$ d; SPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
9 w/ w( b/ H! t( OXY
On Error Resume Next
Dim x As Double, Y As Double
Randomize
) t  O1 c: v. F" C; |5 ?  
        SC.Reset
# T& ?' F4 `5 i% h; `0 U* e3 }8 m        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
# @: l' T  c8 A3 J; K) G0 h       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
9 h, U+ j* N3 J7 h& B7 i: w          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
) D7 e' s' X- @) ]) f$ d<>rivate Sub Command2_Click()
XY
End Sub</P>
4 ~  V( h! W; ^<>rivate Sub Command3_Click()
End
, U* T" Q9 t8 Z9 X( E2 nEnd Sub</P>
<>
Private Sub Form_Load()
, e! s& ^/ _: r3 x6 w2 WMe.Caption = "美丽曲线——数学爱好者"
! X0 F: G: S/ d* q" g% yMe.Show
Me.AutoRedraw = True
XY
End Sub
</P></TD>
<TD align=right width=60></TD></TR></TABLE>
( r( r% {. ]* h8 g& J<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926


* `+ Y# P8 M3 F6 Y" |你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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