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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
- H- f* O' I3 n- k1 O
<TR>
<TD width=*>
5 C  i: q! u+ p0 B# s<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
' n& r# e. f+ FWith Picture1
7 ~% P$ |- o7 h4 T8 r: _1 Y. L.CurrentX = x
.CurrentY = Y
0 L9 g  E  \- o+ x9 a% b( B.ForeColor = RGB(0, 0, 255)
End With
: L9 n" A3 a; m4 `Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
- d6 A* n/ w* X" l7 s' {Picture1.PSet (Px, Py), Color
. J  g7 m8 l, KEnd Function
; r( S7 E8 o. A0 i5 P: B& F4 ^% eSub XY() '建立直角坐标系
3 E2 F( P& F* J, E; e7 EPicture1.DrawWidth = 1 '设置线条宽度
5 y: Z" X6 V3 w& o6 [Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
4 I  d+ h# `1 i" ]' b9 }Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
3 h7 L* ?, {. H, [' f/ Y6 L' M2 mPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
: a; B" H: E* T8 ?Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
$ B% f7 ?8 u& y% u+ u: ^! D; S- yPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
$ r' z9 P) ?3 YPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
0 V9 [$ q! Z+ M+ sPicture1.Print "Y"
'画 Y 轴
% D& k5 Q3 B/ m. r: v( s0 P1 Z: sFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
0 P* E  P/ e% J" f" }If lin &lt;&gt; 0 Then
. ]8 N4 C% |6 e+ W; L* c1 zwor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
4 V( k5 C: W7 ~# G; w/ TPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
, b: |3 L: o" F2 WDim x As Double, Y As Double
' n) Z  i  _$ O2 ^  C3 i) XRandomize
7 @3 m6 l( Y! W$ }5 z4 O4 b  
        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
1 f8 v# G, d9 W: A. s& U4 i3 J. Z         Y = SC.Run("runthis", x)
! Q/ z8 ]2 o& c" ~5 y         DoEvents
: \9 L  {9 K0 o$ C9 Z4 q          Picture1.PSet (x, Y), RGB(250, 0, 0)
" j1 @; k8 y/ p  S# ~- o3 N          Next x
$ w: _$ U/ k3 V$ m5 N' q- c: t1 jEnd Sub</P>
<>rivate Sub Command2_Click()
! t$ a, [4 v6 I! x3 D3 cXY
4 v$ W5 C- c( E  }+ D: BEnd Sub</P>
<>rivate Sub Command3_Click()
End
End Sub</P>
<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
Me.Show
* B+ o3 H7 N( \  g4 zMe.AutoRedraw = True
XY
End Sub
1 n0 @9 ~7 e4 X/ t% g4 ?" [; G</P></TD>
# z4 E7 H0 _4 H5 t, A% J7 V/ r<TD align=right width=60></TD></TR></TABLE>
0 h& O$ `; g' p; B3 R7 ^<>为仕么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基础的孩子啊，可是真的完全看不懂