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

llm3-1415926

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

1 B1 @" Q- J$ ^0 N<TR>
<TD width=*>
. ]7 T2 O" m) M% [+ ~* i<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
With Picture1
.CurrentX = x
* _, }5 `6 x& l/ S% @7 A/ d.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
& V, S" n: I$ H3 ^( o9 [Picture1.Print Word
End Function
'定义画点函数
+ T- ?! a" S; @' UPrivate Function DrawDot(Px, Py, Color)
1 B. s) t8 S) R/ }Picture1.PSet (Px, Py), Color
End Function
9 i6 K6 J5 r5 KSub XY() '建立直角坐标系
6 r  ~* r( K) k& O7 Y" CPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
$ J; N- Z4 k1 I8 Y( l' T" p& a'设定用户坐标系，坐标原点在Picture1中心
" J, W" u  _) HPicture1.Scale (-10, 10)-(10, -10)
! e3 V- L0 s$ v: h7 c  ]# S' MPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
' a& Z/ Y' F& @; p7 n) s3 ]) JPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
; p6 o& T5 p# @, L8 _Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
1 G8 a7 |: E, S7 h" UPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
1 \* P* S& l) P) f, g! A4 Q8 ^  YPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
! C% x0 V& b& }( c' M5 M2 _9 kPicture1.Print "Y"
'画 Y 轴
; A6 z# i( d1 _6 i2 OFor lin = -9 To 9
2 s; j9 G# g2 q4 ^' V) RPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
- Z0 V1 P# o- R+ }0 B- P$ OPicture1.Line (0, lin)-(-0.25, lin)
2 I! l7 a' Q8 B/ gIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
End Sub
. X  S! ~9 X2 V3 f( XPrivate Sub cmdPlot_Click()
& ^! d2 W6 w% t; j2 i5 ~XY
On Error Resume Next
Dim x As Double, Y As Double
- v& C4 |. E; o# h+ nRandomize
  
# W$ _: Y# n5 h& X1 B        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
- g+ z+ a# U. q5 d       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
6 v5 J+ `0 I$ U<>rivate Sub Command2_Click()
XY
; |' A5 d: |5 G) eEnd Sub</P>
, S1 o; n* a, @: q8 L8 S6 |3 s<>rivate Sub Command3_Click()
End
End Sub</P>
: d( o1 a7 z+ y, I* k+ [<>
: h+ h) L$ C9 X* FPrivate Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
Me.Show
% F" r. \) L" h4 {0 W3 }6 t; M" DMe.AutoRedraw = True
* z' o, |* @6 O; R) ~XY
# Q! h; |- D/ k& y% L, v; R1 FEnd 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


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

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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