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

llm3-1415926

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

<TR>
<TD width=*>
* z- h: W! Q+ a8 K* Y* c<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
  G, j7 l, N- {0 y3 E  S- d1 iWith Picture1
.CurrentX = x
0 ~) L. {( Y; N9 R5 p/ ^.CurrentY = Y
; Z* f; E4 @1 L0 e) \2 z.ForeColor = RGB(0, 0, 255)
End With
" H6 ~) w: N4 R6 U# Q! GPicture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
' s3 D# u% @# F3 }5 K- sEnd Function
% \9 }; V; X5 ]; ^) h, H* ]Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
- T/ {# C. x9 N3 b'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
) y0 J3 Z" O; u1 YPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
' D2 ?6 R0 N8 O: y0 F& p2 tPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
: K" P" _* t$ u; l( z, KPicture1.ForeColor = RGB(0, 0, 255)
: i% G0 C2 F! XPicture1.Print "X"
" V% n- T$ G8 x'画 X 轴
; I" I7 M) e$ XPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
" h1 s; G' |- O1 G. KPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
2 ?9 T4 C. T& i- ?; k" o( DIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
  A1 U" o, }+ }# G9 ^8 I: |+ F) tPicture1.DrawWidth = 1
" x/ @, R1 j. d$ i+ ^" @End Sub
Private Sub cmdPlot_Click()
% I8 w$ Y+ Z* Q3 n  _6 }XY
On Error Resume Next
; [, Z4 P& J* g& z7 K' A# G( ^4 vDim x As Double, Y As Double
Randomize
  
8 Z; }' q! U/ H/ {/ [; [! P        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
  u7 s/ R% |9 x0 K* S8 o       For x = -15 To 15 Step 0.001
3 @; O9 j$ G- e! c& w& R1 p, A5 d         Y = SC.Run("runthis", x)
         DoEvents
+ }- k( N' U: p          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
<>rivate Sub Command2_Click()
XY
' g0 P1 W+ o. d! D) R' iEnd Sub</P>
<>rivate Sub Command3_Click()
' o  y, F8 _: X$ REnd
End Sub</P>
( D! D5 k. d  Z# |% d<>
Private Sub Form_Load()
" i0 f8 p" A* i. Q% ]Me.Caption = "美丽曲线——数学爱好者"
Me.Show
5 I! K4 W2 \% G, H9 T1 NMe.AutoRedraw = True
" X9 s! H+ A6 W6 j  X1 W/ hXY
End Sub
9 c6 b! J2 s& i; G</P></TD>
2 i2 T# O. s4 N, Q. W% x* l( r<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
+ T2 D* Y: r8 [

1 e! Y, I6 A# [你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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