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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
' Z" P  y; K2 b" J
' `# Y5 c& E* Q* X: O6 L4 L<TR>
<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
% |( H8 c: Y4 h4 Q/ u) x/ N& M.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
" U& t: b' M$ L0 {End With
* \7 {( W* K8 s& e+ _  @) S: qPicture1.Print Word
: \; U5 i+ }2 t, v& NEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
" h7 ?/ u* [; x0 g  V, d" D3 dPicture1.PSet (Px, Py), Color
" b2 R9 U+ P$ o' G. pEnd Function
5 Z+ J5 ~& v, m5 y3 v+ bSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
8 a- p7 }, _0 Z7 E! uPicture1.Cls
) m% X( _; i+ b7 Q( R'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
8 j4 }1 ^* F* FPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
. K+ ]! l" T$ m, x3 I/ |( Y6 FPicture1.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)
Picture1.Print "X"
'画 X 轴
0 k& ]: n: l/ m0 r" {/ Y8 yPicture1.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)
2 g, P5 D( g3 S' c" q7 e& ZPicture1.Print "Y"
. `+ E" k* k' V2 H! Y- _$ i'画 Y 轴
For lin = -9 To 9
5 Y' w3 E' \, r- a. n' hPicture1.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))
7 T: P2 y5 L' G2 m2 u/ m+ L; REnd If
Next lin
% m$ X% Q( t0 Z/ H# [Picture1.DrawWidth = 1
( B2 @& [3 b$ b: U  z% t  g; zEnd Sub
* s& Y) V& b* TPrivate Sub cmdPlot_Click()
XY
On Error Resume Next
# i( i$ F4 ]) U/ S3 E. LDim x As Double, Y As Double
1 H& _2 W# v; n7 A4 RRandomize
  
0 ~6 W% V5 {3 {8 j9 t; e        SC.Reset
0 Z5 w, c' q9 O# c+ p        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
1 ]9 m0 Q& i8 P       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
4 i% z% z7 ~2 S+ X         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
<>rivate Sub Command2_Click()
XY
End Sub</P>
<>rivate Sub Command3_Click()
End
End Sub</P>
<>
( A9 ^1 B6 }/ J6 v! O. LPrivate Sub Form_Load()
2 U% A6 \; ^8 d. h& sMe.Caption = "美丽曲线——数学爱好者"
& l' E; d$ Q6 pMe.Show
. X4 e4 a& w; }) j. MMe.AutoRedraw = True
XY
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
0 Z9 ^5 l6 ]+ i, b

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

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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