2012年计算机等级考试二级VB考点及习题(9)
! i: f% W6 p0 E* P2、运行程序单击窗体,在窗体上显示的内容是:16 20
+ o8 b1 c! x; t: P4 ^7 S Private Sub Form_Click()
* ?+ D1 A4 R" O' K; l: F Dim n As Integer, m As Integer; u& n" N1 K$ W
n = 1: m = 2
; K, @4 T0 V2 k: { Print n + m + f(n, m) ;
1 T6 k3 x; n) n4 M* C3 v) } '优先执行f函数,n,m变化后再运算 “+”
m( D0 N: }/ M0 Y7 H9 T n = 2: m = 1: i. M; J3 j( Y
Print f(n, m) + f(m, n)' V5 Q9 \) ^: e1 C9 R% b
'n,m第一次变化后,第二次以变化后的值再调用0 ~, a5 y2 X/ O/ F' g9 Y" Y/ O8 E
End Sub
L7 Q- s# `: T Private Function f(n As Integer, m As Integer)
8 \- p, }- A1 t! o0 O2 t n = n + m
' I5 @; r& x0 r$ f9 |7 Y m = m + 3
& V( B5 q% u, \3 _8 c Z: k f = n + m* s3 M0 L2 z. J( ?. S
End Function5 {8 d' F) \5 G) r; ^
3、执行下面的程序,在窗体上显示的输出结果是______;如果将A语句改成:Call sub1(b+1,a),则在窗体上显示的输出结果是______。
- B0 r1 P. I% ]0 `+ t5 [1 m9 t Private Sub Form_Click()
9 E8 Z9 C- e$ @) E' F- j Dim a As Integer, b As Integer
0 U* i1 d% i2 a a = 1: b = 2
2 Q' {9 t g: `1 ?6 @ Call sub1(a, b) 'A
7 i0 r" s# b+ l" W Print a, b
: A3 h. K$ E: p* B/ f+ Y End Sub
" x/ D7 E. k) y, z* f/ H Private Sub sub1(x As Integer, ByVal y As Integer)
6 ^+ t8 k* ] Q. s, D; ^) ` x = x + y
# s; ^9 r; y6 L! k# w y = x + y
0 ^, ?1 v; ^- y, \8 L End Sub |