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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
" E1 J8 V) g3 U6 W3 X
0 D0 A. W. g# @+ z" l: h2 d<TR>
. t% Q# R) ?- }3 f# D# V, \2 H<TD width=*>
3 {5 T1 }) g( m5 T3 c<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
  M7 ~, x/ h3 s( R<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
2 D9 A0 z. F' D" p3 R+ E9 uEnd Function
Sub XY() '建立直角坐标系
2 D. N. [" p6 K8 tPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
& ?  E! u/ s4 x. qPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
9 e  c! C3 U$ \, TPicture1.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 t4 ?1 W! R5 N1 hPicture1.Print "X"
$ d: y& B1 s+ n4 K  n'画 X 轴
" E3 o( v& S2 J. S% J: a5 CPicture1.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 轴
6 D# h5 d# N, d2 YFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
4 `5 y, R0 C. APicture1.Line (0, lin)-(-0.25, lin)
: Q( k' L6 X; |) |' kIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
' C2 C/ K9 r8 i% ^6 Q: X4 o+ E; rPicture1.DrawWidth = 1
4 ~" l* z  E7 Q; {End Sub
Private Sub cmdPlot_Click()
2 U7 v& H4 Z3 E# |XY
On Error Resume Next
3 p. u2 }2 l* K1 E1 N. Q  |Dim x As Double, Y As Double
3 {- K& Y6 Y! k- ?! E8 X0 BRandomize
) J6 V& n& j) |* u  
3 B( n; O7 l6 i6 }) |: M* T        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
9 w4 J) R1 L, I2 n3 n4 d       For x = -15 To 15 Step 0.001
! B5 M0 I, I; @4 w' \( {* h5 e7 V! b         Y = SC.Run("runthis", x)
         DoEvents
/ g$ F5 W1 E% w6 ^          Picture1.PSet (x, Y), RGB(250, 0, 0)
' [$ C/ W) p# w+ b/ u          Next x
End Sub</P>
2 X) K6 O+ W7 k% m<>rivate Sub Command2_Click()
' J+ ^; L( ~/ F8 C& {* a$ DXY
- J* L# x- D' l: PEnd Sub</P>
<>rivate Sub Command3_Click()
End
End Sub</P>
' g  N6 N# h1 r8 c  H7 u, R% G<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
XY
5 b; n. j- ^+ v. ?0 cEnd Sub
</P></TD>
<TD align=right width=60></TD></TR></TABLE>
+ ^$ H1 }! {% R) Q- x: P, u<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
4 b% W  K4 N: s% ^; {

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

kensington

回复 1# llm3-1415926

( {. d. X$ Y% O" M+ S8 m0 k4 ]3 @
0 R' [& z( r) ?; x2 Y你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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