单项选择题

阅读如下程序: Private Sub Form_Click() Dim num As Integer,digit As Integer num=InputBox("输入数据") Do While num <> 0 digit=num Mod 10 num=num\10 Print digit; Loop End Sub 程序运行后,如果从键盘上输入12345,则输出的结果为

A.1 3 7 5 9
B.5 4 3 2 1
C.2 4 6 8 10
D.1 2 3 4 5