2012年计算机等级考试二级VB考点及习题（8）

会计考友

2012年计算机等级考试二级VB考点及习题（8）
(2)static变量
　　Private Sub Command1_Click()
+ u7 Y. J- ^1 s# w: O, _　　Dim n As Integer, i As Integer
　　n = 2
　　For i = 9 To 1 Step -1
; e, `5 w7 Y' ]4 |6 c- H) Z) [8 h　　Call sub2(i, n)
1 ^7 l$ P- i( }1 k7 s8 f# J　　Print i, n
　　Next i
7 H: u4 j7 a6 r# s# ^# o　　End Sub
' z& F9 |9 k8 d1 z) l' v　　Private Sub sub2(x As Integer, y As Integer)
1 J3 y, W, M2 ~3 H7 L9 i6 m　　Static n As Integer
　　Dim i As Integer
　　For i = 3 To 1 Step -1
+ o; O: c2 B! s/ }* d. M5 a5 h0 a　　n = n + x
& d% E5 j, B# C& _* O　　x = x - 1
　　Next i
　　y = y + n
　　End Sub
　　(3) 递归
　　Private Sub Command1_Click()
) a1 ]  V+ ^+ n" ]  l7 D　　Dim a As Integer
　　a = 2
　　Call sub1(a)
$ ~0 R, G$ D% T8 p+ y* e  `5 x1 [　　End Sub
4 A: `/ [- z% O% h6 G　　Private Sub sub1(x As Integer)
　　x = x * 2 + 1
　　If x < 10 Then
# M) G$ A5 h% p8 \& R  h　　Call sub1(x)
2 |) q, _  Q  F: Q7 o- K　　End If
9 J/ i7 P$ Q/ x0 a　　x = x * 2 + 1
( q" Q6 N) T+ F# f　　Print x
　　End Sub
9 N* M/ y$ S9 b) X- x+ t　　(4)递归
6 `1 N0 c2 F" P4 J( E# V% ^　　Private Sub test(x As Integer)
　　Dim i As Integer
5 w' _" N" W+ ^3 }* `　　If x  0 Then
6 `0 {( ^, K4 x1 ~& \　　Call test(x - 1)
　　For i = 1 To x
　　Print x;
　　Next i
　　Print
　　End If
　　End Sub
) ^7 {8 I* }+ J3 I: v　　Private Sub Form_Click()
　　test 3
7 n0 y) R1 I- Z! [　　End Sub
　　(5)同名变量
. C2 L+ R+ O" P+ S9 x$ E& i- q7 J　　Dim y As Integer
* Q2 \- n* \1 U　　Private Sub Form_Click()
3 J, z( y; J2 g8 k# i　　Dim x As Integer,y as integer
) C: r2 v3 o1 Y% m  V　　x=1 : y=1
　　Print "x1=";x, "y1=";y
/ c: U: K; R- i* i% Z8 M1 L　　Test
9 C' ]3 j/ R$ P$ w* C7 a& {$ U& ^　　Print "x4=";x, "y4=";y
0 @5 f; a, T7 g; Y# G4 I9 |, i　　End Sub
9 w; d' M) _8 C* L　　Private Sub Test()
" R& c& ?+ n/ M' t! d5 z$ q$ f　　Dim x As Integer
　　Print "x2=";x, "y2=";y
　　x=2 : y=3
) e1 G# j* J; D　　Print "x3=";x,"y3=";y
: \- D# Y1 {3 c' r4 [　　End Sub
! D& z8 w. L% f　　特例：
　　1、运行程序在窗体显示的结果是：
* G, e1 L, L; c; E* d# @3 V　　Private Sub Form_Click()
  ~9 r/ C/ t' r6 J- ?! f+ f4 R　　Dim a As Integer, b As Integer
　　a = 3: b = 4
　　Call sub1(a, a)
9 [. k/ u8 g2 w6 w/ S4 P　　Print a, b
- ~9 E& Z' B( W! J3 a; c　　Call sub1(b, b)
　　Print a, b
5 g, ^5 b5 f5 @8 E0 V) n9 X　　End Sub
　　Private Sub sub1(x As Integer, y As Integer)
% Q* t% n1 \- ~! x6 e* ^　　x = x + 2
　　y = x + y
　　End Sub