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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
! N' w- X- L6 I
<TR>
<TD width=*>
; |6 `3 s+ K! y5 V( k/ L" s9 I7 ?# L<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
/ B8 s% I% y6 F$ q$ z<>rivate Function PrintWord(x, Y, Word As String)
1 {$ O5 B* E/ L. Z* A3 b4 MWith Picture1
; O' Q9 l/ Q2 ~5 I7 C, q.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
7 _; L* D; B/ a% s  s: ~Picture1.Print Word
6 }9 e& j+ ?3 X1 R; Y# KEnd Function
2 N7 V4 T% g' h- d( ?- ?4 j* L'定义画点函数
7 m  \$ v& R1 W  oPrivate Function DrawDot(Px, Py, Color)
  X3 W% p1 y/ R1 Z! _( j4 q+ l7 w9 d8 LPicture1.PSet (Px, Py), Color
' c+ u. v  @7 ^- a: j) [0 L# w! hEnd Function
' y( Y  K- ?7 d8 I* tSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
/ H, ?. C. R- W" V3 {* ?( \Picture1.Cls
+ i1 p0 a# z& \' |+ b6 {'设定用户坐标系，坐标原点在Picture1中心
. V" n) q: B, ?  V6 Y- {2 [  C$ G9 YPicture1.Scale (-10, 10)-(10, -10)
  x6 \( @6 B/ PPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
$ t. G* m4 A& g6 MPicture1.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"
  W2 o5 v4 F6 C  {4 m'画 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)
' ^5 r- Q  w) n( UPicture1.Print "Y"
'画 Y 轴
. m7 x5 L4 {- R) HFor lin = -9 To 9
/ I( s( W; l$ x+ f, D) C3 APicture1.Line (lin, 0)-(lin, 0.25)
" V' d6 M" [1 T% C& D. t+ _wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
; [+ U( T, N( w: @) e- _& XIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
  \8 l3 o' E5 F, N( u) {Picture1.DrawWidth = 1
, ]$ H3 F: o& U# P2 p& Y% |- jEnd Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
; ?+ }+ a1 h3 lDim x As Double, Y As Double
Randomize
  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
; S: ^% }9 }" Q         Y = SC.Run("runthis", x)
         DoEvents
3 q" e1 O7 W: z1 k+ h; K2 ?          Picture1.PSet (x, Y), RGB(250, 0, 0)
8 _( v  p# x# A5 ?  h3 ?          Next x
4 D- o% |0 x1 k' I) W* TEnd Sub</P>
) |" D& I8 p* M' S" j9 {) R<>rivate Sub Command2_Click()
XY
1 N$ H: U# b4 r  q/ n  M; l) FEnd Sub</P>
<>rivate Sub Command3_Click()
End
& R- g' t- z( f2 E1 L% @! p$ CEnd Sub</P>
. k5 R* i0 f+ i& x<>
( g- @( t7 k9 O9 c, e; WPrivate Sub Form_Load()
8 D3 w# w, w6 r3 c* p1 e- y" R9 y) dMe.Caption = "美丽曲线——数学爱好者"
1 s! f" L* L! x# m) m+ h0 eMe.Show
Me.AutoRedraw = True
. U' q( ]2 x0 fXY
" }% R5 {' A4 S; IEnd Sub
</P></TD>
5 J) _7 w1 q; p7 t' i<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
9 T" }0 H) \# }  q8 |4 N) v  Z

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

诺＆然

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

诺＆然

亲，你在写什么啊？

sxjm567

好帖，确实好帖！

水木年华zzu

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

数学者

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

kensington

回复 1# llm3-1415926
; y& X4 h) M- B8 [2 ~7 b9 \1 W
- z$ m4 e4 f; t3 W; `& G. h7 A
你在搞什么呢？………………………………………………