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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
: S( `5 q7 q& B. F( Y$ g5 m
$ s* B/ j5 G% r* E; J# Q<TR>
5 d1 j" ?, d& ]1 ~) D0 l8 J<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
6 S; g$ ~+ D5 [2 c/ c<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
8 ~, i: V/ u. o. q+ V" M  eEnd With
Picture1.Print Word
5 S( p" V- \7 X  u$ LEnd Function
'定义画点函数
  W, i! `" ^4 c5 I0 `Private Function DrawDot(Px, Py, Color)
) Z, ^3 D3 I) x4 a/ ^Picture1.PSet (Px, Py), Color
End Function
4 T4 w# y; V/ n; ^8 {Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
0 _; P! N& w$ W  p% ]" sPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
# C" ]! ~( E0 _& ]: K+ ^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)
' G8 s2 u4 b, t" _% M  R) a% X0 T1 EPicture1.ForeColor = RGB(0, 0, 255)
  Y. \8 r6 T) d; b/ @- S- o/ OPicture1.Print "X"
- R. |1 ^+ t+ ^: F5 U'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
5 ?  a' B; Z/ DPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
. _1 A7 E2 \5 r5 d) CPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
1 l9 @# q7 P) {% N& u, @'画 Y 轴
For lin = -9 To 9
: G/ d; }' l) H4 OPicture1.Line (lin, 0)-(lin, 0.25)
7 o( V0 ]4 V# y/ \wor = PrintWord(lin - 0.5, -0.5, Str(lin))
! c4 [* p8 p1 C9 v0 g1 IPicture1.Line (0, lin)-(-0.25, lin)
  [/ p3 J; |; o% x) n3 yIf lin &lt;&gt; 0 Then
! ?" c! n& g  T3 B) Hwor = PrintWord(-0.9, lin, Str(lin))
1 i( k5 |) o# m% ~End If
Next lin
) _; r- W  H! e) K& G( i4 F- b0 fPicture1.DrawWidth = 1
. b% e7 ?7 T5 S( v! O% uEnd Sub
1 C: S# P. J9 y% _0 ?5 yPrivate Sub cmdPlot_Click()
XY
5 o5 g, P! a, p& D+ C; U& POn Error Resume Next
Dim x As Double, Y As Double
' Y" e7 w  N+ j2 p& Y3 JRandomize
& x$ G( ?0 U: ^7 s0 R  
" ?% I' l5 g4 S  Y' _+ ~1 \$ J        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
. M- }# V% h2 J3 [5 ?, H       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
. `: B7 K8 }0 F( R         DoEvents
6 @% P# @" @4 s5 }2 U% x% o          Picture1.PSet (x, Y), RGB(250, 0, 0)
# C' l/ B$ v4 N1 k' y          Next x
) {7 Y# C: I4 I6 p. q$ \- HEnd Sub</P>
4 B8 B% |: t2 d: k( K; h<>rivate Sub Command2_Click()
XY
: ^7 L% U6 a: ?0 O% n3 f; MEnd Sub</P>
<>rivate Sub Command3_Click()
" j7 h# d  Z! f- MEnd
End Sub</P>
<>
Private Sub Form_Load()
6 L3 U, f9 D) TMe.Caption = "美丽曲线——数学爱好者"
Me.Show
- M, ]( Z0 ]. R! j7 w* v5 tMe.AutoRedraw = True
: I+ N+ q+ C# k* wXY
End Sub
6 K. n5 s7 ]8 K2 M) T</P></TD>
5 @  [& D+ F4 i) M+ a( n! q7 }/ K<TD align=right width=60></TD></TR></TABLE>
; }' t3 A) Q6 W2 d<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926

# e9 p- }/ }2 o# N. m% {* q# ^
5 V! n/ i' G* A( ~9 h2 M) g你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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