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

llm3-1415926

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

<TR>
& u6 p* W5 A& e<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
+ g0 D3 n- i" c: `* z# ^; h5 X- `<>rivate Function PrintWord(x, Y, Word As String)
0 b5 P5 \! j) k; a& p) }2 @With Picture1
.CurrentX = x
9 I3 m5 b, c9 I# {$ p1 g; P' h.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
/ k& {; R# f  l9 {7 s  \* `: G1 t7 qEnd Function
$ |: U6 H3 k% R  R' n( f* b  t'定义画点函数
Private Function DrawDot(Px, Py, Color)
2 O  C( G% w2 j* NPicture1.PSet (Px, Py), Color
8 y. r) G* o& s8 G/ y! LEnd Function
3 @& h/ X7 x' Q* u& q: N( ]3 TSub XY() '建立直角坐标系
, {5 R- p5 D, n, M' B, [Picture1.DrawWidth = 1 '设置线条宽度
$ a3 _( ?7 P+ B9 P# B5 CPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
& z) A( f8 b1 GPicture1.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)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
( H  c1 W3 i& p9 Q/ r; `9 o$ w'画 X 轴
. \* [" m3 T. N# @% C6 iPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
, x- C, N" X! j6 C) j$ C1 ]Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
7 N  F' i& {; a4 N* D5 dPicture1.Print "Y"
+ S( u/ u% T! C9 b( E7 W! y5 S'画 Y 轴
: K. r) p5 Q* K$ uFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
) o3 A, ?. g+ qwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
; K: h1 G, A, {wor = PrintWord(-0.9, lin, Str(lin))
8 h& Q) G3 s1 b+ T" i' mEnd If
Next lin
Picture1.DrawWidth = 1
End Sub
8 a7 T" r+ c1 Q+ y5 a; |* pPrivate Sub cmdPlot_Click()
9 B2 [& n, k* WXY
On Error Resume Next
Dim x As Double, Y As Double
+ p/ u5 R6 ~2 e* {Randomize
  B- ^+ T, S$ m  
        SC.Reset
( c1 W" K5 t7 G! M        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
# b6 x, L* D% F) F6 Q       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
# {* ]$ \' `1 l! R- Y# s# }3 f          Next x
End Sub</P>
<>rivate Sub Command2_Click()
' R9 V, k: Q+ zXY
End Sub</P>
# B4 p0 K$ ?. C. K1 ]<>rivate Sub Command3_Click()
End
+ g0 f, q5 v- K& |9 f$ e5 l3 I# xEnd Sub</P>
$ t$ T3 x9 W, m" p<>
! Z# M9 }& H- QPrivate Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
/ ]+ T, B+ w; @Me.Show
Me.AutoRedraw = True
. t( A7 J( `8 w; K5 W) ~XY
End Sub
7 n+ x% ?: \, ~0 x( Y</P></TD>
<TD align=right width=60></TD></TR></TABLE>
$ b; ]% G/ ?5 j* B! W8 o& x<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
% p$ d! J! `6 |" K4 f8 }5 ^0 m

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

kensington

回复 1# llm3-1415926


0 Z# Y4 R: {  w. p- ^你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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