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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
3 q1 m) n& {7 p7 z. m
! y- Z! F' v) F, ]" X  i, Q<TR>
1 o7 B, Q! z& C7 B6 l6 G7 W6 X$ W. T<TD width=*>
' b7 c3 I7 j: e0 N<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
" T% n+ N* m) P. e2 K<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
, Y# Z# w1 T) m# ^.CurrentX = x
4 M9 A" Q3 v3 G/ _.CurrentY = Y
+ e; D* t- c% c6 R% o' J.ForeColor = RGB(0, 0, 255)
End With
0 z' _- B/ b$ o3 ^; _: pPicture1.Print Word
End Function
" k) q0 O- q: v" R'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
$ r7 d8 y& s! M7 W; E, `7 tEnd Function
Sub XY() '建立直角坐标系
& `# ~- ]9 s7 r! Y3 L$ \7 GPicture1.DrawWidth = 1 '设置线条宽度
. H! y1 d3 p4 F; tPicture1.Cls
! _6 a9 k& }1 _! O' Q'设定用户坐标系，坐标原点在Picture1中心
- n$ ^, x) R9 ^& j9 SPicture1.Scale (-10, 10)-(10, -10)
' f. R5 N: G$ J8 D" c/ f7 Z: Y& KPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
7 V+ @2 V! ^  k$ u* r! G6 R: }+ M1 {Picture1.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)
) S* \+ w4 M2 ^) ]5 RPicture1.Print "X"
'画 X 轴
/ M5 o2 U! h. \# D3 X& NPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
1 k( n2 S5 U% I- iPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
3 b' {( o3 B/ \5 q* R' wPicture1.Print "Y"
* [6 Z+ C; l9 [0 c8 ?'画 Y 轴
8 x, w2 D/ v2 {3 G, o* UFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
- }. R0 r8 ?5 u  k) U! G8 F! JPicture1.Line (0, lin)-(-0.25, lin)
- X* v) E4 ~4 K( i% D+ G2 t2 [& lIf lin &lt;&gt; 0 Then
- m1 V. P: e; qwor = PrintWord(-0.9, lin, Str(lin))
2 W+ y9 J/ |& T0 F. u8 j/ aEnd If
Next lin
! `( {/ r6 D+ m1 ?2 Y7 k3 K. E) sPicture1.DrawWidth = 1
End Sub
7 t6 R3 F, `" G/ XPrivate Sub cmdPlot_Click()
XY
; |  g" s* @$ ]; d+ [0 {! K8 E( ZOn Error Resume Next
! l7 M2 S  S) R( U. l& K" I' R6 JDim x As Double, Y As Double
Randomize
% y& h8 P' V: d' X6 O1 A# {/ E6 l) \  
$ C/ ?3 R* Y: j! e        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
, {" s$ k. R# I& e1 h1 m* z6 u          Picture1.PSet (x, Y), RGB(250, 0, 0)
6 B2 W3 T3 L* ]6 O% ^$ k* k5 `          Next x
End Sub</P>
6 Q% T6 V. p0 I0 e, X/ r% w4 H<>rivate Sub Command2_Click()
XY
* Z, ~# _5 o2 o( k" d4 ^) P, m  hEnd Sub</P>
- C) t" x! G& N  z/ d, ?<>rivate Sub Command3_Click()
End
. K8 E* I$ D+ l$ }End Sub</P>
: h0 O2 u. L, e; S! V<>
6 w+ T1 I: g. OPrivate Sub Form_Load()
0 o) ]* \( [6 T" Z* ^Me.Caption = "美丽曲线——数学爱好者"
* i7 k9 Q: S( j# ?- \3 `Me.Show
Me.AutoRedraw = True
( b0 ]5 N8 R& j0 Z3 hXY
End Sub
+ n: T0 d; S6 w0 C- z</P></TD>
3 M6 A8 @1 P$ j! F<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
2 b! a" p6 h$ V

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

kensington

回复 1# llm3-1415926
6 v4 N" \& Z( k" b

& a* ~5 ?$ f- ?  l' z$ j6 ]/ U7 H你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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