![[填空题] 下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。 例如：输入7685，则输出5 8 6 7；输入1000，则输出0 0 0 1。请填空。 Private S](http://www.mshxw.com/aiimages/31/262038.png "[填空题] 下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。 例如：输入7685，则输出5 8 6 7；输入1000，则输出0 0 0 1。请填空。 Private S")
[填空题] 下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。
例如：输入7685，则输出5 8 6 7；输入1000，则输出0 0 0 1。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox("请输入一个正整数")
While x＞______
Print x Mod 10;
x=______
wend
End Sub
参考答案：
0；x10问题解析:
本题考查数据逆序的算法。数据逆序的基本思路就是不断地输出和10整除后的余数，题中输出x Mod 10，这样可以输出x的个位数。接下来取得此数除以10得到的商，本题就是x=x10，一直到x变为0结束循环，这样从数据的各位开始，逐个输出x的每一位数据。
