数学建模社区-数学中国

标题: 帮帮忙，跪下谢谢斑竹，VB [打印本页]

---

作者: llm3-1415926    时间: 2005-3-2 00:00
标题: 帮帮忙，跪下谢谢斑竹，VB
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
' a, K7 e& ]( u* ^" J9 }
" [- {1 |# G- i; l5 A8 U<TR>
<TD width=*>
" ?  c5 d8 ]; L# w<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
6 S. h1 O4 Y* r- c2 k<>rivate Function PrintWord(x, Y, Word As String)
2 |- w' M; h: C; GWith Picture1
.CurrentX = x
+ H8 p7 U# k+ t3 N, N.CurrentY = Y
5 S7 E( T' x3 ]& B( @.ForeColor = RGB(0, 0, 255)
* F. K+ J$ n9 H; ZEnd With
Picture1.Print Word
End Function
'定义画点函数
8 v8 E; o! P! r/ Z; h8 qPrivate Function DrawDot(Px, Py, Color)
  \- i0 X: j" l3 `% L9 ^Picture1.PSet (Px, Py), Color
7 r( y/ s8 I1 a9 k0 w6 u- vEnd Function
' I" j- m, h& i( e# V0 T2 _" RSub XY() '建立直角坐标系
  F  J" v# b* q4 L# uPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
' b9 M/ G( J) q" y4 j'设定用户坐标系，坐标原点在Picture1中心
; O9 g5 L3 K+ I' OPicture1.Scale (-10, 10)-(10, -10)
; y- I+ _0 N% ~5 V4 M7 hPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
  e/ E2 G6 h8 g9 n# nPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
% c, w8 o! ^3 T, A8 G* h- O5 t8 {7 APicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.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)
; B  B. J( b. E  W9 P& _Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
  P8 i8 w8 B2 J7 G! t- z8 q4 FPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
# T, D/ N( W& f& a, t* e' hwor = PrintWord(-0.9, lin, Str(lin))
; ?' I+ _5 p# G$ V+ h- uEnd If
4 Y# n7 t% h( oNext lin
" q5 ], _1 G, o9 Z$ M3 fPicture1.DrawWidth = 1
  O0 w. c& s4 y2 n5 P* h) @End Sub
Private Sub cmdPlot_Click()
. D- `8 S5 L% SXY
On Error Resume Next
3 c. C9 Y1 t9 S7 X$ O0 XDim x As Double, Y As Double
Randomize
- B. g( I  {9 J! r1 S  
; T9 M: v! |. x2 \        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
# N' N5 l3 \7 C' g# Q7 ]       For x = -15 To 15 Step 0.001
4 J" q( |& G/ r( b3 G: s1 Z: |7 K/ Y         Y = SC.Run("runthis", x)
         DoEvents
( B' X, m6 _, M          Picture1.PSet (x, Y), RGB(250, 0, 0)
# E3 ^/ W" m& K* z+ d          Next x
$ X4 @) U& n" [  L( Q- z/ ?End Sub</P>
, K1 c- w  n7 T1 J+ e* N. }; @<>rivate Sub Command2_Click()
XY
  ~* L4 a8 N& J5 I/ p  |/ i: v* XEnd Sub</P>
4 d$ }7 L8 f  W7 \( f<>rivate Sub Command3_Click()
End
End Sub</P>
<>
Private Sub Form_Load()
Me.Caption = "美丽曲线——数学爱好者"
3 l8 A5 J5 v, {8 nMe.Show
: ?# Y7 |+ k; R! u/ uMe.AutoRedraw = True
XY
! \3 d' l3 ]2 q; i4 }! f  REnd Sub
3 C8 y+ o7 v" l3 W6 {4 [</P></TD>
* I3 {( T# {, o' V<TD align=right width=60></TD></TR></TABLE>
- u& \* E+ K: P* ^  ]<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>
% z+ w1 W; P9 B+ D; H) p3 w

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

---

作者: kensington    时间: 2010-2-3 23:09
回复 1# llm3-1415926


: Z+ ^5 P, j4 d- h) i$ t7 P2 o5 R你在搞什么呢？………………………………………………

---

作者: 数学者    时间: 2010-3-10 23:00
楼主这是啥意思啊？不明白你在说什么呢~

---

作者: 水木年华zzu    时间: 2011-1-26 16:29
代码写的好不好另当别论，格式一定要好

---

作者: sxjm567    时间: 2012-10-15 01:08
好帖，确实好帖！

---

作者: 诺＆然    时间: 2013-1-25 15:11
亲，你在写什么啊？

---

作者: 诺＆然    时间: 2013-1-25 15:12
我不得不承认我是有一点VB基础的孩子啊，可是真的完全看不懂

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5