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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
5 d& @, ?  V$ N
# ?! X9 k2 \1 e' O" {<TR>
<TD width=*>
3 K% e# b* t  A: x4 D; l) _2 ~<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
1 O1 t/ T  L4 T) n+ ^: g3 k<>rivate Function PrintWord(x, Y, Word As String)
, p3 F/ J1 O0 k: a# f2 J( x4 @With Picture1
.CurrentX = x
.CurrentY = Y
. [" h+ S8 y; c8 z3 j( R6 S.ForeColor = RGB(0, 0, 255)
End With
% B$ W- u$ f+ m5 BPicture1.Print Word
End Function
; Z8 C9 S4 C% [9 p+ j( H'定义画点函数
Private Function DrawDot(Px, Py, Color)
" Q6 H; g, ?: D) RPicture1.PSet (Px, Py), Color
0 n( `, X3 g( o' G4 AEnd Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
) _5 N9 e0 j: k. W) ?- E+ KPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
, [3 V- W- `) HPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
+ S% ?1 H% Y/ @: OPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
. ~$ |: o$ _; I, H) c% ]9 G3 zPicture1.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"
( e  G5 v: m6 |6 S4 p'画 Y 轴
, f+ u* c& M- n, {  j% q/ {7 k1 TFor lin = -9 To 9
1 V" B: U- t/ k- v. O' g0 PPicture1.Line (lin, 0)-(lin, 0.25)
5 ?7 O# q/ M  Swor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
3 @  g2 \, ]" H( x) l( T7 wIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
, B. u8 n2 h/ T4 B5 ?& X' J; |End Sub
' X* t  P1 C1 g2 y; CPrivate Sub cmdPlot_Click()
XY
# Q& K) e+ \( L: w/ O: wOn Error Resume Next
; h* v- p; {: y! r8 ~Dim x As Double, Y As Double
! M/ }; ]. d; p) K1 Z- ?Randomize
" J* B3 e. [& H6 E' K  
        SC.Reset
, g: }& M# q$ g# ?        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
! g2 B. F* }. q* b       For x = -15 To 15 Step 0.001
- ?- D3 X3 |/ V9 e; P) _. _         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
4 `8 }: O) h' ]8 p; @# d# s/ T  v          Next x
/ n! p8 G8 k& A% U7 eEnd Sub</P>
<>rivate Sub Command2_Click()
XY
End Sub</P>
<>rivate Sub Command3_Click()
End
End Sub</P>
<>
Private Sub Form_Load()
9 [4 A1 S, r  v% R% c/ JMe.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
XY
End Sub
</P></TD>
$ t* [  x; s- O<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
% D: K. [* M9 v( N" a3 u

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

kensington

回复 1# llm3-1415926
4 p0 Z9 F, B# ~% {/ B
" ]# X% P! n& q2 n% [- I
% S$ M" C$ ?( E/ u+ x* g) N你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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