问题 单项选择题

在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:
Private Sub Command1_Click()
Dim i As Integer,a As Integer
Do While i<20
Do While True
If i Mod 10=0 Then
Exit Do
Else
i=i-1
End If
Loop
i=i+11
a=a+i
Loop
Printa
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。

A.21

B.32

C.33

D.11

答案

参考答案:B

解析: 本题内层循环的循环条件始终为True,因此内层循环体内的Exit Do语句为终止循环的语句。首先,判断外层循环Do While后面表达式“i<20”的值为True,接着执行内层循环的If语句,表达式“i Mod 10=0”的值为True,执行Exit Do语句,跳出内层循环,执行下面的语句,此时i和a的值分别为11:回到外层循环,判断条件“i<20”,仍为True,执行内层循环语句,此时If条件不满足,执行Else语句,i的值为10,继续内层循环,If语句条件满足,执行Exit Do语句,跳出内层循环,执行下面的语句后,i和a的值分别为21和32。再判断外层循环的条件,不再满足,结束循环。输出变量a的值为32。

单项选择题
单项选择题