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

llm3-1415926

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

<TR>
9 j* d( D8 I  O1 [# l  \<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
.CurrentY = Y
# o" h4 o$ t# G! {) r.ForeColor = RGB(0, 0, 255)
# O  @8 |9 I% A0 X6 n% kEnd With
Picture1.Print Word
7 b  e6 m  x! C$ Z0 p& qEnd Function
'定义画点函数
) ]; p- t: ]) T: ^" gPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
( z' i; q+ }% r, xSub XY() '建立直角坐标系
. {9 n* O9 }0 E9 ]) A- m+ g$ TPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
* x$ a4 k, c' k) xPicture1.Scale (-10, 10)-(10, -10)
. ]" X. H7 v9 ^& d* P- @* iPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
2 I; C( Z. }" }5 J. }) I8 h4 @) ]; jPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
7 O1 b1 D# j$ [  C/ G$ s8 w, q  r9 \Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
3 ]/ b' J! i9 DPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
. d3 t1 F5 g: I) t# E! RPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
& i+ N# P6 C- d'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
. Q+ N6 i- n* @; l# I1 YPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
5 m& S+ a1 i$ \wor = PrintWord(-0.9, lin, Str(lin))
End If
8 m+ H" E! l2 E  O5 y1 fNext lin
Picture1.DrawWidth = 1
8 n. P% {* E) R* b: PEnd Sub
8 v2 D  g5 e3 q( w! W: O+ yPrivate Sub cmdPlot_Click()
4 b" z' q, J! U* j" ]/ Y. \+ zXY
- l! E6 F  d/ `- OOn Error Resume Next
Dim x As Double, Y As Double
Randomize
  
        SC.Reset
* h( s5 e2 i+ o/ W$ y! y' d        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
! n; r& |" j7 G7 ^1 w       For x = -15 To 15 Step 0.001
+ K  r; }1 E! Z/ Q6 d5 P         Y = SC.Run("runthis", x)
+ e' J! E% r" }! y% q. s         DoEvents
: J" ]- N. M4 l4 i          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
<>rivate Sub Command2_Click()
XY
) Q: C5 D4 p! _( V. E1 xEnd Sub</P>
<>rivate Sub Command3_Click()
4 H$ F* k* X1 z6 @+ Y8 B$ N/ NEnd
End Sub</P>
8 ]4 x$ @! r8 j/ K0 {2 x<>
* T+ w* T! D9 ~" N# B, CPrivate Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
# u8 K; f) K; S2 i. y; R6 K6 V- z, ?" a# z$ uMe.Show
* m: `1 m! p9 A, Q- L) LMe.AutoRedraw = True
XY
End Sub
</P></TD>
0 N6 y% R  ?  a. c, \$ G<TD align=right width=60></TD></TR></TABLE>
( S* @# u& a7 l; s( G2 z2 ~  k<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
- [- e/ l" t; m

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

kensington

回复 1# llm3-1415926
9 j% U! V, F" E; H- l, [, _1 Z

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

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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