问题
单项选择题
在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim y As Integer
y=0
Do
y=InputBox("y=")
If(y Mod 10)+Int(y/10)=10 Then Debug.Print y；
Loop Until y=0
End Sub
打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是
A．37 55 64 28 19 19
B．10 50 20
C．10 50 20 0
D．37 55 64 28 19
答案
参考答案：D
解析： 本题考查的是VBA编程基础以及循环、分支结构。“Do…Loop until”循环是为了控制输入。而直接输出是在“Debug.Print y”，即在“If Then”这个选择中，此题的关键在于读懂“If(y Mod 10)+Int(y/10)=10”这个条件，“y mod 10”是取y的个位上的数。而Int(y/10)则是相当于取y的十位上的数，满足这个条件的二位数的y值有：19、28、37、46、55、64、73、82、91，且只能为正数。因此，答案为37 55 64 28 19。