在窗体中有一个命令按钮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 Thenm＝m＋1Elsen＝n＋1End IfNext iMsgBox('运行结果：m＝'& Str(m) & '，n＝' & Str(n))End Sub运行以上事件所完成的功能是D.对输入的10个数据统计有几个是奇数，有几个是偶数
A.对输入的10个数据统计有几个是整数，有几个是非整数
B.对输入的10个数据求各自的余数，然后再进行累加
C.对输入的10个数据求累加和