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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
' |/ O% a) p' n8 v% H$ D, f6 M3 E# C
<TR>
<TD width=*>
4 p) P" ?/ G8 V0 c) J+ k  r7 P<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
, N4 o- n0 y7 C  fWith Picture1
.CurrentX = x
- |  ~% {# M! M) I1 n.CurrentY = Y
6 O- s7 @& G, h0 G0 o; P.ForeColor = RGB(0, 0, 255)
0 I1 D" L& f, _* T+ |" iEnd With
Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
5 J8 P' R+ D' v$ m. Y3 {) H* ~; jEnd Function
% \& }% ]& W2 @7 q8 F, OSub XY() '建立直角坐标系
; @2 c9 l' {) c  x4 `: uPicture1.DrawWidth = 1 '设置线条宽度
/ o% c8 [: j9 H, fPicture1.Cls
1 X! q6 X3 g, ~4 N0 ?1 c'设定用户坐标系，坐标原点在Picture1中心
( t8 d, p$ L3 z3 ?3 b+ B7 YPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
5 w: s. m) t+ h5 L6 T2 cPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
9 Z! W2 _! n/ S3 [- I. kPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
4 ~7 Q9 X# y; D$ b, V6 b$ k' m/ k'画 X 轴
5 B6 c  A* |0 g8 i5 r, iPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
, P$ ^. ^1 i6 c) fPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
, O$ g+ Y9 b7 v! aPicture1.Print "Y"
9 T6 D0 G- L, P& A0 H2 v! p0 {'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
, B! C; k6 s  P( j" U1 Q2 cwor = PrintWord(lin - 0.5, -0.5, Str(lin))
7 w7 d- l9 H& R0 iPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
* _& r. S; k4 x, A7 d$ Nwor = PrintWord(-0.9, lin, Str(lin))
" d& @; V7 V! eEnd If
Next lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
7 N9 e$ Q+ c/ }7 ]8 o* jXY
On Error Resume Next
( Y) J& Z8 `/ U: ~% d7 L3 pDim x As Double, Y As Double
. l, O$ Q2 G3 F" NRandomize
! ^2 ~; V" p  p- D: |( R  
2 s+ W) D7 R( i6 L        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)
, m9 ^0 p- D; y2 p: l+ N% z         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
9 h$ j  }- k- H# h* R          Next x
End Sub</P>
1 M7 e! {" o" m. U<>rivate Sub Command2_Click()
XY
End Sub</P>
<>rivate Sub Command3_Click()
4 U6 k. x7 _. K" a5 s1 N+ J6 XEnd
End Sub</P>
<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
& Q4 J* i; {  B3 qMe.Show
" Y7 K8 V1 z9 u$ Q/ T# n$ w# ^! YMe.AutoRedraw = True
XY
. e% J4 g3 W' L  KEnd Sub
</P></TD>
<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基础的孩子啊，可是真的完全看不懂