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

llm3-1415926

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

<TR>
<TD width=*>
2 b( i$ ^/ l9 a. @* ]) L<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
- L! w' E$ F3 q  L  D) b0 b: M.CurrentX = x
, N! ~3 b; C8 ^" x, m# K3 ?5 a.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
# h3 u0 L7 L1 g. e, S3 ]% e& F  {3 |End With
+ D" e6 k, D9 q% W4 BPicture1.Print Word
End Function
) r0 `3 q8 P5 {1 O1 d'定义画点函数
Private Function DrawDot(Px, Py, Color)
$ x& b/ S) g) \8 \6 b2 {Picture1.PSet (Px, Py), Color
. z9 H7 O7 p" F6 h  R1 r; R  xEnd Function
' s: ?  [5 {8 ]1 X; s6 YSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
2 s7 B7 V  z  h9 ?5 {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)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
6 d+ g# c, |& U, APicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
# I6 P3 w* x2 [4 U8 F2 yPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
" R; P% n- u+ G  U$ c( A9 A( \Picture1.Print "Y"
: C! T' N, e# |, M  v'画 Y 轴
1 P& U8 `# O- F, W7 G* k) `: g8 X& MFor lin = -9 To 9
% e9 r$ H1 G5 W) I# X+ `  jPicture1.Line (lin, 0)-(lin, 0.25)
) X# j$ L; i+ X- t& }5 m# h. B& nwor = PrintWord(lin - 0.5, -0.5, Str(lin))
) V# i+ ~9 {0 y: Q# PPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
! `: g7 d3 t4 s& A$ x; lNext lin
Picture1.DrawWidth = 1
End Sub
7 B! X/ v, N+ J; N- r$ ZPrivate Sub cmdPlot_Click()
3 D7 o% }( U$ x8 NXY
On Error Resume Next
& b- S8 L2 \- X- S! T, F0 C, HDim x As Double, Y As Double
7 s, I- o/ _4 O+ r* LRandomize
( _, q7 z; T) C  
5 q) R) z$ t  a        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
! ~7 y8 F) w, [       For x = -15 To 15 Step 0.001
' o7 u5 x8 Q6 z1 w. ~/ y         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
. R$ b2 z: v& g/ @6 m6 W: k          Next x
- r1 D9 R; K% C' T1 dEnd Sub</P>
<>rivate Sub Command2_Click()
' P; P$ Z+ {& o% cXY
2 W2 Q: F+ q( |6 i! ~9 a; TEnd Sub</P>
<>rivate Sub Command3_Click()
End
End Sub</P>
  N' S' r  @- U<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
Me.Show
4 I( |& k5 a/ S# ?) ^Me.AutoRedraw = True
XY
End Sub
</P></TD>
- M' I9 G5 [( A- t7 z8 ^/ m# Z5 ]<TD align=right width=60></TD></TR></TABLE>
' D) d% X; W/ _<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926
; i9 Y' ?/ T5 y" X: g

' x; \' C: x( h- g" Z你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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