[填空題] 下面的程序執(zhí)行時(shí)，可以從鍵盤(pán)輸入一個(gè)正整數(shù)，然后把該數(shù)的每位數(shù)字按逆序輸出。

例如：輸入7685，則輸出5 8 6 7；輸入1000，則輸出0 0 0 1。請(qǐng)?zhí)羁铡?/p>

Private Sub Command1_Click()

Dim x As Integer

x=InputBox("請(qǐng)輸入一個(gè)正整數(shù)")

While x＞______

Print x Mod 10;

x=______

wend

End Sub

0；x10

本題考查數(shù)據(jù)逆序的算法。數(shù)據(jù)逆序的基本思路就是不斷地輸出和10整除后的余數(shù)，題中輸出x Mod 10，這樣可以輸出x的個(gè)位數(shù)。接下來(lái)取得此數(shù)除以10得到的商，本題就是x=x10，一直到x變?yōu)?結(jié)束循環(huán)，這樣從數(shù)據(jù)的各位開(kāi)始，逐個(gè)輸出x的每一位數(shù)據(jù)。