单项选择题

在窗体上有一个命令按钮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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上有一个命令按钮Command1，编写事件代码如下： Prirate Sub Command1_Click() Dim d1 AS Date Dim d2 As Date d1=#12 25 2009# d2=#1 5 2010# MsgBox DateDiff( ww ，d1，d2) End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是
A．1
B．2
C．10
D．11
单项选择题
在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() Dim i，j，x For i=1 To 20 Step 2 x=0 For j-i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是
A．1
B．7
C．17
D．400
相关试题