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

llm3-1415926

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

# Z. F0 O8 ], G; K! B) P% o8 Q# F<TR>
. Y0 E. N# T6 Q<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
: ~/ S# W7 U# N% L7 u  ?<>rivate Function PrintWord(x, Y, Word As String)
, N0 N8 e* t; L2 Q# G+ _  ?With Picture1
.CurrentX = x
.CurrentY = Y
( H: `+ o% C( H+ _" u" e.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
# F  n; p0 z8 _/ K: bPicture1.PSet (Px, Py), Color
End Function
9 ^- R& J1 B+ }2 ]0 G; A6 [  KSub XY() '建立直角坐标系
8 E: R9 T% Q9 k. I9 N! J1 w: zPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
* s$ x  c/ n% v. U9 k% J6 G5 o! }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)
+ ~. @" K; ~; {! x/ \Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
9 Y; c4 G! E0 t  p" h+ @: ePicture1.ForeColor = RGB(0, 0, 255)
# e' e; U  y! f2 K( PPicture1.Print "X"
4 b* A$ l/ `+ R- m'画 X 轴
& b2 t, W- W! U# |Picture1.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)
Picture1.Print "Y"
'画 Y 轴
" y2 W8 N- [/ z0 f, C( d: QFor lin = -9 To 9
3 Z9 J- v9 l# l/ ?Picture1.Line (lin, 0)-(lin, 0.25)
) t8 t( X+ `. b, P8 G% J$ s8 P7 Ewor = PrintWord(lin - 0.5, -0.5, Str(lin))
% M5 a" r3 \5 cPicture1.Line (0, lin)-(-0.25, lin)
1 }) C& S1 H0 D! L- GIf lin &lt;&gt; 0 Then
# i  J( |2 @, Y4 kwor = PrintWord(-0.9, lin, Str(lin))
, v; i1 N0 h5 P9 uEnd If
Next lin
Picture1.DrawWidth = 1
# X3 P% K" y$ R1 DEnd Sub
Private Sub cmdPlot_Click()
: ]0 q9 D* R6 GXY
On Error Resume Next
+ K1 H& J" x/ W$ }/ X; f, MDim x As Double, Y As Double
( ^& Z/ p0 ^2 j* r! SRandomize
  
& ^  J  s1 h9 L, P$ ^! P        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
7 v1 [5 v6 \6 h8 D# n       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
( }% x$ N1 R3 U' v9 C# D         DoEvents
- B4 t# Y3 l, k! @          Picture1.PSet (x, Y), RGB(250, 0, 0)
) G& X. B1 c0 D& v( G) T          Next x
# F9 V' K. y# s5 d* R( z3 ^" zEnd Sub</P>
<>rivate Sub Command2_Click()
! a0 `; Z, M: q6 }. x( g1 g% D# \' Y: eXY
. O& t0 d& W8 \: K8 EEnd Sub</P>
- P/ \0 [  U# g6 h5 I9 g<>rivate Sub Command3_Click()
1 U" Y. h, T' F0 |: f  MEnd
/ y! P* L  s0 q8 g" h2 N2 hEnd Sub</P>
& N' i/ s" b( W2 P& b- Z. r( F<>
& h8 y/ y$ G! D) U  APrivate Sub Form_Load()
. v  G* d* i) j  aMe.Caption = "美丽曲线——数学爱好者"
( }* x# A0 N/ Q# H8 c9 P# UMe.Show
) X: _3 M7 @- F' m6 k+ P  JMe.AutoRedraw = True
; Y5 \& ]( |* U0 JXY
End 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
7 s+ ]/ `$ A# M6 H9 m4 ?
3 G  T3 a. a% N9 ?6 L  u* x
4 l7 x  O3 M. a你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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