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

llm3-1415926

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

<TR>
- }1 G3 p3 i( ]<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
6 v  y' ?8 G2 y9 ~With Picture1
.CurrentX = x
# |- M! ]; C$ f, p; S.CurrentY = Y
6 ^: m/ v5 }6 }- Y' J+ e' V) \.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
0 Z* M9 V& v2 o& L0 C3 PEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
- ?' y# I) ~7 O1 R# K: ?, v' [End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
( q% a6 N/ I3 V; w0 tPicture1.Cls
; D4 ^8 i9 C; P; H8 d4 Z0 I'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
" L' C- Z- k5 K; I" x" X. h8 w+ iPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
/ `( X% ~! u: Y2 l4 V6 `4 ?. {' yPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
! u1 y" m+ l1 E- Q4 a  @. K2 h8 NPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
% F0 T9 m- a# W: e' M; o4 `5 Y) SPicture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
/ p8 W* Z4 S& f! F" J7 WPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
# U% d1 N* J7 D+ z8 oPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
* k3 X, z& F$ w7 J+ [, i$ H' G8 A% H+ y'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
2 U0 D& v- s' e; ~9 C/ E0 vwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
9 x8 v1 G: ?  A5 H3 V" Y' B$ s0 q8 T  i2 zwor = PrintWord(-0.9, lin, Str(lin))
( B% U: A) n. d+ ?6 e2 UEnd If
" ]' R, j/ K0 I0 O$ z# LNext lin
Picture1.DrawWidth = 1
End Sub
. m7 @% `! l, M8 T$ u- M4 FPrivate Sub cmdPlot_Click()
XY
+ |7 S. _4 m: ?On Error Resume Next
Dim x As Double, Y As Double
Randomize
  
        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
9 b( R. A+ ]* J2 s; S$ r) ~, H, i         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
3 Q" ?& r6 ?4 Y5 ]( ^          Next x
$ t, }& c7 t+ x: }9 {End Sub</P>
( F2 U2 [. c5 N; x6 w% |) O9 O<>rivate Sub Command2_Click()
7 ?$ s. ~; e, ?& I% d- C3 KXY
' w- ~( A4 \' v1 U7 DEnd Sub</P>
<>rivate Sub Command3_Click()
4 n9 t& n) y4 cEnd
5 B4 s( E' `  |$ TEnd Sub</P>
: r+ i  }; r1 o3 Y; ^; k# n3 t1 i<>
8 V" u- {. A5 X! t8 A9 uPrivate Sub Form_Load()
$ n  D7 o; m" R# I2 D" _) mMe.Caption = "美丽曲线——数学爱好者"
8 f: ]. j' E; YMe.Show
5 j- a5 O5 s+ B8 ?* YMe.AutoRedraw = True
XY
End Sub
8 y' c+ @+ I( K</P></TD>
: M' m7 `% }* [' M. ~<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基础的孩子啊，可是真的完全看不懂