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

llm3-1415926

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

* A/ r( ^1 X- U5 ~<TR>
<TD width=*>
* g' D& l1 {& Q- V<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
, m( d( b" }! M9 A# P<>rivate Function PrintWord(x, Y, Word As String)
( l2 u2 p* _) Z* o3 M5 }With Picture1
9 t& }$ H2 Y" }' u' O) }.CurrentX = x
7 \4 t' w3 H3 [' [; w, `; F0 r, U.CurrentY = Y
% @+ N, {9 ]8 p3 d  h7 {3 r.ForeColor = RGB(0, 0, 255)
0 X$ S) D4 x' k# Z9 cEnd With
Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
) y1 g: c7 `  L/ b+ U# _& kPicture1.PSet (Px, Py), Color
3 K' {: K" w$ ?2 aEnd Function
Sub XY() '建立直角坐标系
5 \, d) g8 Z+ B  v- X6 i+ y6 I5 EPicture1.DrawWidth = 1 '设置线条宽度
, Q( k( z, }' r! y0 j" |. tPicture1.Cls
+ k! ]6 _3 ?7 S/ L'设定用户坐标系，坐标原点在Picture1中心
) D+ j" g2 R  W' [5 G# FPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
6 q+ q. {5 V: a/ s2 sPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
$ w9 b/ C. ?- f& Y7 g. f$ sPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
6 E; N" P% B" p0 }'画 X 轴
/ `7 o; j! j8 Y: o; }( oPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
) h+ P0 T! U5 S1 F4 R4 y2 u; ~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"
! O( s7 z' d  D7 f+ {'画 Y 轴
For lin = -9 To 9
9 g+ \+ m& R: EPicture1.Line (lin, 0)-(lin, 0.25)
+ p9 |! x' [* B! ?/ @  Twor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
1 `0 c5 x; r7 K2 k0 PIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
' U5 H! e6 |+ t2 c% tEnd If
  o7 u8 R$ f9 E! pNext lin
5 ~; v( P' M' T0 s8 dPicture1.DrawWidth = 1
+ |, W- p9 i( tEnd Sub
Private Sub cmdPlot_Click()
4 h: [$ x& J8 A6 i; U0 t0 oXY
On Error Resume Next
  |: v8 Y" O1 b4 m; F; |! `5 DDim x As Double, Y As Double
Randomize
/ ?" M* [, W9 r' M' p, W8 }  
        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)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
& H3 D9 q, e) O' z& b          Next x
End Sub</P>
<>rivate Sub Command2_Click()
) C0 P8 F$ h  U' T- ZXY
; v  R: b( f, m$ o; s( REnd Sub</P>
<>rivate Sub Command3_Click()
, y# E! H0 {( k4 g" Q0 t- L2 c# aEnd
$ v) r" ~( g* q) @; e9 `- xEnd Sub</P>
7 o0 K" S) R9 ~. q+ \2 J9 V<>
# I9 c  X/ A6 m% H0 Y0 q$ z6 aPrivate Sub Form_Load()
8 _  {7 |! o/ H+ GMe.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
4 U3 d9 i) i8 Y+ |- Y' n6 X( l  N7 ZXY
End Sub
+ S, Y$ q# ~* }" H</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
6 d4 ^2 R7 G5 {7 v, G, T# |

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

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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