[单项选择题] 有如下程序； Private SubForm_Click()Dim check As Boolean，n As Integercheck=Fa

[单项选择题] 有如下程序；

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。