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

llm3-1415926

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

<TR>
2 {0 r" g: U5 E4 @* E<TD width=*>
# N: y$ ^+ }6 n( L$ ?; a<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
9 F9 I# m4 X- |.CurrentX = x
& c7 p. ~$ f. h: Z# @" ~.CurrentY = Y
2 A# N( `) r* I2 b.ForeColor = RGB(0, 0, 255)
8 F4 o6 y1 o( b- s$ z7 i7 H% OEnd With
Picture1.Print Word
8 u7 ?! s7 T9 R- P. b- {: GEnd Function
8 ]% r1 @" u7 l- z! o$ t5 g8 V'定义画点函数
Private Function DrawDot(Px, Py, Color)
2 Z5 Z* O# }; v5 nPicture1.PSet (Px, Py), Color
2 J7 C: Y3 y' F+ i9 NEnd Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
8 u: y. r, {6 B/ \& |0 u'设定用户坐标系，坐标原点在Picture1中心
; C0 M( t% G3 R( d/ UPicture1.Scale (-10, 10)-(10, -10)
; C  e% Z1 N* t: dPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
7 k1 E3 a. }2 M5 k3 G1 o( XPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
' G7 }5 k! b4 u3 p" k3 n8 b, ePicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
4 h; ~5 ]' \' `( V0 Q9 r9 kPicture1.Print "X"
5 s* o% E0 r- ]! Y'画 X 轴
" y, A+ l/ @* ~# q- u5 ]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)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
4 m% T! y/ y: d$ O+ j: h4 ?& p. FPicture1.Line (lin, 0)-(lin, 0.25)
6 f3 x8 @5 {/ m' f  B( d( `2 }" Twor = 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))
) v4 S+ G0 n, i0 q# v5 }% oEnd If
4 U2 t' j& Q# H( o; g7 DNext lin
Picture1.DrawWidth = 1
2 v2 Z! C' f2 m1 N* eEnd Sub
Private Sub cmdPlot_Click()
! i+ e7 f* f& j: VXY
! ^% n) s+ |1 n6 B  q3 ]/ o, e/ k; FOn Error Resume Next
$ s; Y5 A! w# m& @) r; xDim x As Double, Y As Double
Randomize
  
/ [8 N. M9 g8 K' l& t) l        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
5 t' L2 x3 Y! H5 ~* ]       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
: O% ~2 m7 p9 |0 d$ H          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
. S+ z9 q+ N( FEnd Sub</P>
, a7 P5 G- S- h2 j% {<>rivate Sub Command2_Click()
- x1 x! P* c! `: ?$ D" @6 H: vXY
End Sub</P>
4 S7 |! E8 e3 s, y7 ]<>rivate Sub Command3_Click()
End
. _( c1 e6 v3 v- D! mEnd Sub</P>
<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
Me.Show
: x' o& t; c: ~" ^; g& @9 UMe.AutoRedraw = True
XY
+ z; {; N; c6 J% `$ SEnd Sub
</P></TD>
$ z- F6 s& W. {( \( w<TD align=right width=60></TD></TR></TABLE>
! h- t* ?4 j3 g5 ]5 C6 s" O: M<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>

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

kensington

回复 1# llm3-1415926
/ Y6 T' T( M6 G5 n* j# y

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

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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