有如下程序: Private Sub Form_C1ick() Dim CheCk,Counter CheCk=True Counter=0 Do

admin2009-02-15  33

问题 有如下程序:      Private Sub Form_C1ick()          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          Ptint Counter,Check      End Sub    程序运行后,单击窗体,输出结果为______。

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

答案D

解析 Do While…Loop是先判断条件表达式的值是否为True,如果为True,则执行循环体,如果为False,则执行Loop后面的语句。Do…Loop Until是先执行循环体,再判断条件表达式,如果表达式的值为True,则执行Loop后面的语句,如果为False,则继续执行循环体。而Exit Do则是强行退出循环。当Counter =10时,强行退出DoWhile循环,而由于此时Check=False,使得umil的条件为True,结束外层循环。所以最终Coumer=10。
转载请注明原文地址:https://kaotiyun.com/show/Om1p777K
0

最新回复(0)