在窗体上有一个命令按钮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