下列各句中不含古今异义词的一项是[ ]

A．徘徊于斗牛之间  虽一毫而莫取

B．杯盘狼籍   如怨如慕

C．凌万顷之茫然  客亦知夫水与月乎

D．驾一叶之扁舟  可怜体无比

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