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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
3 g' V$ z4 X/ p5 `- M
% v* g+ d2 |. y1 Q# z<TR>
<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
  ^* s9 ?5 a. T; ?<>rivate Function PrintWord(x, Y, Word As String)
1 [# P% n+ L/ l8 u5 ]With Picture1
.CurrentX = x
0 o* q8 y6 j+ i4 y: d3 O.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
8 J" L* f9 [8 h+ d3 I+ VEnd With
Picture1.Print Word
End Function
'定义画点函数
. K) n, G0 [# s9 q2 aPrivate Function DrawDot(Px, Py, Color)
. a4 B( d# v: o: ]Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
5 X, U3 H1 J0 S8 |$ q2 z  n'设定用户坐标系，坐标原点在Picture1中心
6 g* X; Y4 f- w/ L* F& g- jPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
8 v  }4 g& N. }1 N$ C: aPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
! E* Y) a& n* Y9 E7 z3 [Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
/ K/ N% p$ }9 g; l3 }& SPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
2 Z7 K! \1 E, z5 S'画 X 轴
/ C% I2 i! r1 G! c8 ^Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
6 j- }9 U* O6 A& ], @& `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 轴
7 g% d9 d* u. _" s. d3 X2 YFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
0 T( l3 i6 ~! w- Q$ E! [; A; Qwor = PrintWord(lin - 0.5, -0.5, Str(lin))
# F4 Q$ m! {7 z0 \9 JPicture1.Line (0, lin)-(-0.25, lin)
% u+ c2 y# k+ d/ t/ zIf lin &lt;&gt; 0 Then
7 \9 G& n# q% U( {7 ]/ A7 nwor = PrintWord(-0.9, lin, Str(lin))
! W+ L  k( J% V4 {6 C5 A& I8 yEnd If
Next lin
Picture1.DrawWidth = 1
$ s; W( d+ _5 G( YEnd Sub
# V, A$ G5 b, E& o# DPrivate Sub cmdPlot_Click()
XY
! |7 c& G8 X  O; p: }On Error Resume Next
9 v2 q7 d4 i4 H# o( wDim 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
         Y = SC.Run("runthis", x)
( Z' a! i/ \( r/ A, K         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
5 P+ D! [7 u: K6 b2 ~% T8 h<>rivate Sub Command2_Click()
' \0 a+ |4 b: A( e. a! ?1 h6 XXY
! l5 h3 W" T0 X2 y" E7 q( T0 gEnd Sub</P>
<>rivate Sub Command3_Click()
$ G4 B( [. B0 L' mEnd
End Sub</P>
- f! L( C1 P! m9 R<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
; L6 E+ Q7 j) ~2 `" _( uMe.Show
Me.AutoRedraw = True
3 h* [& s: e. H/ h: `" W# TXY
  D7 H$ G' `+ L. Q6 uEnd 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
0 P1 l: N, Q7 e9 c. b

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

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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