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

llm3-1415926

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

<TR>
& C2 n' Q/ ~" n8 `; C' s<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
( n' u3 k7 c* z0 Q3 x$ @# ?  x+ P<>rivate Function PrintWord(x, Y, Word As String)
. d( L1 u3 v& m2 a  @, t; [With Picture1
/ [% D; p, q' D.CurrentX = x
  x- k8 M& F; |" [4 N0 V+ F.CurrentY = Y
3 x8 V" [) K  K, ?. I.ForeColor = RGB(0, 0, 255)
; k2 `& a2 t0 |) nEnd With
1 D6 }- V8 ^/ ?" MPicture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
7 h7 ]' ?3 q2 lPicture1.PSet (Px, Py), Color
$ g, N, L* J  [: h4 I( V3 }: nEnd Function
/ F4 t/ T2 ?- RSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
2 Z6 D4 t; M6 D* }4 m# m3 U+ O, UPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
; v" L2 ?6 {* L- H! E+ JPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
& W3 |4 `6 A% S, p' OPicture1.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)
Picture1.Print "X"
'画 X 轴
' v- {8 A2 [8 K  V: d* M& J5 @* \Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
1 U# }+ i- l  z1 ]$ |For lin = -9 To 9
; k) g+ k0 o  w. Y8 Q) |Picture1.Line (lin, 0)-(lin, 0.25)
/ y6 U9 V, p+ Dwor = PrintWord(lin - 0.5, -0.5, Str(lin))
  ?: a1 J* [7 A3 O9 FPicture1.Line (0, lin)-(-0.25, lin)
6 ^, j( [4 e4 f( M; `If lin &lt;&gt; 0 Then
! j3 H& g8 g2 _0 {4 G* lwor = PrintWord(-0.9, lin, Str(lin))
End If
/ n- w# ]5 b& M4 GNext lin
Picture1.DrawWidth = 1
2 I) y: c: f3 S3 ]End Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
5 h4 g3 P$ L0 s# DDim x As Double, Y As Double
Randomize
" f9 q8 N, h% ~% K6 b  
        SC.Reset
3 x6 w. S& }1 a+ R4 ~        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)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
/ A) y% Z* U" ^( g, u          Next x
9 z. I  c/ @' eEnd Sub</P>
<>rivate Sub Command2_Click()
XY
End Sub</P>
<>rivate Sub Command3_Click()
End
2 r/ \4 K5 I5 B( Z2 QEnd Sub</P>
<>
Private Sub Form_Load()
) _# B5 v+ f( R# L2 Y2 wMe.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
XY
End Sub
</P></TD>
) u7 D% }  S% r<TD align=right width=60></TD></TR></TABLE>
$ k3 X' }& W" U- `( X<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926
1 I& l& ~4 V8 B0 H* L/ I' _. b

: B0 c3 X+ V; l7 V6 ]# G/ w你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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