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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
6 p# B. U9 G& Q
% k( _* T* y" t<TR>
<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
% G( `; c$ ?+ ^2 |9 ~.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
& W+ z" w8 S5 t' tEnd Function
'定义画点函数
4 Y; h/ S& I( m/ }# P# T: jPrivate Function DrawDot(Px, Py, Color)
6 ^7 e) `8 c1 APicture1.PSet (Px, Py), Color
End Function
0 q* t5 Y5 d' f6 K1 L" |Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
6 s$ O+ a7 w# u+ vPicture1.Cls
- `, k# j9 p% ^' ~; C* l  J'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.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)
* P# ^$ m) ~# J; I( fPicture1.ForeColor = RGB(0, 0, 255)
% L: }( K( `% C$ y. {- h- |Picture1.Print "X"
# w# x2 g, q! O6 P' ?1 H( ]'画 X 轴
" g/ E6 W* w, ^# vPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
1 @9 }" ?0 U8 @! ~- b8 ?1 yPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
! c. `2 @. M  f2 ^, o7 D. u$ E'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
. f, l2 t& c* U. t. P. w% xPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
( Q, ?7 z" m. A( V  b' k2 OEnd Sub
Private Sub cmdPlot_Click()
XY
: h) V- h! b# q1 AOn Error Resume Next
Dim x As Double, Y As Double
Randomize
  
7 F4 v& Q. J4 T* s        SC.Reset
% }; G9 I; [: K7 @0 ^2 i        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)
9 A' g5 }. M; k3 N& A6 {         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
, {) @8 d$ A& o' M2 z* N8 ~% {          Next x
. j- w5 w3 T4 Z. y0 mEnd Sub</P>
  }. P+ g" j8 U* C' [* N<>rivate Sub Command2_Click()
$ |& `/ n& x, ~" i& `6 ?  S8 \/ cXY
End Sub</P>
<>rivate Sub Command3_Click()
End
0 K2 b8 o: V) l3 l3 z) zEnd Sub</P>
- x5 m" ?- g4 o3 P& J3 q9 x<>
Private Sub Form_Load()
& X9 `( e3 X5 j; mMe.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
* z+ y; J; W' H4 P. qXY
! P. T4 z: I$ i1 O+ W* }End Sub
</P></TD>
  D$ i, K( \  ]2 o. d; ~<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926


你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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