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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
9 K, |% c( M5 u2 C% ]8 u" A
<TR>
6 |6 J# O( Y7 L6 p4 R$ o& u<TD width=*>
9 {; _: `* U. r2 K<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
) P+ m0 p& {" r' k5 F" w<>rivate Function PrintWord(x, Y, Word As String)
# Y: m1 K: B6 Z3 ]' |1 EWith Picture1
.CurrentX = x
9 }0 e, e6 m  \+ ]1 I& a.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
" R5 @( ^; U8 r+ u6 ]End With
3 r- X( @2 C+ o" W  XPicture1.Print Word
End Function
( g2 W5 L) z- T'定义画点函数
Private Function DrawDot(Px, Py, Color)
5 v* r( W) e- @7 LPicture1.PSet (Px, Py), Color
) i" I3 d" \/ ~+ u  XEnd Function
& l5 }9 Y# T8 _: ]7 i" g" C- ySub XY() '建立直角坐标系
. f+ E/ m; N- xPicture1.DrawWidth = 1 '设置线条宽度
  Q8 Q* h7 K3 u& w% K* rPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
7 t6 ~" x+ m% FPicture1.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)
0 @* |: g1 ^' S9 RPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
5 A/ w# O: b4 w8 ^  @0 K0 CPicture1.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)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
6 G+ G9 z3 b7 Z7 y1 U0 X' h2 r- cwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
/ q; K& a1 @* s: Y! GIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
4 o: O+ c- u+ `- t& l! ~End If
9 G& \0 z# A5 p0 gNext lin
* ~1 |; a  b. j( v) @$ F, b, L# DPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
- e5 T9 J) \2 J' G+ L/ X  h6 OXY
% Z8 s5 e6 O; o0 gOn Error Resume Next
7 N* ]4 A. ~8 T% I* k2 SDim x As Double, Y As Double
" l: U- I% }8 i! PRandomize
, e4 z2 y" \# c6 U: U* H  
        SC.Reset
! v5 \5 J( |2 a, z1 t# p        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
, {1 }1 ~$ f/ P( S& F' S         Y = SC.Run("runthis", x)
# U; j& H1 X; T4 ?         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
1 j7 }( F% u- p* u, c2 ]; Z8 q( |          Next x
( j" t. L' p; H7 D" J5 pEnd Sub</P>
<>rivate Sub Command2_Click()
XY
End Sub</P>
. }9 k! m2 i9 a* \4 l<>rivate Sub Command3_Click()
End
/ m8 w6 j" K! _0 k" Q- hEnd Sub</P>
$ w3 w8 U! E$ R' N5 w<>
. m7 x! f, D8 [/ Y" qPrivate Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
: @+ }0 Q  ?( K' f- P* s4 [3 bXY
End Sub
</P></TD>
<TD align=right width=60></TD></TR></TABLE>
1 H- w* d! b- J' Q+ p# M9 {<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926

" O' Y# _5 I7 g
8 b& M7 G% B) [2 u% [你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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