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

llm3-1415926

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

0 o: ]0 f3 c: b9 n: x<TR>
: u; ~" j3 }! u' q& t<TD width=*>
/ o+ T) I# n% Z; W7 w<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
, ~- ]* W0 X3 D7 Q.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
( C- t1 q* t8 }6 FEnd Function
7 r+ N& S; X0 o'定义画点函数
Private Function DrawDot(Px, Py, Color)
/ [- Q6 u3 A& k. [Picture1.PSet (Px, Py), Color
2 H6 I" ~9 r5 g9 b( O& m; rEnd Function
) ?+ T, T* t' z' j- q; ~# b) ^; ESub XY() '建立直角坐标系
( s; T& s% U  h' P. f9 tPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
3 j4 ]/ N3 n9 W'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
; G6 q; U2 B& h; aPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
( f1 {) q  E& Q% cPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
; M+ `4 J; p' [Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
8 B, Q8 t5 L4 L$ J6 P4 _3 F  _4 lPicture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
, x; G9 y/ E6 h2 J3 N  B+ @+ PPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
/ @8 e  q# l0 G' {/ P+ X9 sPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
* ?! h% v; a0 l+ v  J! y- V7 }'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
5 g" F- b. J3 x& Z# h' c5 XPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
' z, f! C" f  B& x+ TPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
0 v  y& m2 n8 a' T1 dDim x As Double, Y As Double
) V* b3 V3 J+ gRandomize
# ?' G! N8 t0 ~8 ~9 u  
        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
. k& j5 u% _. Y8 K         Y = SC.Run("runthis", x)
, @+ N! V' A* [) v2 s/ D         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
% g5 K/ S! o4 B. @; S( E          Next x
End Sub</P>
) ~; d6 L2 g: g) _  u<>rivate Sub Command2_Click()
* Q1 p3 Q1 @' O- ^: @4 O* O; ~XY
5 W7 Y1 G5 c* ~6 k- uEnd Sub</P>
7 `8 [: s) W1 T$ h8 z<>rivate Sub Command3_Click()
End
End Sub</P>
, J- d/ L5 x. u' ]* h<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
1 h( u+ d/ e' T; ?3 BMe.Show
  H9 H( v9 f  z  KMe.AutoRedraw = True
8 H8 f" Y8 \5 A) @* x; tXY
. d8 M$ Z2 T! t' ]. x0 o1 yEnd Sub
  P1 ^# w+ `/ I</P></TD>
<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
+ p8 B  ?+ T; F2 M
, U! r, h' H1 S5 N. E! w
你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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