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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
5 u. E: _3 o$ ~, L. T
<TR>
0 L; ^0 R/ _9 e7 T; F6 |) l+ x3 o! m<TD width=*>
! y; U' r) w9 p& h% L$ C2 I<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
& s' a' }' g: C  ^0 j6 z' q; G& h4 L<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
$ C3 i1 }0 M& C7 b8 R.CurrentX = x
% r! T2 c1 r* i5 n$ {3 z.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
, Q: _# u9 e! t1 `End With
Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
( K  J: z+ G# h$ Q+ t9 v' sEnd Function
Sub XY() '建立直角坐标系
9 x' i$ Q3 a- i0 ]! O* c& K5 |8 rPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
, |4 |6 K6 p) i% A3 b# cPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
. x; v, X) |9 R' LPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
$ l/ }1 c1 u- z+ U% ^) QPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
4 P5 {: Z1 J' {) jPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
- A, S  ?, V5 p4 _4 c1 nPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
! F. Q) ^( d; \1 ]$ [( ]( ?5 F# ]'画 Y 轴
, V' K; x* A+ q3 qFor lin = -9 To 9
" h; D( P0 ^6 @) ]3 z& w1 wPicture1.Line (lin, 0)-(lin, 0.25)
/ k7 n0 j6 ~% Iwor = PrintWord(lin - 0.5, -0.5, Str(lin))
( O' ~6 z4 W- ~# K1 T% GPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
1 V9 N  {) N: c( Vwor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
; {: p" V" l* }3 i1 h: D+ c8 BEnd Sub
Private Sub cmdPlot_Click()
( e: ?# ^- W4 ^8 |) P8 OXY
On Error Resume Next
- w% X$ x! U/ A0 k. P: o) k0 }Dim x As Double, Y As Double
( \* Q# l, A: v, ^Randomize
  
2 y, ]' C( m- [$ F+ {5 V; W        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
( |6 }! C. z! u2 O         Y = SC.Run("runthis", x)
* y* x3 L. l8 o  x3 r. e: \% _         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
5 F( u5 ^' `2 l/ f) _; I          Next x
End Sub</P>
<>rivate Sub Command2_Click()
XY
! M* d# ~5 U1 o9 ]End Sub</P>
<>rivate Sub Command3_Click()
End
End Sub</P>
4 v/ ^+ S  H) [0 H8 w<>
: o% s1 c4 l( [, b7 C1 gPrivate Sub Form_Load()
* ?/ J8 i4 N. n6 K: q2 F! oMe.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
XY
* \1 i0 H& l( A5 _End Sub
</P></TD>
+ _) Y; w4 B3 A2 ?<TD align=right width=60></TD></TR></TABLE>
' c6 J4 f6 T9 [. J: B' H* P<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
, x4 R" t% Y6 q- ^. l

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

kensington

回复 1# llm3-1415926

8 p; x1 X' H9 D# q: w4 S
你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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