[单项选择题] 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click()Dim

19 查阅

[单项选择题] 在窗体上画两个名称分别为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，退出循环。