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

llm3-1415926

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

& |: m' S) y! n2 g! S: V* o<TR>
<TD width=*>
% |6 e- P/ I" ~<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
" g3 H- s+ ^6 o! h2 s) q- t6 e: N9 BWith Picture1
/ S; H7 o( S& e8 A( J) c5 l4 X.CurrentX = x
% k. c! q. a; _& v+ w.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
* C0 B/ ^( o7 R" R! \5 ?End Function
6 o+ p) z5 u4 ]2 E: y- w9 `, w' ['定义画点函数
' }6 g2 d0 _  i9 h' RPrivate Function DrawDot(Px, Py, Color)
7 b- r4 V2 ~+ a4 l3 B) k5 tPicture1.PSet (Px, Py), Color
& d5 ]7 R( S$ k1 I# p1 @End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
3 ~) S! I( t. @  _& M/ \'设定用户坐标系，坐标原点在Picture1中心
! ]# [8 y* W# E1 K+ J, @2 j$ S( Q2 }Picture1.Scale (-10, 10)-(10, -10)
1 d+ u0 w' r4 b- ^Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
# a9 O* B5 m: A' xPicture1.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)
9 g) v1 {/ @3 v, s; MPicture1.Print "X"
9 H; E% ?& M$ \'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
' ]' s7 u' h$ T" ^, NPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
# o: Y0 S1 l4 k0 s'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
4 S# x8 ?- S0 I6 y0 R/ ywor = PrintWord(lin - 0.5, -0.5, Str(lin))
0 j. x7 T0 j: p2 k4 s' y5 pPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
: _+ l. Y, H2 JPicture1.DrawWidth = 1
) y, b) T, g; PEnd Sub
Private Sub cmdPlot_Click()
3 k! b( Y  J3 |, ]2 YXY
8 [$ x/ e/ ]% x% TOn Error Resume Next
0 |& s& ~( I7 V5 Z) }' b: ^Dim x As Double, Y As Double
' G$ T5 K2 y9 f! q0 _7 |Randomize
+ g, J9 Y: D- K" ?6 I  N$ ]& ?: N  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
4 t; Z5 K: z) ^8 d: T4 p& D          Picture1.PSet (x, Y), RGB(250, 0, 0)
" }; p8 M8 |4 k$ F& s" \          Next x
4 ?+ w: w" x5 {: P3 K; vEnd Sub</P>
3 V' l5 X# x; e<>rivate Sub Command2_Click()
6 V9 ]* L7 y, k( C; UXY
End Sub</P>
<>rivate Sub Command3_Click()
End
! x) Q/ q+ \6 ^- [7 y3 F6 |End Sub</P>
5 k" f! `- N8 M. u# C( s8 f<>
Private Sub Form_Load()
" \6 F. U  z# D7 dMe.Caption = "美丽曲线——数学爱好者"
- O& v  I2 D1 g1 eMe.Show
Me.AutoRedraw = True
XY
End Sub
" U: [% \  M! R% Q* q5 b" h1 w</P></TD>
<TD align=right width=60></TD></TR></TABLE>
+ Q  ]4 i  f5 ~/ g4 ^  N<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926
! X# T9 A# U' T: f* c. d1 X  d

你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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