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

llm3-1415926

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

<TR>
<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
1 e; C2 N1 ^, _+ B* N3 d<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
% N" c! G4 n, c: N& @6 Q.CurrentX = x
* S  A  D8 U% h& i2 ].CurrentY = Y
.ForeColor = RGB(0, 0, 255)
( B' w  `. I4 y8 w# \  AEnd With
4 }9 f* U0 s1 o3 B: Z! k5 APicture1.Print Word
End Function
. p3 L- f9 W% @( n. L! x+ N'定义画点函数
$ r  A# ?: y* t' GPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
2 r: d  l3 G/ s8 c, xPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
( w( K3 t8 ?9 ]$ BPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
* s% p9 S/ T, a# h: o; L  W& uPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
9 X/ X; B- S/ f( M, `: w2 v1 cPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
; L' p- N& |+ U  F' Y) o'画 X 轴
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 轴
For lin = -9 To 9
2 e  n' M9 l4 f# V& n* kPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
3 S4 W+ j$ S3 \Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
8 F8 Z& g: o4 W7 R0 _1 ], ]wor = PrintWord(-0.9, lin, Str(lin))
End If
; M. E8 [3 F8 ~( i/ UNext lin
; v+ i% I0 m3 g1 oPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
* P6 C' e5 `9 z0 ^, c8 ~XY
( q# c3 b$ I$ Z/ O! U& D: V" O% JOn Error Resume Next
$ m1 w" n# r8 Y2 K, e/ [5 j  b# k5 _, FDim x As Double, Y As Double
+ A1 u/ X* L% l4 ^8 aRandomize
: d( p. h, C  b  
        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
         Y = SC.Run("runthis", x)
( C3 l0 K- b5 r& U         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
9 _/ C4 N: [, M7 Q7 M          Next x
End Sub</P>
3 |7 N% y4 |# Y+ ~+ I<>rivate Sub Command2_Click()
XY
( ^, ]  s- X5 o. `End Sub</P>
<>rivate Sub Command3_Click()
End
End Sub</P>
' @( x0 t' _" Q4 k! r) x: i<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
XY
End Sub
</P></TD>
<TD align=right width=60></TD></TR></TABLE>
) H  p2 |$ n# _/ I5 A) Q+ C- J<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
7 }3 {2 k1 v0 i4 A! N, s3 `3 ]

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

kensington

回复 1# llm3-1415926
. f  Q( W5 V" O5 u; f' Q

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

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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