Loop
If ________【20 】_________ Then MsgBox “没有找到！” Else MsgBox “找到了” & Str (sum) & “个”
End If End Sub
答案
一、选择题
1. B
2. A x没有赋值，默认为0。而在VB中，0作为逻辑常量False，非0作为True。 3. C 4. D
对于多边选择，一般从最小值开始判断，依次增大；或者从最大值开始判断，
依次减小。这样可不会被众多的条件所迷惑或考虑不周而漏了某个条件的判断。 5. D 错误原因不管x取何值，f=x*x+3语句始终执行。
6. C A死循环，永远不可能小于0；B死循环，不可能使i=10；D死循环，不可能
使i=0。 7. B 8. B 9. C 10. D 11. B 12. A
二、填空题
(1) 33 根据循环次数计算公式得。
（2）10 该题相当于统计两重循环执行了多少次。 （3） n Mod 3 = 1 And n Mod 5 = 1 And n Mod 7 = 1 （4） Until CountN = 5或While CountN < 5 (5) 27 (6) 3 (7) len(a) (8) d=c+d (9) flag=1 (10) exit for (11) 7
(12) 输出数据的小数部分 (13) 2和72 (14) sign=1
(15)for i=2 to 19 (16)sign=-1*sign (17) len(Str1) (18)Length (19mid(Str1,i,2) (20)sum=0
6
在内循环体内对存放阶乘的变量n赋初值，显示的结果是1、2、3、4。