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; CheckEnd Sub程序运行后，单击窗体，输出结果为______。
A: 15 0
B: 20 -1
C: 10 True
D: 10 False
A: 15 0
B: 20 -1
C: 10 True
D: 10 False
举一反三
- 阅读下面的程序： PriVate Sub Form_C1ick() Dim Check As Booleau，Counter As Integer Check=True Counter=5 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 End Sub 程序运行后，单击窗体，输出结果为______。
- An open check can be cashed over the counter
- In Forex, the counter currency represents how much of the quote currency is needed for you to get one unit of the counter currency. True or false?
- At the check-in counter, you show your passport and ticket and check in your baggage.
- 对于如下程序，单击Co皿andl事件发生后，窗体上显示的内容为 ______。 Private Sub Command1_Click() Dim i As Integer,a a As Integer Do While i＜20 Do While True If i Mod 10 = 0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+1 Loop Print a End Sub A: 21 B: 32 C: 33 D: 11