2. 计算机
  3. 阅读下面的程序： Private Sub Form_Click() Dim Check As Boolean,Counter As Integer Check=True Counter=5 Do Do While Counter＜20 Counter=Co

阅读下面的程序： Private Sub Form_Click() Dim Check As Boolean,Counter As Integer Check=True Counter=5 Do Do While Counter＜20 Counter=Co

admin2009-02-10  39
问题 阅读下面的程序：
Private Sub Form_Click()
Dim Check As Boolean,Counter As Integer
Check=True
Counter=5
Do
Do While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后，单击窗体，输出结果为【  】。
选项
答案10
解析 Do While…Loop是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Loop后面的语句。Do’”Loop Until是先执行循环体，再判断条件表达式，如果表达式的值为True，则执行Loop后面的语句，如果为False，则继续执行循环体。而ExitDo则是强行退出循环。当Counter =10时，强行退出DoWhile循环，而由于此时Check二False，使得Umil的条件为Tree，结束外层循环。所以最终Counter=10。
转载请注明原文地址:https://kaotiyun.com/show/0d2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)