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

llm3-1415926

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

<TR>
! }" S$ y" v6 A% A% O- B2 O<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
* @# c' N/ ~+ P; U* o8 ^<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
.CurrentY = Y
& a3 q$ B- B* B6 K. H.ForeColor = RGB(0, 0, 255)
End With
3 [: ^  U5 ?5 ?% U" A. ePicture1.Print Word
- b6 S) S/ ~# l) cEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
# A. A( F& ]  E6 \# Q5 s1 EPicture1.PSet (Px, Py), Color
0 C: Y5 u! i4 o- N8 S/ Y+ [/ REnd Function
. T8 O- n$ y& eSub XY() '建立直角坐标系
  w8 b) z6 S" O1 @# |Picture1.DrawWidth = 1 '设置线条宽度
+ L! s" l' L# `! h) qPicture1.Cls
8 H7 v5 z8 r% g+ }9 D" ]) U'设定用户坐标系，坐标原点在Picture1中心
  C/ H5 F+ N" {3 D8 r" @Picture1.Scale (-10, 10)-(10, -10)
! i. C3 f- `; i  i5 @Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
: P6 t+ q( F  V) `) ^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)
! Q6 ]. G- ?- V0 m' p  BPicture1.Print "X"
( R/ T- t& `; d: P- |'画 X 轴
1 l* B8 d  _. ?2 a1 D7 hPicture1.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"
& n9 f" w+ H4 G/ W$ Q" |/ I* o# D'画 Y 轴
+ O; {7 T; ]% r2 @0 o( ~( hFor lin = -9 To 9
* R; g! S6 ^; S  xPicture1.Line (lin, 0)-(lin, 0.25)
+ A$ [+ ~1 U+ r; ]- k5 Cwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
6 ?1 Z2 m! a3 w: r* rwor = PrintWord(-0.9, lin, Str(lin))
2 _- j% n( I% D& ~4 ?, rEnd If
, F0 P# B. f0 GNext lin
9 {, f  A! z2 W3 x! T" Y" ?7 N; JPicture1.DrawWidth = 1
5 U! `8 z9 U# K- J" k3 VEnd Sub
+ ~1 P5 O3 x! X3 APrivate Sub cmdPlot_Click()
$ W5 }! G9 A& b2 e6 f  o$ [, M6 l# G: RXY
8 M, j/ \* o9 ?( QOn Error Resume Next
" }; D. h* q2 x9 W* ]- p; ^" d1 {Dim x As Double, Y As Double
Randomize
  
        SC.Reset
4 l8 R: R9 F. O4 Z$ I2 ?4 L: e9 a        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
. M  m. B0 G# l+ `# I2 ?          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
5 B/ I7 U& z0 qEnd Sub</P>
# C: g) k! X, g9 I- C5 V- _$ x<>rivate Sub Command2_Click()
XY
End Sub</P>
<>rivate Sub Command3_Click()
" V4 C! ^- B) T0 KEnd
End Sub</P>
<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
; B" O5 w. J, MMe.Show
4 o( l0 ^- M( [3 T7 nMe.AutoRedraw = True
% x- h) d: ~) S( D) ]: UXY
  j: Y! M5 W& l% ]2 A7 t7 H, @End Sub
' @4 y5 z6 x( t4 M</P></TD>
<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
7 _3 O" J, o, Y3 R

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

kensington

回复 1# llm3-1415926

! d, I2 s7 A) r' F4 f3 A& H
# |3 a3 b. w9 p6 w) t5 {你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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