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

llm3-1415926

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

<TR>
* ^/ w4 V( ~2 w- D& g+ Q" J$ X0 U<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
.CurrentY = Y
0 O# }7 n4 R8 Q.ForeColor = RGB(0, 0, 255)
End With
$ S; K& H; _7 ]% G' [Picture1.Print Word
! e0 S" k3 p9 _; K' A8 @End Function
5 `, b" _* ?- l'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
2 C. K1 c/ V9 r+ pEnd Function
5 B6 I7 w) d& ESub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
5 v  D1 t2 ~4 h. u) e; }& j/ h+ mPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
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)
: L! N( Y. b( u3 ?9 j! Q: tPicture1.Print "X"
'画 X 轴
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)
  M, y2 x9 _3 W, N0 p; ?Picture1.Print "Y"
( Y6 |/ l; v. d+ S- W) W$ E'画 Y 轴
For lin = -9 To 9
, q' [7 `3 R4 z( r- h: o1 oPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
8 s- X) p! z+ {5 Z* s+ wPicture1.Line (0, lin)-(-0.25, lin)
/ {  ]  `) u: e5 F1 s% |% `' }$ C0 RIf lin &lt;&gt; 0 Then
7 J1 v4 I, I6 C+ l3 b$ ewor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
9 D+ l$ M. Y& YPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
' G, b5 u& G) IXY
* Z6 j; u5 |1 i- x4 FOn Error Resume Next
Dim x As Double, Y As Double
Randomize
  
- S: V8 N8 w: B- `1 R* A        SC.Reset
9 a* a' ~  s3 }+ s8 t: Q        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
! P( K9 [. M$ z1 B       For x = -15 To 15 Step 0.001
+ m/ ?1 O9 Q5 T+ ~" T         Y = SC.Run("runthis", x)
: B3 ^* N" F9 M; g: W% f+ N+ ~, N         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
/ k+ K+ s; o( ?2 e' p<>rivate Sub Command2_Click()
  X1 V: n- c3 n; |5 L% IXY
" G+ A& `  N- R$ T2 HEnd Sub</P>
<>rivate Sub Command3_Click()
End
# ~2 A; u7 B2 \) `End Sub</P>
<>
( E+ l0 F" A. d9 @Private Sub Form_Load()
( v4 j5 I7 l  g, _8 p1 I4 k, hMe.Caption = "美丽曲线——数学爱好者"
& W8 a& J& ~- B! b1 y; L- ^# jMe.Show
Me.AutoRedraw = True
5 K  h- X5 Z) U/ x; Z) B4 JXY
4 ^2 C; J! @( Q9 t: H9 U* h) jEnd Sub
</P></TD>
<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
6 \+ r# _1 P4 P% ]# n

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

kensington

回复 1# llm3-1415926
$ ~; @" R: s7 W! U4 O* S4 {6 I0 x

# h9 r4 O9 G/ c9 Z& Z! j* T: }你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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