有如下程序; Private SubForm_Click() Dim check As Boolean,n As Integer check=False n=0 Do Do While

admin2009-03-15  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

答案2

解析 本题给出的程序由两层循环组成,外层循环使用的语句是Do...Until,内层循环使用的语句是Do While。Print语句在内层循环的End if语句的下面,内层循环共循环了4次,Print语句输出的值分别为1、2、 3、4;当内层循环到第5次时,将标志值check设置为True,并用Exit Do语句强制退出内层循环。外层循环则在检测到标志值check为True时,立即退出循环,而不会打印输出5。
转载请注明原文地址:https://jikaoti.com/ti/vBq0FFFM
0

随机试题
最新回复(0)