单选

在窗体中有一个命令按钮Command1,对应的事件代码如下: 

Private Sub Command1_Enter() 

Dim num As Integer 

Dim a As Integer 

Dim b As Integer 

Dim i As 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     运行以上事件所完成的功能是(  )。
  • A.对输入的10个数据求累加和
  • B.对输入的10个数据求各自的余数,然后再进行累加
  • C.对输入的10个数据分别统计有几个是整数,有几个是非整数
  • D.对输入的10个数据分别统计有几个是奇数,有几个是偶数
参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服