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

llm3-1415926

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

<TR>
<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
7 o* X- _- S2 k9 u6 g: `' a<>rivate Function PrintWord(x, Y, Word As String)
, J8 j3 [% U1 ?  J$ dWith Picture1
.CurrentX = x
6 m  u1 i7 |# J5 {.CurrentY = Y
4 F; ~, E" a: t$ [.ForeColor = RGB(0, 0, 255)
End With
7 w2 B' X. I7 a8 U) sPicture1.Print Word
  g- f- K$ y" G& z& T, w4 J  \( ]End Function
5 z3 [, N9 V( y; @6 r'定义画点函数
# E+ A( B) L1 S3 |Private Function DrawDot(Px, Py, Color)
  z" }) r- I; J" kPicture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
* }4 h& w8 i8 M* D- l; q* b' dPicture1.DrawWidth = 1 '设置线条宽度
+ v. v& h7 V; u4 s, LPicture1.Cls
6 f# j( `1 X4 X% j'设定用户坐标系，坐标原点在Picture1中心
0 h8 o6 a, p' r4 B7 _! jPicture1.Scale (-10, 10)-(10, -10)
7 H# Y" ^3 _* J/ r9 L; ^: vPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
% |+ [, A; a  Y, ~5 k$ }9 qPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
1 [2 F( x% ]3 O! t5 ~. R! b" m& NPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
# u" ^/ T& d, \$ @Picture1.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)
0 q. o* R7 x3 w. L2 z$ }, OPicture1.Print "Y"
5 H1 S, j) I" B6 L'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
0 e) r, Z. e% |' N; b4 \Picture1.Line (0, lin)-(-0.25, lin)
) v# P; K7 C5 P  G9 o; j& oIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
: s7 ?# V) U8 {! HNext lin
Picture1.DrawWidth = 1
# v1 u/ b! x* u4 R7 \' ~; `End Sub
9 Q+ R# p; |7 [2 FPrivate Sub cmdPlot_Click()
XY
On Error Resume Next
- e5 q1 f7 J& ]9 e4 Y9 N# xDim x As Double, Y As Double
Randomize
; L, E5 k$ h4 K( _* b# L7 N  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
$ t4 K* ]4 R, i1 C2 A       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
5 Z7 c  T! J6 m7 B5 nEnd Sub</P>
1 L& B% Z4 e3 Q<>rivate Sub Command2_Click()
XY
End Sub</P>
<>rivate Sub Command3_Click()
0 s+ g# v& J: A' EEnd
( K! a5 H9 k* i) x- wEnd Sub</P>
<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
* c6 [5 S$ L1 a' s2 ^% lMe.Show
Me.AutoRedraw = True
XY
5 C( e, t2 I" u$ o8 B) |5 S1 qEnd Sub
</P></TD>
<TD align=right width=60></TD></TR></TABLE>
' \2 G* l% @/ c' C2 R8 |<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

诺＆然

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

诺＆然

亲，你在写什么啊？

sxjm567

好帖，确实好帖！

水木年华zzu

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

数学者

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

kensington

回复 1# llm3-1415926
- q' o1 c8 G2 w" e8 \2 r3 ?
5 T% G, [4 W- s
3 x: f4 C9 b5 V1 l你在搞什么呢？………………………………………………