阅读下面的程序：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程序运行后，单击窗体，输出结果为______

题目

阅读下面的程序：

Private Sub Form_Click（）

Dim Check As Boolean, Counter As Integer

Check = True

Counter = 5

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 SubForm_Click() Dim check As Boolean，n As Integer check=False n=0 Do Do While n＜10 n=n+1 If n=5 Then check=True Exit Do End if Print n； Loop Loop Until check = True End Sub 程序运行后，输出的结果是 ______ 。A．1 2 3B．1 2 3 4C．1 2 3 4 5D．1 2 3 4 5 6

2.阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd Sub单击窗体程序的执行结果是【】。

3.执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=Str&Mid(S，i，1)Next iMsgBox StrEnd Sub

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

更多“阅读下面的程序: PrivateSubForm_Click() DimCheckAsBoolean,CounterAsInteger Check=T ”相关问题

第1题：

阅读下面的程序：
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
程序运行后，单击窗体，输出结果为【】。

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

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

正确答案：D
解析：这是一个二重循环，内层和外层都是Do循环。在内层循环中，执行循环体的条件是Counter20，由于Counter的初值为0，因此执行循环体。在循环体中，每次循环Counter加1，达到10后，将Check变量设置为False，同时执行ExitDo，退出内层循环。外层循环执行的条件是，变量Check的值是True，如果Check为False，则退出外层循环，输出结果，结束程序。由于在退出内层循环时，Check已被设置为False，因此退出内层循环后立即就可以退出外层循环。退出两层循环后，Counter和Check的值没有发生任何变化，与退出内层循环时相同，分别为10和False。
第3题：

请阅读下面程序为使该程序正确执行，下画线处的语句应是（）。
A.t．sleep（）
B.t．yield（）
C.t．interrupt（）
D.t．start（）

正确答案：D
程序中通过继承Thread类来创建线程，而Java中新创建的线程不会自动运行，必须调用线程的start（）方法，才能运行该线程。
第4题：

阅读下面的程序段： K=0 Forl=1 t03 For J＝l to I K=K+J Next J Next 1 执行上面的语句后，K的值为______。
A．8
B．10
C．14
D．21

正确答案：B
解析：本题是两层嵌套循环，外面的循环执行一次，里面的循环就要全部都执行一次。初始时K=O
当l=1时，里面循环要全部执行，有forJ = to 1; 所以K=K+I，最后K值为1
当I=2时，里面循环要全部执行，有forJ=lt 2; 所以K=K+I，K=K+2，最后K值为4
当1=3时，里面循环要全部执行，有forJ=l to 3; 所以K=K+I，K=K+2，K=K+3，最后K值为10最后得到的K值为10
第5题：

阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。
A．105
B．1
C．120
D．15

正确答案：D
解析：本题是计算1到15对3取余的所有余数的和。For循环控制变量j从1到15变化，步长为1，每执行一次循环变量的值加1，因此循环语句的执行了15次。因为Mod运算符的优先级高于加(+)，因此循环体a=a+ jMod 3中，首先执行j Mod 3语句，再与a相加。变量a的功能是累计1到15对3取余的所有余数的和。程序的执行过程如下：
第一次：i=1，a=0，a=0+1 mod 3=0+1=1
第二次：j=2，a=1，a=1+2 mod 3=1+2=3
第三次：j=3，a=3，a=3+3 mod 3=3+0=3
第四次：j=4，a=3，a=3+4 mod 3=3+1=4
第五次：j=5，a=4，a=4+5 mod 3=4+2=6……
第十五次：j=15，a=15，a=15+15 mod 3=15+0=15

niusouti.com

题目

相似考题

更多“阅读下面的程序: PrivateSubForm_Click() DimCheckAsBoolean,CounterAsInteger Check=T ”相关问题

相关内容