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

llm3-1415926

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

<TR>
; @6 [$ g  N2 J' m<TD width=*>
: [4 o% ]- ~1 B0 M<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
% o, }7 F( r& M* }<>rivate Function PrintWord(x, Y, Word As String)
0 k' F" f; }0 ]With Picture1
8 g! `* `$ P# s4 Y0 s2 `.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
! T  `* [0 ~' V6 NPicture1.Print Word
* M$ w# t$ f: i& |9 D( lEnd Function
'定义画点函数
. j' j7 I& f+ ^1 x7 nPrivate Function DrawDot(Px, Py, Color)
2 x" i" E( n# [Picture1.PSet (Px, Py), Color
End Function
. I6 P1 r* t+ \Sub XY() '建立直角坐标系
& j3 U# Z$ G- nPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
7 \8 d% u$ E& f, ]* k$ d+ w'设定用户坐标系，坐标原点在Picture1中心
0 r5 A$ m* p3 t0 _Picture1.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)
( v' @) b# |6 NPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
8 R" ]8 J. X' J0 Q2 q3 b" cPicture1.Print "X"
* B) {! ?# n  u2 ^/ u'画 X 轴
4 ]8 q- }& U- z1 C' LPicture1.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)
; z( x/ ]! N$ Y; K7 pPicture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
. a: a/ a. l' o5 I( `Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
7 a& y( g1 O: b8 `End If
- v! d* V/ Z2 i2 M6 ^# ]Next lin
Picture1.DrawWidth = 1
End Sub
, e9 b  r) o8 z/ T1 uPrivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
: U% Y+ O0 a. E2 J6 M. SRandomize
  
8 v1 D: A1 w4 Y" k, I5 ]        SC.Reset
1 ^, ]& U7 m8 p  d2 S9 T9 n        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
0 Y" v: W* _+ v       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
3 U0 L  U) m- L  J* _          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
<>rivate Sub Command2_Click()
( |0 L. e) w) @8 b* KXY
' X! F7 g, M" w) r( wEnd Sub</P>
+ d2 u) k/ r1 o% v3 _<>rivate Sub Command3_Click()
5 j" i+ \: P4 h, j+ m, OEnd
End Sub</P>
<>
Private Sub Form_Load()
4 c! R- j+ Y, R, F8 Y  gMe.Caption = "美丽曲线——数学爱好者"
$ b" T2 ], O$ i4 {8 MMe.Show
/ I) }5 ]6 ^: ~- bMe.AutoRedraw = True
XY
End Sub
</P></TD>
3 H& a- M1 \+ ^, e, r* n<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926


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

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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