期末复习资料 11
(19)有如下程序
Private Sub Form_Click() A = 1 b = 2 c = 3 A = b b = c c = A
Print A; b; c End Sub
运行后输出的结果是
A) 1 2 3 B) 2 3 1 C) 2 3 2 D) 2 2 3 注意：变量名不区分大小写
(20)下面程序运行时输出的结果是 Private Sub Form_Click() S = 0
For K = 3 To 1 Step -1 If K <= 1 Then X = 1 If K <= 2 Then X = 2 If K <= 3 Then X = 3 Print X; S = S + X Next K Print S End Sub
A)3 3 3 9 B)3 2 1 6 C)1 1 1 3 D)1 2 3 6
期末复习资料 12
（1）下面程序运行后的输出S的值是 (16 ) Private Sub Form_Click() For K = 1 To 5 S = 0: J = 1 For M = 1 To K J = J + M Next M S = S + J Next K Print S End Sub
(2)下面程序运行后输出结果是 Private Sub Form_Click()
X$ = \ For J = 1 To 2
X$ = Y$: Y$ = Z$: Z$ = X$ Next J
Print X$ + Y$ + Z$ End Sub
A)CAB B)BCA C)BCB D)CBC
(3)下面程序的循环次数是 Private Sub Form_Click() For J = 8 To 35 Step 3 Print J; Next J End Sub
A)10 B)9 C)27 D)28
（4)下面程序的输出结果是 Private Sub Form_Click() A$ = \ B$ = \ C$ = \
D$ = C$ + B$ + A$
Print Right$(D$, 6); Mid$(D$, 6, 4); Left$(D$, 5) End Sub
A)HAPPY NEW YEAR! B)YEAR! NEW HAPPY C)NEW YEAR! HAPPY D)NEW HAPPY YEAR!
(5)有如下程序
Private Sub Form_Click()
期末复习资料 13
A = 3 b = 4
Print A = b End Sub
运行后输出的结果是
A)False B)True C)0 D)显示出错信息
(6)有如下程序
Private Sub Form_Click() For m = 1 To 3 For j = 1 To m For k = j To 3 N = N + 1 Next k Next j Next m Print N End Sub
运行后N的值为
A)3 B)14 C)9 D)21
(7)有如下程序
Private Sub Form_Click() A$ = \ b$ = \ c$ = A$ + b$ d = Val(c$) Print d \\ 10 End Sub
运行后输出的结果是
A)12 B)34 C)46 D)123
(8)有如下程序
Private Sub Form_Click() A = 12.3 b = -123
m = Len(Str$(A) + Str$(b)) Print m End Sub
运行后输出的结果是
A)9 B)5 C)7 D)8
(9)有如下程序
期末复习资料 14
Private Sub Form_Click() For j = 1 To 15 A = A + j Mod 3 Next j Print A End Sub
运行后输出的结果是
A)1 B)15 C)90 D)120
(10)有如下程序
Private Sub Form_Click() s = 0 Do
s = (s + 1) * (s + 2) Number = Number + 1 Loop Until s >= 30 Print Number; s End Sub
运行输出的结果是
A)0 1 B)30 30 C)4 30 D)3 182
(11)有如下程序
Private Sub Form_Click() m = 1
For k = 3 To 1 Step -1 x$ = String$(k, \ Print m; x$ m = m + 1 Next k End Sub
运行后输出的是
A)1 * B)1 * C)3 * D)1 * * * 2 * * 2 * 2 * * 2 * * 3 * * * 3 * 1 * * * 3 *
(12)有如下程序
Private Sub Form_Click() score = Int(Rnd * 10) + 80 Select Case score Case Is < 60 A$ = \ Case 60 To 69 A$ = \
期末复习资料 15
Case 70 To 79 A$ = \ Case 80 To 89 A$ = \ Case Else A$ = \ End Select Print A$ End Sub
运行时输出的结果是 A)A B)B C)C D)D