有如下程序； Private SubForm_Click()Dim check A

问题单项选择题

有如下程序；
Private SubForm_Click()
Dim check As Boolean，n As Integer
check=False
n=0
Do
Do While n＜10
n=n+1
If n=5 Then
check=True
Exit Do
End if
Print n；
Loop
Loop Until check = True
End Sub
程序运行后，输出的结果是 ______ 。

A) 1 2 3
B) 1
2 3 4
C) 1
2
3 4
5
D) 1
2
3
4
5
6

答案

参考答案：B

解析：本题给出的程序由两层循环组成，外层循环使用的语句是Do．．．Until，内层循环使用的语句是Do While。Print语句在内层循环的End if语句的下面，内层循环共循环了4次，Print语句输出的值分别为1、2、 3、4；当内层循环到第5次时，将标志值check设置为True，并用Exit Do语句强制退出内层循环。外层循环则在检测到标志值check为True时，立即退出循环，而不会打印输出5。