阅读下面的程序： 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 程序运行后，单击窗体，输出结果为______。
举一反三
- 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
- An open check can be cashed over the counter
- 编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1 Do y = x * y If y > 10 Then Print x, y Exit Do Else x = x + 3 End If Loop While x <= 10 End Sub 运行程序，输出结果为______
- 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