问题
单项选择题
对于如下程序，单击Co皿andl事件发生后，窗体上显示的内容为 ______。
Private Sub Command1_Click()
Dim i As Integer,a 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+1
Loop
Print a
End Sub
A．21
B．32
C．33
D．11
答案
参考答案：B
解析： 本题内层循环的条件始终为True，因此内层循环体内的Exit Do语句为终止循环语句。首先，判断外层循环Do While后面的表达式“i＜20”为True，接着执行内层循环的If语句。表达式“i Mode 10=0”的值为True，执行Exit Do，跳出内层循环，执行下面的语句，得i=11， a=11。回到外层循环，判断Do While后面的表达式“i＜20”为True，执行内层循环的If语句，表达式“i Mode 10=0”的值为False，执行i=i-1，i=10。跳出内层循环，执行下面的语句，得到i=21，a=32。