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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
& M4 I/ a1 C7 C0 W4 t
. q- t; Z0 v: W9 t<TR>
1 M% A, q* w+ r3 u, ]' P0 |<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
0 P+ h# s/ x& \( jWith Picture1
' \/ f" E( m9 y5 i* z.CurrentX = x
.CurrentY = Y
& ]3 ]: k1 C6 d$ L% l6 g.ForeColor = RGB(0, 0, 255)
End With
) V" E, S$ m% e7 EPicture1.Print Word
$ @$ W  O5 e& U  d0 j' SEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
& d( Y0 }5 b# T3 B! M3 A4 Z  nEnd Function
4 z4 d  o# Y5 I+ n$ T+ {( VSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
3 i9 v: w: Z0 jPicture1.Cls
" ]& s2 ?: U# d- f" j* P; I* g/ O'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
% |) l, o  p. x& Z7 z8 b8 n. y) {% FPicture1.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)
! o! J  [- c, `8 s* T3 OPicture1.ForeColor = RGB(0, 0, 255)
* H( x' F4 n) A- l. SPicture1.Print "X"
" K. e; ]( v2 _8 }'画 X 轴
6 \5 l3 B  J8 O& d/ M8 x  yPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
* |. w0 G* c, _4 v, F) bPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
8 g: y& ~1 V0 c' T) T" N1 gPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
1 X3 C! ]% c  |& yPicture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
' \) d) p( v! o1 _% o! f3 h& cwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
3 Z: L* Z  z. M, N9 ~- n2 lwor = PrintWord(-0.9, lin, Str(lin))
End If
" n5 \1 Y* ?# E* xNext lin
( }5 _2 x8 y) K: x$ \Picture1.DrawWidth = 1
1 a' D9 P" o: T6 ~' Q& F6 c7 e% y& r; MEnd Sub
* {; b) P, n, c# H5 O) ]Private Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
7 c3 \' f1 l3 y2 h- K! _Randomize
  
        SC.Reset
6 h4 L5 S( w* G+ a( Y+ q9 ^        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
% _( o  v4 o: u+ `1 S% l( I& z. z! J         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
& e( o9 n' D5 e7 xEnd Sub</P>
7 I- v! M) W: |8 |<>rivate Sub Command2_Click()
4 i  |( }' R, V2 ^& kXY
* O# q# e5 }3 z6 V" [End Sub</P>
<>rivate Sub Command3_Click()
End
/ z6 Z" t* V" h1 z5 @+ ~& @' t# eEnd Sub</P>
<>
Private Sub Form_Load()
6 t) u% r4 x7 h. A$ w8 r' W9 @Me.Caption = "美丽曲线——数学爱好者"
: E% c) y# b! ]Me.Show
Me.AutoRedraw = True
% p+ |. I$ W* b; U( |$ q8 i+ ?XY
6 c+ {1 c- `- WEnd Sub
% S0 E" P  }% C5 H</P></TD>
  m# g. g' w8 a7 h<TD align=right width=60></TD></TR></TABLE>
) C% \8 `9 x( N& Z* ]# ]8 t; A<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926

8 C7 P. w0 }$ H4 Q8 c, O4 Z
. v, s, X9 H% h8 ~, z' y9 d你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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