数学建模社区-数学中国

标题: 帮帮忙，跪下谢谢斑竹，VB [打印本页]
作者: llm3-1415926    时间: 2005-3-2 00:00
标题: 帮帮忙，跪下谢谢斑竹，VB
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>- T9 a3 |( f0 k5 a* h3 C
1 G# x' `& i  g# X8 x8 k
<TR>2 R: ^. b" \2 ~$ p& b! n" H8 y/ b
<TD width=*>- i- ^/ y7 `0 F8 A/ F2 o9 O
<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>5 ?$ I. F" Z5 e  F7 I$ {% B9 X( x1 T
<>rivate Function PrintWord(x, Y, Word As String), y6 t; g& Z8 F
With Picture1
$ h! J; i* m/ U  \- M+ p.CurrentX = x& f* \. G+ |. _  C: D; u- X& ?$ V
.CurrentY = Y5 ?0 k- H2 u9 t
.ForeColor = RGB(0, 0, 255)
( L7 L( D1 h& X8 U* `& XEnd With
1 @: ]5 h$ q. `3 G6 q% y0 q) `$ RPicture1.Print Word# m* `/ V8 \* M( b6 ~) b
End Function
. v! \7 Y2 U3 Z. G4 w6 J'定义画点函数
+ d9 c  D" S+ t, K+ mPrivate Function DrawDot(Px, Py, Color)7 A$ P- f3 E$ U
Picture1.PSet (Px, Py), Color
* ^0 O# g7 o. H# _End Function
0 }5 x. {: `# f6 E9 k2 PSub XY() '建立直角坐标系( A. |* O; U' c4 W% g
Picture1.DrawWidth = 1 '设置线条宽度$ B# E; N' _$ p5 C, H% A
Picture1.Cls
' X* ~( ~( K, }9 w* k! _# J  w'设定用户坐标系，坐标原点在Picture1中心
4 _8 ?6 I1 I5 sPicture1.Scale (-10, 10)-(10, -10)
" j( K/ ]5 m. E$ G2 i/ G7 E. O! ePicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
; _6 E- @2 Y; X4 v4 O) PPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
7 t/ {  ]- v& |. GPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
' A2 F4 H/ Q8 I: @6 yPicture1.ForeColor = RGB(0, 0, 255)0 _2 ?6 d8 U/ B4 A8 G
Picture1.Print "X"
2 W) e( c+ E: x1 f2 `; T1 P'画 X 轴" _0 G7 R- P" D2 G  Y
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
$ U" l) D5 S) i! R0 r' _' }Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
7 r/ s6 }. Y1 X2 K2 WPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
1 {& d' z# `* {8 g6 H4 EPicture1.Print "Y"
1 M! c* Q$ O: p. G& t'画 Y 轴
7 k5 G% y: ~- A: a, gFor lin = -9 To 9
8 s8 H$ W2 x- _0 P: `Picture1.Line (lin, 0)-(lin, 0.25)# s3 y6 X) i$ G
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
# g7 h0 w$ Y$ N8 p! m) ~) K, l* L! o: ~1 SPicture1.Line (0, lin)-(-0.25, lin)
' i! A: h) w2 X) @( l% C7 u+ VIf lin &lt;&gt; 0 Then
1 \; k* Y0 f3 Mwor = PrintWord(-0.9, lin, Str(lin))
% k$ t8 {7 t  hEnd If4 A" X( Q9 b! @5 f, ~6 R$ j
Next lin! a3 T8 D% U8 N5 W- [3 I8 j
Picture1.DrawWidth = 17 Y3 a" S2 a$ i1 W; H' l
End Sub
' q8 h0 e7 \9 K3 d4 P# lPrivate Sub cmdPlot_Click()" @! i$ m0 e' }. h) c1 X
XY  i8 Y+ D$ ~6 C0 ]: _! ?) d6 V
On Error Resume Next8 _* ^* F. N5 c' l
Dim x As Double, Y As Double
) j( p$ T% i. E$ ^Randomize" t% w3 Q8 Y: U6 j+ e; q
  8 U1 k8 B; q1 X8 u% L; B# T2 O0 b
        SC.Reset
2 @7 X" K0 U" P6 x0 Q6 e% e+ h        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"* G$ `0 z. `5 p
       For x = -15 To 15 Step 0.0012 L& y" p1 q" u$ p
         Y = SC.Run("runthis", x)4 o7 O$ g' K* P( A
         DoEvents
; q; f  W+ A7 P! A          Picture1.PSet (x, Y), RGB(250, 0, 0)! B" i1 F7 w. |2 b( Y8 g
          Next x
3 z6 d- c  a, f8 U+ ^End Sub</P>, ]! C+ s; R( z3 F4 P
<>rivate Sub Command2_Click()
" N' Y5 c& X8 }* W. rXY
; A' d* r6 M# ~! h, aEnd Sub</P>( O( \6 }4 m) [; \- ?+ T& u, n
<>rivate Sub Command3_Click()
: v+ x/ A4 A  o* nEnd! l! Y9 V4 V4 h$ \# }+ t
End Sub</P>' i) Z( x6 j6 E) ~, J3 N1 a6 o
<>
$ F  P- I3 c, H3 _' X1 W6 xPrivate Sub Form_Load()) J6 D. |' z- F' C! ~
Me.Caption = "美丽曲线——数学爱好者"
# O4 O1 K8 R% N; hMe.Show5 p3 E9 N7 [3 v, d! U
Me.AutoRedraw = True$ V* u! x+ V" H& P) I
XY: D, S0 T+ |  C9 v5 k* z/ n: c: r! W
End Sub
" Z" ~2 ^1 E0 c5 V% z. Y6 E</P></TD>
  F* J( Q8 h$ u& n6 e<TD align=right width=60></TD></TR></TABLE>+ _' k: t% f9 {0 d$ p
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>0 C8 A  U9 r2 M8 w% Q. _
[此贴子已经被作者于2005-3-4 17:40:39编辑过]
作者: kensington    时间: 2010-2-3 23:09
回复 1# llm3-1415926
: {& y. y% h8 ]
# P/ d' C& S4 m# M. k2 C" J
0 M/ W2 w$ w4 S你在搞什么呢？………………………………………………
作者: 数学者    时间: 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