[单项选择题] 有如下程序; Private SubForm_Click()Dim check As Boolean,n As Integercheck=Falsen=0Do Do While n<

26 查阅

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

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。

计算机考试