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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
/ @: H  h( H3 n1 Y
+ [5 A# G( F4 I/ S. y- T3 ?<TR>
! S$ l2 y3 K/ ~# p# B& Q7 X$ X<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
. C( G! a/ q0 I5 sWith Picture1
7 ^" b% \. n- O2 A0 F6 X.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
! ]% ]) j' M5 b# F- rEnd With
% p' U1 K( t$ G- h- C) L9 SPicture1.Print Word
End Function
'定义画点函数
; f3 `) f6 z6 H9 n" ]Private Function DrawDot(Px, Py, Color)
& @' `$ Q1 _% \3 ^1 x) b8 N$ |Picture1.PSet (Px, Py), Color
# o6 ?" L* ~7 n5 ]End Function
. m8 P7 {3 w7 X  VSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
* ^" u3 E8 b. o'设定用户坐标系，坐标原点在Picture1中心
! J. N8 L) I; Z: q' _3 |5 v  uPicture1.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)
2 ]6 i, G& P, Q7 P. Q+ [" APicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
; D7 b# @. G. d- b+ f* bPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
* e( i3 e' U% aPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
  N9 O6 z/ o" ]Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
8 i; q3 |* |, H- m( e* G'画 Y 轴
! P2 s4 Z& l9 i. R4 m  gFor lin = -9 To 9
  C* ^3 t* C% {$ m- EPicture1.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
+ F0 f( e& i7 p+ \/ Zwor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
- f# e( T5 l5 a% i7 S( j$ T* d2 t% N6 xEnd Sub
Private Sub cmdPlot_Click()
XY
$ t0 o) V$ u9 m9 [1 zOn Error Resume Next
! q0 u+ ]" p; n3 t) M6 GDim x As Double, Y As Double
3 S( O; Q9 `+ M4 T4 zRandomize
  
9 s" ^* p6 \) I: D( Q6 e7 C        SC.Reset
' {) p4 y5 i8 f0 v        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
  T, n, V/ m( w% }       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
' D6 K7 f$ Z- U9 C, w) D. {; [! ]. q         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
! {* y/ R- z4 u$ x) |* K          Next x
End Sub</P>
/ N, q; n& P1 v<>rivate Sub Command2_Click()
% T7 a% g5 G8 D. E+ ]# yXY
% \/ p1 _; ?5 E' t1 l! W# a/ XEnd Sub</P>
<>rivate Sub Command3_Click()
" Q0 S7 i6 Q: M. J' c; uEnd
* d- x1 V# B! Y% XEnd Sub</P>
<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
( T) }& g2 [) k5 [6 h% W! `XY
End Sub
- }: l) `$ y, X</P></TD>
. b$ C9 w. {/ o<TD align=right width=60></TD></TR></TABLE>
3 L$ i. m) k: T/ e: g  j2 ^<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926

1 \$ U6 n! G$ X$ L) ~9 j
- m( e4 R9 q  w3 w2 E* E3 I你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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