问题
填空题
下面的程序执行时，可以从键盘中输入一个正整数，然后把该数的每位数字按逆序输出。例如输入7685，则输出5867，输入1000，则输出0001。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox("请输入一个正整数")
While x＞______
Print x Mod 10
x=x\10
Wend
Print______
End Sub
答案
参考答案：10 x
解析： 这里是While循环的条件，结合题意要逆置一个正整数，则至少要两位或两位以上，故x需大于9。
While循环结束后，此时的x中存放的是一开始输入的数的最高位的数字，故打印输出x，该数所有数字逆置完毕。