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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
/ A) J0 d9 j2 w, V6 d( J
<TR>
<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
! \& A/ J1 }( q& b$ z/ [With Picture1
7 q9 K* C) c9 t/ C- S- j( h.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
/ o- Z( B) d0 Z4 {End With
4 P8 d1 x9 B% |6 I8 n7 b: gPicture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
# L) C1 A; _* q' u  REnd Function
1 ]5 ~0 J7 v) H7 K- @& [Sub XY() '建立直角坐标系
2 A# O3 Z$ j3 N6 l1 v: H3 [Picture1.DrawWidth = 1 '设置线条宽度
! @/ X, P% F1 o0 j1 M, |1 iPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
; Y, R: g  F& O& w' O2 E" YPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
: V2 Z7 ]  f8 p6 E3 w/ p/ xPicture1.ForeColor = RGB(0, 0, 255)
0 n* P6 D) r" K. r& @Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
$ d+ F% P: v! M1 G. @6 n- iPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
& [) ^" E7 W1 r& @, nPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
0 p' b! h& j( I3 R1 z. t2 A& UFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
9 V/ G6 N' R6 F6 Z4 hPicture1.Line (0, lin)-(-0.25, lin)
: S' u3 }8 ^5 W% }If lin &lt;&gt; 0 Then
1 T- s' [5 L. ~# h2 H7 Q, y; |: o( gwor = PrintWord(-0.9, lin, Str(lin))
$ n6 K" i" E  d. s% q/ a! BEnd If
4 |6 q' Y4 q  x( RNext lin
: U4 i! B, m" ?5 L  u' }( f9 fPicture1.DrawWidth = 1
) g2 P0 {& b! zEnd Sub
5 n5 W' J/ h  zPrivate Sub cmdPlot_Click()
XY
- m3 o$ E: p- a* P) C6 ^4 e& VOn Error Resume Next
Dim x As Double, Y As Double
# m4 @* ]" O7 ]# u& R. wRandomize
  
        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
! g+ x6 m5 i; N5 W" h# i         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
<>rivate Sub Command2_Click()
  ~# p4 P  J! QXY
' t0 F$ q+ Y* r9 N* E0 o& `8 TEnd Sub</P>
- b9 r+ t0 Q1 M1 y<>rivate Sub Command3_Click()
End
End Sub</P>
<>
* P9 J9 y0 o7 Y4 \  j! g5 b3 ^7 ]: ^Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
* H8 J3 ]) F3 V, i# ^9 m# cMe.Show
1 z% V3 S% p2 C, cMe.AutoRedraw = True
XY
End Sub
</P></TD>
# i) G9 E/ E9 L9 Q<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
( _: C. P3 G7 e

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

kensington

回复 1# llm3-1415926
, J; v$ x  S, t* s! m. m
. d$ Z) L8 I( X! [; f( L, h! G
" O/ k2 o8 t3 r/ K你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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