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

llm3-1415926

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
3 ~, Q( |9 N' w- @9 h
<TR>
<TD width=*>
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
<>rivate Function PrintWord(x, Y, Word As String)
5 h9 i5 ]& w6 ?) e( s! q) xWith Picture1
.CurrentX = x
.CurrentY = Y
  z: e! f  k$ `8 g) H& L9 {; F.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
" @) ]6 v7 p9 m% q5 tEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
% A4 X# u+ f4 s'设定用户坐标系，坐标原点在Picture1中心
' Z/ u- [8 {7 ?2 d9 V( \$ P6 A4 gPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
# y7 t+ o- D! B- Y* H; [( ^! zPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
- f" i7 ^; u! x2 U3 H5 ^1 i: rPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
; [. Z) j, U( ZPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
! J7 l) B& o0 E: c) E'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
/ h5 L: a, w. h2 }  \Picture1.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)
7 {- P  u+ Q1 I8 Hwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
5 i0 k' h8 C. ~- n! H' J6 dwor = PrintWord(-0.9, lin, Str(lin))
End If
6 G5 ?6 u: [" g- p  m- ]2 pNext lin
5 B; ^$ i  \# hPicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
+ h- ?, y1 t; ^) k! w5 @! J  MRandomize
) p! ?# h9 D. C1 v4 c  
        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)
          Next x
End Sub</P>
6 H6 `4 o8 Z- T4 I4 Q: [, z; }<>rivate Sub Command2_Click()
XY
0 x! t7 C# S9 s0 {End Sub</P>
8 p. M+ c4 R$ ~! e5 }% D" }5 H<>rivate Sub Command3_Click()
End
- A( j! O! N- B2 |! n' ^End Sub</P>
* T& P% r# `7 O$ ^<>
Private Sub Form_Load()
# p0 h# k2 k2 M& x' D- G! U, {Me.Caption = "美丽曲线——数学爱好者"
Me.Show
Me.AutoRedraw = True
XY
End Sub
8 e0 A$ [5 [+ @1 l2 V</P></TD>
<TD align=right width=60></TD></TR></TABLE>
+ g1 S/ _) o  U0 N1 X! a<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
/ D7 W4 W7 r/ t. h/ G

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

kensington

回复 1# llm3-1415926

" `5 h- B' o' y% o* Z# M
$ a! ]% @5 t- ?$ o4 f你在搞什么呢？………………………………………………

数学者

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

水木年华zzu

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

sxjm567

好帖，确实好帖！

诺＆然

亲，你在写什么啊？

诺＆然

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