单选

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

Private Sub run1_Enter()

Dim num As Integer

Dim m As Interger

Dim n As Integer

Dim i As Integer

For i=1 To 10

num=InputBox("请输入数据:","输入",1)

If Int(num/2)=num/2 Then

m=m+1

Else

n=n+1

End If

Next i

MsgBox("运行结果:m="& Str(m) & ",n=" & Str(n))

End Sub

运行以上事件所完成的功能是

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

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服