填空题： 下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如，输入7685,则输出5 8 6 7；输入1000，则输出0 0 0 1。请填

下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如，输入7685,则输出5 8 6 7；输入1000，则输出0 0 0 1。请填空。

Private Sub Command1_Click()

Dim x As Integer

x=InputBox("请输入一个正整数")

While x＞ (10)

Print x Mod 10：

x=x10

Wend

Print (11)

End Sub