单选题编写如下程序： Private Sub Command1_Click() Dim m As Integer，n As Integer m=1：n=0 Do While m<20 n=m+n：m=3*m+1 Loop Print m，n End Sub 程序运行后，单击命令按钮Command1，输出结果为

A、 40 18
B、 40 19
C、 20 64
D、 21 64

【正确答案】 A

【答案解析】解析：本题的Do循环是一个先判断条件型的循环，在循环中将循环变量m的值每次改变。分析循环可看出，在4次循环中m的值分别为1、4、13、40，而只有前三次循环中的m值被累加到n中，最后一次循环由于不满足m<20而跳出。