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

llm3-1415926

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

* ]% ^# E" P4 Y- t- M6 i; G<TR>
<TD width=*>
! C; [9 L& k. H, d( ]<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
. T( e8 A# S* a! {8 M<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
3 g5 h) `/ |3 U2 a% O! T) @.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
0 ^# D& {0 A. u* r" RPicture1.Print Word
End Function
* E  l4 `/ J# q# o'定义画点函数
: T9 B) m: i; {( y6 _) c/ \5 ?1 tPrivate Function DrawDot(Px, Py, Color)
9 B1 |9 g( [! Y6 {) U: UPicture1.PSet (Px, Py), Color
End Function
0 v/ K3 A( [5 m( D2 \, I8 _Sub XY() '建立直角坐标系
5 h% Q! z8 U9 i! WPicture1.DrawWidth = 1 '设置线条宽度
. D& \+ ~- R0 A% jPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
( Q5 t0 g- M: z7 P- ePicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
; w: X: _6 `3 ^Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
  v! c2 P* ]! j4 fPicture1.ForeColor = RGB(0, 0, 255)
8 I9 A: O/ \7 _! X* M7 CPicture1.Print "X"
'画 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)
, h( m2 A/ b; j3 A7 p% uPicture1.Print "Y"
7 H! n8 a/ Q5 P" }2 A" g'画 Y 轴
For lin = -9 To 9
. m& S  u8 H! f1 |3 g2 \% {Picture1.Line (lin, 0)-(lin, 0.25)
( A4 D; n# C+ o$ ywor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
5 n/ C, N! V3 P% b6 ^4 C: h2 jIf lin &lt;&gt; 0 Then
6 h3 a0 m; I: j( ]5 b( Cwor = PrintWord(-0.9, lin, Str(lin))
, I$ q' ?9 D, ^/ y, a1 Q5 d( W3 t. LEnd If
Next lin
Picture1.DrawWidth = 1
) |+ S1 R' b# A% zEnd Sub
! e: x% C( v' Y* y6 {. t* v( YPrivate Sub cmdPlot_Click()
6 K1 m$ Z5 g+ c: vXY
9 r, b  b  P2 e7 B" ?1 k* hOn Error Resume Next
Dim x As Double, Y As Double
Randomize
- ^; ?" G1 K2 e3 ]* d% ^/ F  
' U7 n$ W% a( g        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)
8 [7 ]/ d! q  l, |5 k- n% c: e+ ^# c$ a         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
, B% f7 A  J; F. U$ S          Next x
& d! Z: c$ l4 E$ n- D7 kEnd Sub</P>
<>rivate Sub Command2_Click()
- D: V. h* a6 `XY
End Sub</P>
0 G- [! q$ }! Q; P9 s$ F<>rivate Sub Command3_Click()
" n2 s' }3 ]- dEnd
' @' C7 ~  E5 n. D5 wEnd Sub</P>
7 D1 w  q7 }# m3 y<>
+ t$ l' |) Y9 n4 pPrivate Sub Form_Load()
7 B/ q0 F* v9 t# AMe.Caption = "美丽曲线——数学爱好者"
0 U4 g$ a) K* O& lMe.Show
" d% x) D* H! w. W, jMe.AutoRedraw = True
XY
& r- n7 V0 Y) s4 ]3 ~End Sub
4 Z7 ]* h9 d. O5 M8 N) [</P></TD>
6 ^5 F+ V8 U  J1 S<TD align=right width=60></TD></TR></TABLE>
5 P5 L4 t4 T* }; ~, {. y<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926


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

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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