问题
单项选择题
在窗体上有一个命令按钮Command1，编写事件代码如下。
Private Sub Command1_Click()
Dim y As Integer
y=0
Do
y=InputBox("y=")
If(y Mod 10)+Int(y/10)=10 Then DebugPrint 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
解析： 本题程序首先定义变量y用以存放输入的整数，通过Do…Loop Until循环中的语句“y=InputBox("y=")”将输入的值赋值给变量y，程序通过Do…Loop Until循环语句来判断输入的值是否符合条件，即语句“If(y Mod 10)+Int(y/10)=10”，该语句的意思是，判断“变量y对10取模”与“变量y整除10”相加后的值，如果结果等于10，则输出变量y的值，不等于10，则继续判断下一个值，直到输入的数为0，符合循环结束条件，跳出Do…Loop…Until循环。题面要求依次输入10、37、50、55、64、20、28、19、-19、0，所以立即窗口上输出的结果是：37 55 64 28 19。所以本题答案为D)。