单选题在窗体上画两个名称分别为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

【正确答案】 B

【答案解析】[解析] Do While循环是先判断再执行循环。程序执行后x=1，首先判断x是否小于20，条件为真，则将x乘以3再赋给x，n加1赋给n，再次进入循环重复进行以上操作，当第3次循环以后x=27，n=3。此时x不符合循环条件x＜20，退出循环。