单选题编写如下程序：
Private Sub Command1_Click()
Dim n As Long, s As String
n=InputBox("输入一个数")
Do While n＜＞0
Printn/10 Mod 10; :Print n Mod 10; :n=n/100
Loop
Print s
End Sub
程序运行后，单击命令按钮Command1，并输入数值123456，则输出结果为

A、 6 5 4 3 2 1
B、 5 6 3 4 1 2
C、 6 4 2 5 3 1
D、 6 1 5 2 4 3

【正确答案】 B

【答案解析】[解析] 本题中是在一个Do循环中对一个数字进行分解，首先输出该数字整除10之后再除以10得到的余数(即十位上数字)，然后输出该数除以10得到的余数(即个位数字)，然后将该数去掉十位和个位上的数字以后继续循环，最终依次输出5、6、3、4、1、2。