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

llm3-1415926

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

6 @5 ]) m2 V& j2 e: d% \# K<TR>
<TD width=*>
  R$ X& l. H) W$ R$ ^2 {<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
8 m* A, e" ^+ \( r<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
5 a. D% _6 b6 s. ~3 n. l.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
# c4 k7 \/ `7 ~! ?3 }4 m3 yEnd With
+ t, S4 s! {4 e6 Z+ Y% n) Y6 GPicture1.Print Word
* q# A- ?8 ?: X: ^End Function
( k+ M2 G7 o) L'定义画点函数
. l# u" ^/ [; e# v* V) I! j, A' XPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
  u7 h% H2 S9 m3 oPicture1.DrawWidth = 1 '设置线条宽度
8 C1 w# j# M. W. A6 \Picture1.Cls
; y, Z' O! e( `'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
" w' S  Z2 y3 I9 F9 r, ?Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
3 D: b5 f! Z5 C8 _Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
1 Q( Z$ K' j9 WPicture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
2 N1 T$ @+ F7 i9 R/ h" xPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
6 ~+ K" X  H4 J5 o$ `4 L5 e. g5 q'画 Y 轴
! a2 F8 Y, r3 s. m1 \1 @, J( fFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
9 G0 r/ S9 [+ Z1 _* W: V* IIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
% m* r4 T/ n: w& g  ]Next lin
( q2 ^- Z1 e  BPicture1.DrawWidth = 1
3 @1 `8 V+ {5 R% P1 H5 yEnd Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
Randomize
) @+ }5 a/ S+ L) J9 i( I  
- I$ ]* ^3 q4 D! B; O, }, {5 J        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
" w1 t+ {% F% V! @         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
% H# Z% ~1 m$ i  [! r( oEnd Sub</P>
4 y( r/ }# a5 R( j# c<>rivate Sub Command2_Click()
XY
" h" c1 G6 U: w0 K! tEnd Sub</P>
<>rivate Sub Command3_Click()
End
End Sub</P>
3 {- D8 J8 q+ N. h* y9 D6 \<>
0 X7 l3 Z, K& PPrivate Sub Form_Load()
% g; m; k/ {# V3 C& w. QMe.Caption = "美丽曲线——数学爱好者"
8 c" i' _& n7 O/ cMe.Show
5 g( R$ F  e! p  U: j3 [Me.AutoRedraw = True
. V6 R* c; F* e; zXY
End Sub
</P></TD>
9 d9 m# ]% k2 u5 y- n0 [: u# a% f3 M/ h<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
9 s+ {8 r3 f  k# L1 _

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

kensington

回复 1# llm3-1415926


8 g- s- E, T; R6 L' Z6 l你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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