找考题网-背景图
未分类题

有如下程序: 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

A.15
B.20
C.10
D.10

【参考答案】

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

(↓↓↓ 点击‘点击查看答案’看完整答案 ↓↓↓)
热门试题