单选

在窗体中有一个命令按钮Command1,对应的事件代码如下:  PrivateSubCommand1_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/2Then      a=a+1   Else      b=b+l   End If  Next i  MsgBox(“运行结果:a=“&Str(a)&:”,b=”&Str(b))  End Sub  运行以上事件所完成的功能是(  )。

  • A.对输入的10个数据求累加和
  • B.对输入的10个数据求各自的余数,然后再进行累加
  • C.对输入的10个数据分别统计有几个是整数,有几个是非整数
  • D.对输入的10个数据分别统计有几个是奇数,有几个是偶数
参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服