有如下程序: 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 Tree
D.10 False
第1题:
有如下程序: 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
第2题:
有如下程序: 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
第3题:
有如下程序: Ptivate Sub Form_Click() Dim Check,Counter Cbeck=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
第4题:
给出下面的程序: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
第5题:
有如下程序: 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