在窗体中有一个命令按钮CommAnD1，对应的事件代码如下：
privAtE suBCommAnD1_EntEr()
Dim numAs intEgEr
Dim AAs intEgEr
Dim BAs intEgEr
Dim iAs intEgEr
For i＝1 to 10
num＝inputBox("请输入数据："，"输入"，1)
iF int(num/2)＝num/2 thEn
A＝A+1
ElsE
B＝B+1
EnD iF
nExt i
msgBox("运行结果：A＝"& str(
A．&:",B＝"& str(
B．)
EnD suB
<
C．对输入的10个数据分别统计有几个是整数，有几个是非整数
D．对输入的10个数据分别统计有几个是奇数，有几个是偶数