![[填空题] 下面的程序执行时，可以从键盘输入一正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867；输入1000，则输出0 0 0 1。请填空。 Private Sub Com](http://www.mshxw.com/aiimages/31/261274.png "[填空题] 下面的程序执行时，可以从键盘输入一正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867；输入1000，则输出0 0 0 1。请填空。 Private Sub Com")
[填空题] 下面的程序执行时，可以从键盘输入一正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867；输入1000，则输出0 0 0 1。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox("请输入一个正整数")
While x＞______
Print x Mod 10;
x=x10
Wend
Print ______
End Sub
参考答案：
10 x问题解析:
任何一个正整数与10相除的余数都是这个正整数的个位数字，为了将由键盘输入的正整数的每位数字按逆序输出，每次循环先输出该数的个位数字，再利用整除运算将该数的个位数字去掉，以此类推。在第[14]空处应该填循环执行条件判断，此处填10，在只有一位数的情况下退出循环；第[15]空填写x，输出最后一位数。若第[14]空填0，则第[15]空无须填写，请读者思考。
