数学建模社区-数学中国

标题: 帮帮忙，跪下谢谢斑竹，VB [打印本页]
作者: llm3-1415926    时间: 2005-3-2 00:00
标题: 帮帮忙，跪下谢谢斑竹，VB
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>' i; M( s; t1 i4 [
7 W& Q- f5 _% M) L# W) V
<TR>) T$ e, V# g# L3 N1 [9 T
<TD width=*>
$ E; ]4 v" y# o  G- P<><B>帮帮忙，跪下谢谢斑竹，VB</B></P>
! R( J: U# m+ L3 |; }* n6 P<>rivate Function PrintWord(x, Y, Word As String)! D2 V2 N  w- k& P# x" h
With Picture1' Y. x$ Z* }' w7 {# s: p
.CurrentX = x& b# i7 i! [6 k* X6 i
.CurrentY = Y# m2 g9 H- i0 R+ D' L
.ForeColor = RGB(0, 0, 255)* Y# y) j/ q; s; q
End With
5 R' ], C! K5 |# T1 ~) {; C4 rPicture1.Print Word* Y( ]- F; d. T- T9 I* W( m2 @
End Function: ?1 i4 {8 Q) k( f1 T4 x- r
'定义画点函数
, L- F$ \/ i* xPrivate Function DrawDot(Px, Py, Color)8 A  }$ U2 O5 @9 m5 F$ l( |) r
Picture1.PSet (Px, Py), Color$ e7 m- x- y1 S
End Function
" w8 M* e8 t3 g% f9 r6 mSub XY() '建立直角坐标系2 g4 K; T' E' l/ I
Picture1.DrawWidth = 1 '设置线条宽度) n& B: ~7 p* ?9 V; y5 H3 @
Picture1.Cls3 x/ I8 u* m8 O
'设定用户坐标系，坐标原点在Picture1中心2 A3 |0 m% G: }$ A" X0 T
Picture1.Scale (-10, 10)-(10, -10)
  M" J4 F8 @+ J' ^/ m' zPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)7 N* R& E% E. j! M1 r+ H
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
+ {* U4 I/ W; A; J5 |# p* R+ x8 pPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255); G% Q+ Z+ g& K5 o
Picture1.ForeColor = RGB(0, 0, 255)
; m' j1 H; S2 u8 X/ v. TPicture1.Print "X"0 d1 D7 D. _" M  F$ Q" Q
'画 X 轴
) u1 W" K% d6 n9 H  }$ l% ZPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
$ C; g; P3 Y# H8 N1 e4 a- ~# jPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)( H/ K' o! i0 ]: O4 Y) n! w/ c
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)9 T2 U# M2 |" N" p0 Y
Picture1.Print "Y"
  J3 g3 e6 j4 O* i3 D'画 Y 轴
; _; m# V6 w* C" u0 K5 v# DFor lin = -9 To 9$ q: e8 ?/ }, B4 B; E
Picture1.Line (lin, 0)-(lin, 0.25)- l* w( Z9 i7 H: e
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
7 {7 b" t2 I% J) Y' w) m, uPicture1.Line (0, lin)-(-0.25, lin)5 A+ I  ~, B, m9 \
If lin &lt;&gt; 0 Then
5 Q- i' ^/ p9 J, A* f- S1 T( bwor = PrintWord(-0.9, lin, Str(lin))) o$ f7 N" _5 |# P5 p
End If
% B- q& q- g) }# [$ C- jNext lin
7 t& p+ q+ V# c8 o8 I. n  q0 {2 ^" ~Picture1.DrawWidth = 1; ?& r7 K6 e! i; ?  b* ]! x
End Sub3 b3 e  u# b0 [. W6 o6 @
Private Sub cmdPlot_Click()
+ E+ q* q* H: I; \XY. R% q% P: m' w
On Error Resume Next
  ]: b, s. P3 q% H$ ^) ^: N6 u; kDim x As Double, Y As Double
, @8 t4 v* ^- {, [- _Randomize
9 u6 ^  M9 M5 X1 }* X- k  % e; e& b& J" e) d3 ?3 N
        SC.Reset5 S2 y1 k* I1 N+ }, V
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"2 D6 D: |6 S/ q" j
       For x = -15 To 15 Step 0.001" C- g( @. ]. k' c$ K  s" D
         Y = SC.Run("runthis", x): |& N2 w4 ~6 O0 R
         DoEvents$ h: R& L8 w" i  |
          Picture1.PSet (x, Y), RGB(250, 0, 0)
* `- f1 g' y0 G1 p          Next x
6 M) f; J$ z9 ?: }End Sub</P>9 D  F9 }/ ~$ h6 ~
<>rivate Sub Command2_Click()1 e/ n9 f& l( g- v
XY
+ D! v! i. R" X5 U" }2 \End Sub</P>
8 R3 n" q3 l' Y" {; e<>rivate Sub Command3_Click()/ T" O6 P6 `0 m  q% Y
End
8 C9 I" k% t3 k$ Y* JEnd Sub</P>/ U" ]9 Q; G8 W2 M: d! f6 v
<>
% G, E+ E0 b  I% c/ k: x) RPrivate Sub Form_Load()# r8 Y; c. b% \4 `  J5 K
Me.Caption = "美丽曲线——数学爱好者"5 g  h) a4 \5 V3 k2 Y5 j
Me.Show
8 E- X# J5 o$ R8 F! V- g% |Me.AutoRedraw = True
% `( }( F0 w) r. nXY& W2 h; q1 [+ `1 f
End Sub
0 a: l8 l- m* u1 l/ }</P></TD>
# P6 h  @2 F& F1 R5 h$ k0 M5 J<TD align=right width=60></TD></TR></TABLE>& a# x# N9 Z5 W. O3 h- `& I. h
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），sc为ms.script.control控件请帮忙,<B>跪下谢谢斑竹</B></P>4 t, \3 l3 U7 W, z6 E  j
[此贴子已经被作者于2005-3-4 17:40:39编辑过]
作者: kensington    时间: 2010-2-3 23:09
回复 1# llm3-1415926
$ j0 ~: h/ @$ _) V4 g  t& S8 U7 f( x9 f0 r9 s* I7 Z
' e/ `" d8 x; a4 h' z3 _" i
你在搞什么呢？………………………………………………
作者: 数学者    时间: 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