阅读下面的程序：PriVate Sub Form_C1ick()Dim Check As Booleau，Counter As IntegerCheck=TrueCounter=5DoDo While Counter＜20Counter=Counter+1If Counter=10 ThenCheck=FalSeEXit Do - itgle

题目

阅读下面的程序：

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

相似考题

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

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

3.给出下面的程序：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．TrueB．FalseC．20D．10

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

参考答案和解析

正确答案：10
10

更多“阅读下面的程序:PriVate Sub Form_C1ick() Dim Check As Booleau,Counter As Integer Check=True ”相关问题

第1题：

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

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

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

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

Check1.Alignment = 1
第3题：

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

Check1.Value = 2
第4题：

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

Check1.Value = 2
第5题：

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

Check1.Alignment = 1

相关内容