有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do Whi

admin2010-09-11 47

问题有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 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, Check End Sub 程序运行后，单击窗体，输出结果为______。

选项 A、15 0
B、20 -1
C、10 True
D、10 False

答案D

解析变量Check的初值为True，变量Counter的初值为0。当Counter＜9时，Counter每次循环加1，直到等于10时，Check的值为False，退出里层Do-Loop循环。当Check=False的计算结果为True时，退出外层Do-Loop循环，在窗体上打印出Counter的值10和Check的值Ralse。

转载请注明原文地址:https://kaotiyun.com/show/NAmp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类