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

llm3-1415926

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

+ b* C8 Y" Y3 l' C) W<TR>
. r0 p  i" q7 L( u( t3 y% u" G<TD width=*>
0 Z) L3 r5 s0 E3 @/ W  O<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
- |" |$ P$ ?/ x4 J<>rivate Function PrintWord(x, Y, Word As String)
% R" q/ `9 k) V8 ~+ ^4 g: t0 uWith Picture1
.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
/ J& O; w# G/ PEnd With
* H  [- g( ~" x, G& a" \6 W1 RPicture1.Print Word
7 c: g- A6 @1 YEnd Function
'定义画点函数
1 o! Q! ~8 b4 Q" J# o  PPrivate Function DrawDot(Px, Py, Color)
! S% j- V  X3 t0 C/ n0 v7 {Picture1.PSet (Px, Py), Color
End Function
$ K6 M7 n$ a8 V2 l3 m$ M  r$ fSub XY() '建立直角坐标系
1 s; O6 G1 T6 o% f3 |Picture1.DrawWidth = 1 '设置线条宽度
# n1 S" W: i3 A8 j0 D' |Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
* ^; g! Q+ X9 J0 wPicture1.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* L- f" B# L$ V+ uPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
* \" p! n, o& ~7 aPicture1.ForeColor = RGB(0, 0, 255)
3 m  @3 ?  w8 Z/ w! V# fPicture1.Print "X"
( y  D% M' a  s2 `, S'画 X 轴
8 e) S. D' f) i4 O( R9 {6 T3 q2 tPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
* b) M8 q6 |9 @3 FPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
& a& X- Q: @5 s1 t! ?$ u'画 Y 轴
For 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)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
+ ]4 K3 l2 o' V" u- i" NEnd If
Next lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
" ~/ J8 s0 O: d  n4 z/ y1 }XY
3 o8 ~8 ^" Y$ o( |- ^8 ^9 LOn Error Resume Next
Dim x As Double, Y As Double
$ F+ }) X, H; D2 r4 J8 KRandomize
7 k4 B( o% K- Y- G  
5 J: T6 P( O! H( o# S1 g; t% J        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
6 C, B! x* n( O8 y% v         Y = SC.Run("runthis", x)
         DoEvents
3 t/ u; {7 \. k! o          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
9 }1 f$ P8 h* C3 d3 ~End Sub</P>
  Y2 ]  u% z& B- @# j5 `7 ~, T<>rivate Sub Command2_Click()
XY
* `) N, s; X. P; t4 K/ l, vEnd Sub</P>
& y. b9 [6 V* J8 T4 W. F$ a<>rivate Sub Command3_Click()
- j4 D: H0 t9 h' }, k8 tEnd
End Sub</P>
<>
9 ^+ s2 n) \3 e8 G" t. h4 v- [+ VPrivate Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
% B1 \, }% C) C9 u2 F: wMe.Show
2 w: \5 X! l/ A$ X) N7 D" W5 UMe.AutoRedraw = True
XY
% c1 u3 v3 e" Q% B0 {& @/ k% `3 uEnd Sub
' e! D. q& C' o# f& I! Y</P></TD>
<TD align=right width=60></TD></TR></TABLE>
' o8 s# l4 X) }* m; y<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926
/ [0 [7 d$ a7 {; M

你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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