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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
2 f+ c2 X" T% M. |; k2 v2 p
8 ~* J* Y8 K( y! D; @4 {<TR>
<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
( ^* j# o3 _/ r/ @) Y8 M! v<>rivate Function PrintWord(x, Y, Word As String)
/ `. R9 `9 `+ k# I$ a6 OWith Picture1
.CurrentX = x
.CurrentY = Y
& \. \/ z8 S7 y9 n& `9 A/ U.ForeColor = RGB(0, 0, 255)
; g5 g) D6 p: NEnd With
Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
2 {/ g1 N2 P! x7 `' YPicture1.PSet (Px, Py), Color
, |% n% H. P1 ], t" ]( P  oEnd Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
: g* w& c; Z- i' C! oPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
! F8 j# O- z$ G; w7 FPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
: n0 [# {& |) T' \Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
4 S5 q/ R, F/ i& mPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
% I/ n8 K& _2 x) p; KPicture1.ForeColor = RGB(0, 0, 255)
, v+ O. R- _# v: X2 DPicture1.Print "X"
'画 X 轴
* w* \/ {! h9 w# |+ APicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
4 S: v7 D: p* Y7 V# A2 N: C+ z( GPicture1.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 轴
. `/ j: _4 c: T; E2 n' cFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
5 j4 F& [  Y! b' LPicture1.Line (0, lin)-(-0.25, lin)
+ {, C6 i3 R  I8 JIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
* d5 n/ S' |' }+ f4 {; tEnd If
Next lin
Picture1.DrawWidth = 1
End Sub
0 F9 d: @8 v* }: KPrivate Sub cmdPlot_Click()
XY
/ S0 x3 d' [& ]4 F5 ?. @On Error Resume Next
Dim x As Double, Y As Double
0 w& |4 D& |+ A+ R, `Randomize
  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
% \3 q& J: g5 `" c  c1 a3 m2 s       For x = -15 To 15 Step 0.001
& @( M0 b- y5 E$ I- c         Y = SC.Run("runthis", x)
         DoEvents
* ^5 z) a( ^0 v) |9 G          Picture1.PSet (x, Y), RGB(250, 0, 0)
' f% t6 H/ n) k1 p          Next x
+ m# }( H( L$ _6 q$ o$ m, xEnd Sub</P>
<>rivate Sub Command2_Click()
  o! O$ q: z4 ^; i! |! sXY
4 h) E, B2 r( i: d+ b" J' i9 {$ rEnd Sub</P>
<>rivate Sub Command3_Click()
End
% ?4 x" L  E" ^1 m8 B! g/ ^8 g# QEnd Sub</P>
<>
/ d2 X) B: {: |' P/ KPrivate Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
* h9 W3 M! J1 B9 w* ?1 b$ H. gMe.Show
Me.AutoRedraw = True
  b! g( z  J: \4 F/ q4 vXY
- T' @9 m6 I$ C6 p. h+ X% QEnd Sub
</P></TD>
<TD align=right width=60></TD></TR></TABLE>
8 s8 x2 u9 x* t, Y' t<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
% {$ Y- h5 s8 R$ m

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

诺＆然

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

诺＆然

亲，你在写什么啊？

sxjm567

好帖，确实好帖！

水木年华zzu

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

数学者

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

kensington

回复 1# llm3-1415926

5 R% N8 _  v( X$ l0 a$ S
$ T& c0 c& R9 V/ D# t4 E* G你在搞什么呢？………………………………………………