2. 计算机
  3. 给出下面的程序：Private Sub Command1_ Click() Dim Check, Counter Check= True: Counter = 0 do do while Counter ＜ 20

给出下面的程序：Private Sub Command1_ Click() Dim Check, Counter Check= True: Counter = 0 do do while Counter ＜ 20

admin2010-09-11  54
问题 给出下面的程序：Private Sub Command1_ 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    MsgBox CounterEnd Sub    程序最后弹出的消息对话框的内容是______。
选项 A、True
B、False
C、20
D、10
答案D
解析 本题的难点是do while… Loop和do …Loop until循环控制问题。实际上在该段程序中，有三处判断控制循环，条件先成立处先执行。首先变量“Counter=10”时，“Check= False”，退出内层循环，do… Loop until根据条件“Check=False”又退出外层循环，此时“Counter=10”。
转载请注明原文地址:https://kaotiyun.com/show/2Jmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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