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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
# n- O6 f1 n/ P0 b1 |! {' [
# D. m& U2 A; H<TR>
<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
  B+ z) I% p$ i+ T0 d9 q8 S7 Q<>rivate Function PrintWord(x, Y, Word As String)
- Y$ v& @  x2 v% W( r+ HWith Picture1
' }0 {5 _" p  @3 f$ D' S.CurrentX = x
: h' d* a- ~6 G' t2 v7 w.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
& `0 p$ x( h/ A* D8 o3 jEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
2 |! P9 c, Z& f+ s3 rSub XY() '建立直角坐标系
% j/ |+ ?- Y# T) k# m- A+ n0 aPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
6 T/ Q: c) g2 u- H2 z2 |Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
1 Q) B5 R* J' `6 @Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
0 q" n2 p, }1 z8 {. f'画 X 轴
8 X$ |- s% b: ~' `9 WPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
7 i& Z/ }7 @: ~% U% RPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
& N' d) U7 i, ?2 g, _6 a. tPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
7 F  P4 c8 {' d4 JFor lin = -9 To 9
# p# s2 t6 X- f8 D7 n  w; aPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
5 \/ S0 J/ J: P2 ~" jIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
9 S; p6 `- j0 q! w. aPicture1.DrawWidth = 1
End Sub
% s% r+ c. v- {) }  `& |Private Sub cmdPlot_Click()
  [1 m# X: q6 ]XY
2 d* V: T5 n6 k% ~On Error Resume Next
+ N8 c0 t& S$ F" aDim x As Double, Y As Double
Randomize
  
6 k* x9 F  y( |        SC.Reset
% [( p- z2 j& ]4 q! R        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
2 E& ~. t8 e. ~       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
$ f# `5 j$ \$ A1 b: L7 S3 H         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
/ d2 n1 C8 X, C! X/ S% y          Next x
! G% `9 ~! d/ k4 K% ~End Sub</P>
<>rivate Sub Command2_Click()
XY
End Sub</P>
8 r) N, a) j- u+ Q) L<>rivate Sub Command3_Click()
End
* R8 O# x; `& Y+ X$ Y4 T5 D8 M  U8 b; XEnd Sub</P>
<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
XY
End Sub
( I2 `& i$ M- Y3 p( m% {</P></TD>
2 t4 t* d: S3 H; O# ^* X<TD align=right width=60></TD></TR></TABLE>
" [. g. G9 T5 E- u8 E/ _<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
$ k& @, G: @, k: f3 v' N

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

kensington

回复 1# llm3-1415926
5 N9 |( N; O9 v) j" y: W% ]

你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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