在窗体中有一个命令按钮run1，对应的事件代码如下：
Private Sub run1_Enter()
Dim num As Integer
Dim m As Interger
Dim n As Integer
Dim i As Integer
For i＝1 To 10
num＝InputBox('请输入数据：'，'输入'，1)
If Int(num/2)＝num/2 Then
m＝m＋1
Else
n＝n＋1
End If
Next i
MsgBox('运行结果：m＝'& Str(m) & '，n＝' & Str(n))
End Sub
运行以上事件所完成的功能是
D.对输入的10个数据统计有几个是奇数，有几个是偶数

A.对输入的10个数据统计有几个是整数，有几个是非整数
B.对输入的10个数据求各自的余数，然后再进行累加
C.对输入的10个数据求累加和

【参考答案】

D
解析：从题目要求来看for为循环语句，InputBox设置输入数据框，If语句是计算输入值为奇数还是偶数，依......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)