计算机二级
假定有如下事件过程： Privte Sub Form_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x，n End Sub 程序运行后，单击窗体，输出结果是A．81 4B．56 3C．28 1D．243 5
题目
假定有如下事件过程： Privte Sub Form_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x，n End Sub 程序运行后，单击窗体，输出结果是
A．81 4
B．56 3
C．28 1
D．243 5
相似问题和答案
第1题：
假定有如下事件过程： Private Sub Form_Cilck() Dim x As Integer，n As Integer x=1 n=0 Do While x＜28 X=X*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果为______。
A．81 4
B．56 3
C．28 1
D．243 5
解析：DoWhile语句是当While后面的条件为True时，执行循环体，当条件为False时退出循环。本题的条件是x28，而循环体中的语句是X=x*3，所以当x值为81时，退出循环体，此时共执行了4次循环体，所以n的值为4。
第2题：
在窗体上画两个名称为Text l、Text 2的文本框和一个名称为Command l的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x＝x*3 n=n＋l Loop Textl．Text=Str(x) Text2．Text-Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A．9和2
B．27和3
C．195和3
D．600和4
解析：本题考查While循环的处理过程。循环第1次x=l，执行循环，n=l；循环第2次， x=3，仍然执行循环，n:2；依次类推，当执行完第3次循环后，x＝27＞20，n＝3，不再满足条件，跳出循环，答案为B。
第3题：
假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。
A．81 4
B．56 3
C．28 1
D．243 5
解析：Do While-Loop循环语句的判断条件为“x28”。循环语句“x=x*3”的作用是每循环一次将成为原数的3倍，而变量n用来记录循环次数，当循环3次后，x得27，有2728，再循环一次后x得81，有81＞28，不再满足循环条件，此时n为4。执行Print语句，输出x和n的值，即输出81和4。
第4题：
假定有如下事件过程： Phvate Sub Form_Click() DimXASInteger，nASInteger x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Ptint x,n End Sub 程序运行后，单击窗体，输出结果为______。
A． 81 4
B．56 3
C．28 1
D．243 5
解析：Do While语句是当While后面的条件为True时，执行循环体，当条件为False时退出循环。本题的条件是x28，而循环体中的语句是x=x*3，所以当x值为81时，退出循环体，此时共执行了4次循环体，所以n的值为4。
第5题：
在窗体上画两个名称为Tcxt1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程： Private Sub Command1 Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x=x*3 n=n +l Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A．9和2
B．27和3
C．195和3
D．600和4
解析：本题考查While循环的处理过程。循环第1次x=1，执行循环，n=1；循环第2次， x=3，仍然执行循环，n=2 依次类推，当执行完第3次循环后，x=27＞20，n=3，不再满足条件，跳出循环，由此可知本题答案为选项B。
第6题：
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim x As Integer，n As Integer x = 1 n = 0 Do While x＜20 x = x * 3 n = n + 1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A．15和1
B．27和3
C．195和3
D．600和4
解析：本题考查Do循环控制语句。根据题意，Do循环控制语句执行了3次，在执行第三次循环后，x的值为27，此时终止循环。由于循环了3次，n值加了3次1，故本题正确答案为B。
第7题：
在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是 ______。
A．15和1
B．27和3
C．195和3
D．600和4
解析：跟踪程序的运行：
第一次：x=120，x=1*3=3，n=0+1=1
第二次：x=320，X=3*3=9，n=1+1=2
第三次：x=920，x=9*3=27，n=2+1=3
再循环时，x=27＞20，退出循环在Text1和Text2中，分别将x和n转换为字符串输出。
第8题：
假定有如下事件过程：
Private Sub Form_Click（）
Dim x As Integer, n As Integer
x = 1
n = 0
Do While x < 28
x = x * 3
n = n + 1
Loop
Print x, n
End Sub
程序运行后，单击窗体，输出结果是（ ）。
A．81 4
B．56 3
C．28 1
D．243 5
第9题：
假定有如下事件过程： Privte Sub Form_Click0 Dim x As Integer,n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果是( )。
A．81 4
B．56 3
C．28 1
D．243 5