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

llm3-1415926

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

/ U- u& h7 |5 R2 q! L0 S* J  H<TR>
<TD width=*>
7 k; z+ c/ n' c9 x- o/ p<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
  t* m8 a& H8 S/ p  C6 C! f<>rivate Function PrintWord(x, Y, Word As String)
/ q7 H: |% P4 l. Q7 {With Picture1
' e5 q5 r6 M. _4 C6 F1 W1 Y.CurrentX = x
.CurrentY = Y
* m0 h1 K8 U6 S* m) I, B( [.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
/ x# q0 G* Y% Z( g) L, xEnd Function
, u' V! ^  X! O# }1 o$ E+ c'定义画点函数
& F7 _6 N1 X+ V* E1 ~7 N9 g3 APrivate Function DrawDot(Px, Py, Color)
( w4 h" g) _7 T/ ]( p" DPicture1.PSet (Px, Py), Color
# T0 y) e. a, p4 J9 Z* H/ GEnd Function
" a# O3 r8 d0 h( P/ |8 uSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
+ a6 }- `' d) ?) e6 YPicture1.Cls
/ o5 \* U6 y4 H& j' `  [- _0 L* q: K'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
. O" {: a% j4 P! iPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
) H4 h& o8 M3 q$ ]$ N* C6 rPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
$ o7 }- h; G- DPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
* w" G) N+ X) Q$ c! Y4 bPicture1.Print "Y"
1 q7 Q7 ]8 @6 D' a'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
; g/ {4 \9 y  ~wor = PrintWord(lin - 0.5, -0.5, Str(lin))
7 E! H& Z/ A4 B! G; `1 X1 I3 ?Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
& z2 m9 ?* d3 g( ^7 G' HNext lin
1 s3 V$ H- B2 M. Y& |& C: UPicture1.DrawWidth = 1
End Sub
& t; |1 V  Z4 RPrivate Sub cmdPlot_Click()
XY
On Error Resume Next
' ]8 `( Q, f0 y  fDim x As Double, Y As Double
Randomize
- |3 r5 f( l, E& [; T) K3 E7 T  
' ^7 [+ w' n/ ^/ @# Q' P( Y' f        SC.Reset
; F- A) r; P, x$ |0 y# ^        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)
0 w9 A- [2 W; \& k% }; l% {         DoEvents
6 i$ n$ ~4 L4 y* P8 J2 f% E% U5 `0 N          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
" w% s5 a1 \2 f# b0 P( ~3 }End Sub</P>
# M; [# e) Z* L. _<>rivate Sub Command2_Click()
XY
* }5 S) m. x' C- TEnd Sub</P>
<>rivate Sub Command3_Click()
End
* U4 V3 i) n( C9 A& b3 Y, ~  TEnd Sub</P>
, P5 d1 j9 F+ @<>
1 X- S. t6 v" P/ Z! C9 P( wPrivate Sub Form_Load()
. D3 x& M& |- m8 ^5 L! N5 Q0 dMe.Caption = "美丽曲线——数学爱好者"
Me.Show
1 c8 b  I* L5 U# P2 S4 n6 LMe.AutoRedraw = True
! u- s0 x5 M8 j, S# I- C: bXY
End Sub
</P></TD>
<TD align=right width=60></TD></TR></TABLE>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
; f! {4 {$ v- k8 F

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

kensington

回复 1# llm3-1415926


" e+ p. I4 q, l5 a你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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