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

llm3-1415926

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

<TR>
( M& h( C; X0 |% N  e" A% e1 Q) t" s6 b<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
& M$ C0 N" a$ u/ q2 Z" S' @% L.CurrentY = Y
9 w$ k2 E7 O1 C0 T$ j: [0 z.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
# {7 L2 J5 P5 L- U: {End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
) B- e$ O8 o" h' }  A* P! x7 L# ZPicture1.PSet (Px, Py), Color
9 O, K- ?2 v' W, XEnd Function
2 ]) R* p% f; S' L- hSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
. p6 u. [- j1 z2 e/ i" jPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
" I0 K) u* W6 T: i; p( r& ~Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
, j- K- m: E% o5 L6 V+ TPicture1.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"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
8 ^0 L0 a% ^7 l. ~: h- BPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
3 O3 ^6 X2 }# EPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
0 {' S7 [) x. A- [: @For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
8 O% n' T) D3 k7 f% E" G  PEnd If
5 t3 E7 j( f" H% W9 K" h3 zNext lin
; a, b% J* ]. T! z& LPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
! M* T- R; r# [5 a# uDim x As Double, Y As Double
Randomize
7 n  ^  b; S4 h& {' w+ ^  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
5 _1 r, D6 T4 S, R       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
0 j8 A. s9 x8 Q; F3 c          Next x
3 I- c: \: n. r- aEnd Sub</P>
3 r: F$ x; f! l' }3 f% y2 r<>rivate Sub Command2_Click()
3 N; S% g8 I' b( Q4 \) ^  lXY
# o9 J: B3 ~7 Q1 ]6 t+ WEnd Sub</P>
<>rivate Sub Command3_Click()
End
$ x4 W2 _+ Z0 n% a0 C- nEnd Sub</P>
<>
# Y4 j* J& l, qPrivate Sub Form_Load()
& H, j% i+ @$ e7 F+ M$ lMe.Caption = "美丽曲线——数学爱好者"
Me.Show
( ^  ]) T8 c" mMe.AutoRedraw = True
# D: f' |( h" r% RXY
1 g! z9 W/ O& H) e" Z; |End Sub
</P></TD>
& q* J$ j2 H- H% g# u<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


3 l2 P9 m: b9 d你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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