下面的程序执行时，可以从键盘输入一正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867；输入1000，则输出0 0 0 1。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox("请输入一个正整数")
While x＞______
Print x Mod 10;
x=x\10
Wend
Print ______
End Sub

触诊，全腹肌紧张，硬如木板，最可能的疾病是（）

A.急性弥漫性腹膜炎

B.急性胆囊炎

C.急性肠炎

D.消化性溃疡

E.结核性腹膜炎