单选题 vate Sub Commandl—Click()Dim m As Integer,n As Integerm=1：n=0Do While m<20n=m+nm=3*m+1LoopPrint 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+l=40，40不小于20，循环结束。此时m=40，n=18。