在窗体中有一个命令按钮run1，对应的事件代码如下：Private Sub run1_Enter()Dim num As IntegerDim m As IntergerDim n As IntegerDim i As IntegerFor i＝1 To 10num＝InputBox("请输入数据："，"输入"，1)If Int(num/2)＝num/2 Then　　　　m＝m＋1Else　　　　n＝n＋1End IfNext iMsgBox("运行结果：m＝"& Str(m) & "，n＝" & Str(n))End Sub运行以上事件所完成的功能是

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

【正确答案】 D

【答案解析】解析：从题目要求来看for为循环语句，InputBox设置输入数据框，If语句是计算输入值为奇数还是偶数，依次输入10次数值，当输入值为偶数时m自动增1，当输入值为奇数时n自动增1。