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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
) m, q: f- N2 D4 e6 u: r
( F1 |4 G6 D$ m1 L5 s9 g<TR>
. @9 o% a- ]1 I: q7 [<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
8 y3 R2 b! B- R6 h<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
.CurrentY = Y
6 \5 z9 Y" T5 |1 I, W6 V; z.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
; R+ j% W) H9 ~- l% xEnd Function
'定义画点函数
5 q7 `8 {- g! Y9 \  e/ U6 G) dPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
) n& @  W6 x* `4 E3 ZSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
1 _" X3 |8 }3 ?'设定用户坐标系，坐标原点在Picture1中心
5 H* S' c+ d5 p+ S! F$ D6 [' K# KPicture1.Scale (-10, 10)-(10, -10)
. s& ]' I1 ~: fPicture1.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)
Picture1.ForeColor = RGB(0, 0, 255)
5 A6 P" y7 ^# f$ O! g: ~0 z6 [Picture1.Print "X"
'画 X 轴
5 Y: L- A& a) j6 APicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
# X/ f* q6 |+ |8 L4 y0 z5 pPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
% e) w5 Z+ S3 n0 g! D( MPicture1.Print "Y"
: v" W" b/ h  U$ y' R; @+ R'画 Y 轴
; Q: @% r" d7 g& h" cFor lin = -9 To 9
0 m0 \. @% J3 LPicture1.Line (lin, 0)-(lin, 0.25)
0 {2 d+ s* f& F7 Q, d5 b* Mwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
: Z1 E& ~" E( }1 w, wIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
. N) e# @3 b5 FNext lin
: V( J1 A( B( a6 q9 k3 \4 JPicture1.DrawWidth = 1
End Sub
5 e+ D3 J+ Y4 X2 g: YPrivate Sub cmdPlot_Click()
XY
+ P* A$ H/ |" _# U) V2 a$ i; COn Error Resume Next
Dim x As Double, Y As Double
Randomize
4 z- }8 ]/ ]' L4 \: R) S  ^  
: d+ g, F. C: u        SC.Reset
0 Y0 q- S7 @. A) f- M        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
" u( S) O1 {/ f- @( l       For x = -15 To 15 Step 0.001
# \" a, |* L6 k: K3 |& u- L1 ]2 f1 i         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
9 ^9 P+ s+ v' ~! a9 z          Next x
End Sub</P>
+ W3 F$ J1 Q+ {( B<>rivate Sub Command2_Click()
XY
' ~( v( U* T: fEnd Sub</P>
<>rivate Sub Command3_Click()
$ G* P) t6 |! }4 Q' C3 A6 `; I* d8 l4 NEnd
! v8 p" E  C+ q) E- vEnd Sub</P>
<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
2 [1 M- }5 W3 f3 DMe.Show
Me.AutoRedraw = True
XY
: T0 J5 q( i9 b# q& O8 I! ^% zEnd Sub
</P></TD>
% y# V9 X1 F9 Q; M<TD align=right width=60></TD></TR></TABLE>
5 U6 {8 M  B1 i: T# M2 i<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926


6 r' }& a7 e6 h& x; O) l你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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