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

llm3-1415926

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

<TR>
<TD width=*>
- e* L+ b7 c- u" E$ j8 N: n<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
2 c, e6 e7 F3 g( n<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
8 M, g7 L) v$ _* `+ v2 B5 S.CurrentY = Y
3 g! ]+ {: z6 T9 L! ].ForeColor = RGB(0, 0, 255)
8 k2 e( ]+ q( L6 h* o) dEnd With
& L' u- W4 O7 R' rPicture1.Print Word
% r4 o5 H/ W  ^$ G$ iEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
& W, c; }, a1 |! U2 w- nPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
, |* X! Y3 S( |8 y- ?) a' ^) w) ^Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
$ u2 L2 j+ d* [' [$ v4 pPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
4 e, m" h- u1 FPicture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
* D, H# Z9 ?7 p0 d! d! @Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
+ J/ {" o8 i" O) p; kPicture1.Print "Y"
! M& n. D4 I& ?) j'画 Y 轴
: D' R# m( ]0 L6 F6 I/ p: _For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
6 t# N; p4 m# ^! CPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
6 P$ H" ^3 m8 w3 aPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
! \3 G- I7 E+ RRandomize
- ?: t* G) w) S( f1 f* x% \  
        SC.Reset
1 Y) d3 {, l) r        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
  z1 H$ I0 t4 l% B5 h         Y = SC.Run("runthis", x)
: l0 b! {% Q1 a3 O3 Q* N. F5 `3 k         DoEvents
. a3 b9 X3 T' S2 A7 `          Picture1.PSet (x, Y), RGB(250, 0, 0)
1 L2 n# g/ U# Z" k* ?# V  r# y          Next x
$ P. B7 H  \  V2 Z2 SEnd Sub</P>
3 c) g$ \7 v, a5 @, l4 _: z<>rivate Sub Command2_Click()
  |  G) F, S$ ?XY
& A; q: s+ @" N; FEnd Sub</P>
/ g) v7 P6 l, S/ M2 m% X<>rivate Sub Command3_Click()
End
+ R5 ?- A( ]: P# R8 ^End Sub</P>
; p4 K: G, }2 b6 S( a$ D5 H! i4 B<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
Me.Show
! s9 A1 C' b; f$ qMe.AutoRedraw = True
. _: p1 R" O5 }. pXY
End Sub
1 Y* O. K$ p* V8 K3 f. d& g- R+ T; j</P></TD>
8 _; g9 b: E8 b+ V% }; \<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926
1 |7 }% |9 [4 y* p8 ]& e  E3 ~. t# g
7 H+ h# h) y) ]2 a' f) u
3 Q$ ]9 e# Z6 i) B- K你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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