单选题编写如下程序：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， nEnd Sub程序运行后，单击命令按钮Command1，输出结果为(　　)。

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

【正确答案】 A

【答案解析】解析：循环中各变量值变化如下： n＝m＋n＝1＋0＝1 ， m＝3*m+1=3+1=4,4小于20继续循环； n＝m＋n＝4＋1＝5 ， m＝3*m+1=12+1=13,13小于20继续循环； n＝m＋n＝13＋5＝18 ， m＝3*m+1=39+1=40,40不小于20，循环结束。此时m=40,n=18。