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

llm3-1415926

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

<TR>
! r6 U8 S* ?- i% G- B<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
, i) @. g! A# F* n6 b' |8 G8 }With Picture1
: H. a3 x- R* u( n/ |9 }& _.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
) [8 q) L( l) Q) Y& O* n/ cEnd With
! {5 R# l6 J4 f5 q. T" |/ `2 {Picture1.Print Word
" C+ K) m" s% T/ b! |( h( _End Function
'定义画点函数
, l' I! x6 r& ?, ^( GPrivate Function DrawDot(Px, Py, Color)
7 G* R) e/ X6 Y/ SPicture1.PSet (Px, Py), Color
End Function
# |; M5 I, o' ~$ a9 ySub XY() '建立直角坐标系
6 s# }& w, I! j; L* R4 ZPicture1.DrawWidth = 1 '设置线条宽度
0 v: s5 Q% i! @- l6 j5 MPicture1.Cls
+ W9 U+ N  `5 B" X/ r, S'设定用户坐标系，坐标原点在Picture1中心
# Q6 I* |# k+ [/ ]7 q( [: ~2 sPicture1.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)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
3 O* V# _+ k, i% ^6 |/ ?8 j: @Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
8 i3 m4 d# p; I5 LPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
! s- h1 |% h$ v; J% ^) lPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
4 P7 A1 p/ g' j! U' NPicture1.Print "Y"
'画 Y 轴
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)
+ k) i7 @' `. B) i: \If lin &lt;&gt; 0 Then
% Q  Q& S. d; R+ G! R, bwor = PrintWord(-0.9, lin, Str(lin))
3 `5 @8 d( c0 T& N( b5 oEnd If
Next lin
Picture1.DrawWidth = 1
End Sub
! q9 m9 r: T8 B4 I1 DPrivate Sub cmdPlot_Click()
  I4 P- n" |. d7 mXY
9 _" a3 F; d% s0 h$ G* y( ROn Error Resume Next
" z0 a! Q! \+ v/ H6 `; {Dim x As Double, Y As Double
4 K# J$ s' j" O3 B" b. ^Randomize
  
4 R/ Q3 X) M3 B# b2 k        SC.Reset
* n) t1 C3 j6 p5 R/ c3 @1 L( V) e        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
5 Q! F1 ?; k) B" u: o, S/ m6 @       For x = -15 To 15 Step 0.001
$ H( {+ C5 F4 i& B         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
) M1 q7 Q/ z  C          Next x
End Sub</P>
* r3 r( `0 _: h/ t9 P8 f) w<>rivate Sub Command2_Click()
XY
. m3 h; v5 x. S* Q, yEnd Sub</P>
<>rivate Sub Command3_Click()
+ i' g( O" D9 ^5 S$ @End
End Sub</P>
<>
Private Sub Form_Load()
) ?8 t! X8 R1 z0 z2 W  ]Me.Caption = "美丽曲线——数学爱好者"
2 K: K0 c/ K: WMe.Show
Me.AutoRedraw = True
XY
End Sub
; [( a/ Y. ?) |2 ~4 N</P></TD>
  _) W, T0 Q7 f- Q  j  r0 I<TD align=right width=60></TD></TR></TABLE>
: P" c  f0 X, B# r<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
8 G" A4 R5 q/ [* g

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

kensington

回复 1# llm3-1415926

) q7 D+ p! E9 J( B7 R- F* c
% _+ i  a: S! f; ^4 Q& q7 I# j你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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