选择题
在窗体上有一个命令按钮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;
LoopUntil y=0
End Sub
打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是______。
【正确答案】
D
【答案解析】此sub的作用是输出个位上的数、十位上的数相加和为10的数,其中y Mod 10是求出个位上的数,y/10是求出十位上的数。