阅读下面的程序：Private Sub Form_Click( )Dim Check As Boolean，Counter As IntegerCheck=TreeCounter=5DODO While Counter＜20Counter=Counter+1If Counter=10 ThenCheck=FalseExit DoEnd ifLoopLoop Until Check=FalsePrint CounterEnd Sub程序运行后，单击窗体，输出结果为【】。 - itgle

题目

阅读下面的程序：

Private Sub Form_Click( )

Dim Check As Boolean，Counter As Integer

Check=Tree

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

程序运行后，单击窗体，输出结果为【】。

相似考题

1.阅读下面的程序：Private Sub Form_Click（）Dim Check As Boolean, Counter As IntegerCheck = TrueCounter = 5DoDo While Counter < 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint CounterEnd Sub程序运行后，单击窗体，输出结果为______。

2.下列程序段的输出结果为______。Check = True: a = 1Doa = a + 1Check = Check + 1Loop While a ＜ 10print Check

3.下列关于PDCA循环理论描述中正确的是A、Play、Do、Check、AbbreviateB、Play、Develop、Check、ActionC、Play、Develop、Capacity、AbbreviateD、Plan、Do、Check、ActionE、Plan、Do、Check、Abbreviate

4.下列( )语句使复选框Check1无效。A、 Check1.Value = 1B、 Check1.Value = 2C、 Check1.Style. = 1D、 Check1.Style. = 0

参考答案和解析

正确答案：10
10 解析：本题内循环的结束条件是当Counter为10时，而此时Check=False，则跳出外循环，故最后Counter为10。

更多“阅读下面的程序:Private Sub Form_Click() Dim Check As Boolean,Counter As Integer Check=Tree ”相关问题

第1题：

阅读下面的程序：
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

正确答案：10
10
第2题：

下列（）语句使复选框Check1变成灰色。
A．Check1.Value = 0
B．Check1.Value =1
C．Check1.Value = 2
D．Check1.Style = 0

Check1.Value = 2
第3题：

下列（）语句使复选框Check1的标题显示在左边。
A．Check1.Style = 0
B．Check1.Alignment = 0
C．Check1.Style = 1
D．Check1.Alignment = 1

Check1.Alignment = 1
第4题：

计划（Plan）、执行（Do）、（）和行动（Action），简称PDCA。

A.测试（Check）
B.检查（Check）
C.变更（Check）
D.分析（Check）

答案：B
解析：
计划（Plan）、执行（Do）、检查（Check）和行动（Action），简称PDCA。
第5题：

19、下列（）语句使复选框Check1的标题显示在左边。
A．Check1.Style = 0
B．Check1.Alignment = 0
C．Check1.Style = 1
D．Check1.Alignment = 1

Check1.Alignment = 1
第6题：

18、下列（）语句使复选框Check1变成灰色。
A．Check1.Value = 0
B．Check1.Value =1
C．Check1.Value = 2
D．Check1.Style = 0

Check1.Value = 2

相关内容