[单选题]

窗体中有命令按钮run34,对应的事件代码如下:
PrivateSubrun34_Enter()
DimnumAsInteger,aAsInteger,bAsInteger,iAsInteger
Fori=1To10
num=InputBox(“请输入数据:”,“输入”)
IfInt(num/2.=num/2Then
a=a+1
Else
b=b+1
EndIf
Nexti
MsgBox(“运行结果:a=“&Sir(a)&”,b=”&Str(b))
EndSub
运行以上事件过程,所完成的功能是(  )。

A.对输入的10个数据求累加和

B.对输入的10个数据求各自的余数,然后再进行累加

C.对输入的10个数据分别统计奇数和偶数的个数

D.对输入的10个数据分别统计整数和非整数的个数

参考答案与解析:

相关试题

窗体中有命令按钮run34,对应的事件代码如下:Private Sub run3

[单选题]窗体中有命令按钮run34,对应的事件代码如下:Private Sub run34_Enter()D.im num As Integer,a As Integer,b As Integer,i As IntegerF.or i=1 To 10num=InputBox(“请输入数据:”,“输入”)If Int(num/2)=num/2 Thena=a+lE.lseb=b+1E.nd ifNext iMsgBox(“运行结果:a=“&Str(a)&”,b=”&Str(b))E

  • 查看答案
  • 窗体中有命令按钮run34,对应的事件代码如下:<br /><img border="0" style="width: 379px; height: 3

    [单选题]窗体中有命令按钮run34,对应的事件代码如下:运行以上事件过程,所完成的功能是(  )。A.对输入的10个数据求累加和B.对输入的10个数据求各自的

  • 查看答案
  • ( 34 )在窗体中有一个命令按钮(名称为 run34 ) ,对应的事件代码如下

    [单选题]( 34 )在窗体中有一个命令按钮(名称为 run34 ) ,对应的事件代码如下:Private Sub run34_Click( )sum=0F.or i=10 To 1 Step -2sum=sum+iNext iMsgBox sumE.nd Sub运行以上事件,程序的输出结果是( ) 。A. ) 10B. ) 30C. ) 55D. )其他结果

  • 查看答案
  • 在窗体中有一个命令按钮(名称为run34),对应的事件代码如下:Private

    [单选题]在窗体中有一个命令按钮(名称为run34),对应的事件代码如下: Private Sub run 34_Click() sum=0 For i=1 To 10 Step 3 sum=sum+i Next i MsgBox sum End Sub 运行以上事件,程序的输出结果是( )。A.22B.30C.55D.25

  • 查看答案
  • 在窗体中有一个命令按钮(名称为run34),对应的事件代码如下:Private

    [单选题]在窗体中有一个命令按钮(名称为run34),对应的事件代码如下: Private Sub run34_Click() Sum=0 For i=10 To 1 Step -2 sum=sum+i Next i MsgBox sum End Sub运行以上事件,程序的输出结果是______。A.10B.30C.55D.其他结果

  • 查看答案
  • 在窗体中有一个名为run34的命令按钮,事件代码如下:<br /><img border="0" style="width: 183px; height

    [问答题]在窗体中有一个名为run34的命令按钮,事件代码如下:打开窗体,单击命令按钮,消息框的输出结果是(  )。

  • 查看答案
  • 窗体中有命令按钮Command1,事件过程如下:(  )。<br /><img border="0" style="width: 248px; heig

    [单选题]窗体中有命令按钮Command1,事件过程如下:(  )。运行程序,单击命令按钮,则窗口中显示的内容是(  )。A.10 5B.10 40C.20 5

  • 查看答案
  • 在窗体中有一个命令按钮run35,对应的事件代码如下: Private Sub

    [单选题]在窗体中有一个命令按钮run35,对应的事件代码如下: Private Sub run35_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("运行结果:

  • 查看答案
  • 在已建窗体中有一命令按钮(名为Command1),该按钮的单击事件对应的VBA代码为:<br />PrivatesubCommand1_Click()<br />subT.Fo

    [单选题]在已建窗体中有一命令按钮(名为Command1),该按钮的单击事件对应的VBA代码为:PrivatesubCommand1_Click()subT.F

  • 查看答案
  • 在窗体中有一个命令按钮run1,对应的事件代码如下:Private Sub ru

    [单选题]在窗体中有一个命令按钮run1,对应的事件代码如下:Private Sub run1_Enter()D.im num As IntegerD.im m As IntergerD.im n As IntegerD.im i As IntegerF.or i=1 To 10num=InputBox("请输入数据:","输入",1)If Int(num/2)=num/2 Thenm=m+1E.lsen=n+1E.nd IfNext iMsgBox("运行结果:m="& Str(m)

  • 查看答案
  • 窗体中有命令按钮run34,对应的事件代码如下:<br />PrivateSubrun34_Enter()<br />DimnumAsInteger,aAsInteger,bA