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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
+ l( ?9 e9 S  K) t
$ `" N9 ]1 w: l3 v* E# w/ V0 ^7 s<TR>
<TD width=*>
  u. A! T( B. {, c: o<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
. A, `, |  s( C9 }5 T.CurrentY = Y
+ I) p8 q: b; N" J9 a.ForeColor = RGB(0, 0, 255)
End With
. C1 O" `- `2 q4 X/ h6 e8 R( lPicture1.Print Word
End Function
'定义画点函数
/ N- q1 I2 m; ~$ t+ l5 |) h. CPrivate Function DrawDot(Px, Py, Color)
2 u3 B9 Y  y) Q* uPicture1.PSet (Px, Py), Color
End Function
; h/ b% c* P% j* CSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
9 o% g. D& G) `# Z# L, Y& o5 c! kPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
" ^9 `* M, W" t* @Picture1.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)
Picture1.Print "X"
! O9 I1 P$ z" @3 N'画 X 轴
2 E- @% j! u6 D8 wPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
$ Y6 d0 ~1 @( aPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
- O9 E2 A5 E1 ?4 V5 |7 vPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
5 S5 |8 K! o+ g) j5 I/ jPicture1.Print "Y"
'画 Y 轴
7 V* H( P6 i+ {4 l$ U+ y9 P5 FFor lin = -9 To 9
- L; [/ h" s. m" ]Picture1.Line (lin, 0)-(lin, 0.25)
$ D8 _/ ^& F: X! k% swor = PrintWord(lin - 0.5, -0.5, Str(lin))
& O3 Z+ u4 d5 U, s& S1 I, ~Picture1.Line (0, lin)-(-0.25, lin)
# f# J' R6 ~& ^If lin &lt;&gt; 0 Then
7 g$ `( G* f1 Y" f5 ?wor = PrintWord(-0.9, lin, Str(lin))
End If
9 [9 U5 D* {, X( N2 m4 L% nNext lin
Picture1.DrawWidth = 1
9 e0 j5 d$ r2 J# s- G2 Y2 }' ^End Sub
* V+ F* t1 E3 R& D+ ]: u. U7 aPrivate Sub cmdPlot_Click()
XY
On Error Resume Next
, U1 l+ M* }! w8 {" T# HDim x As Double, Y As Double
/ s1 F& s  q, H. z& s# q% L9 m0 TRandomize
, ~1 e( @" V$ ~" E  
        SC.Reset
8 Z4 u# @  i; x' ~$ c2 r# C        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)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
6 H1 _9 E+ ]) F# ~<>rivate Sub Command2_Click()
XY
8 O# v+ k; n/ P5 @+ k! d) z+ YEnd Sub</P>
<>rivate Sub Command3_Click()
End
End Sub</P>
- H. U2 Y7 ^" P2 v* q4 P* r" c# j<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
& \+ T1 |* E: n8 ~9 M( m3 Y6 H% p5 BMe.Show
/ _6 V6 o" s3 R8 G% i# x, TMe.AutoRedraw = True
  s- c2 S/ N, W) [1 X  p0 v, z' s7 SXY
End Sub
8 Q6 @3 o% X& H0 L9 `</P></TD>
<TD align=right width=60></TD></TR></TABLE>
8 V/ I2 _" e$ E" t2 b* ]<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

诺＆然

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

诺＆然

亲，你在写什么啊？

sxjm567

好帖，确实好帖！

水木年华zzu

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

数学者

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

kensington

回复 1# llm3-1415926


# ?% t6 s& u3 Q0 j你在搞什么呢？………………………………………………