在窗体中有一个命令按钮Command1，对应的事件代码如下：运行以上事件所完成的功能是（ ）。A. 对输入的10个数据求累加和B. 对输入的10个数据求各自的余数，然后再进行累加C. 对输入的10个数据分别统计有几个是整数，有几个是非整数D. 对输入的10个数据分别统计有几个是奇数，有几个是偶数

题目

在窗体中有一个命令按钮Command1，对应的事件代码如下：运行以上事件所完成的功能是（ ）。

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

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

C. 对输入的10个数据分别统计有几个是整数，有几个是非整数

D. 对输入的10个数据分别统计有几个是奇数，有几个是偶数

相似考题

1.（ 35 ）在窗体中有一个命令 run35, 对应的事件代码如下：private sub run35_enter()Dim num as integerDim a as integerDim b as integerDim I as integerFor I=1 to 10Num=inputbox( “ 请输入数据： ” , ” 输入 ” ,1)If int(num/2)=num/2 thenA=a+1ElseB =b+1End ifNext IMsgbox( ” 运行结果： a= ” &str(a)& ” ,b= ” &str(b))End sub运行以上事件所完成的功能是A 对输入的 10 个数据求累加和B 对输入的 10 个数据求各自的余数，然后再进行累加C 对输入的 10 个数据分别统计有几个是整数，有几个是非整数D 对输入的 10 个数据分别统计有几个是奇数，有几个是偶数

2.在窗体中有一个命令按钮Commandl，对应的事件代码如下： Private Sub Commandl_nter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i＝1 To 10 num＝InputBox(“请输入数据：”，“输入”，1)A．&:",b＝"& Str(B．) End Sub 运行以上事件所完成的功能是( )。C．对输入的10个数据求累加和D．对输入的10个数据求各自的余数，然后再进行累加

3.在窗体中有一个命令按钮Command1，对应的事件代码如下：Private Sub Command1_Enter()Dim num As IntegerDim a As IntegerDim b As IntegerDim i As IntegerFor i＝1 To 10num＝InputBox("请输入数据："，"输入"，1)If Int(num/2)＝num/2 Thena＝a+1Elseb＝b+1End IfNext iMsgBox("运行结果：a＝"& Str(A) &:",b＝"& Str(B) )End Sub运行以上事件所完成的功能是( )。A．对输入的10个数据求累加和B．对输入的10个数据求各自的余数，然后再进行累加C．对输入的10个数据分别统计有几个是整数，有几个是非整数D．对输入的10个数据分别统计有几个是奇数，有几个是偶数

4.在窗体中有一个命令按钮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("运行结果: a=" & Str(a)&",b=" & Str(b)) End sub 运行以上事件所完成的功能是______。A．对输入的10个数据求累加和B．对输入的10个数据求各自的余数，然后再进行累加C．对输入的10个数据分别统计有几个是整数，有几个是非整数D．对输入的10个数据分别统计有几个是奇数，有几个是偶数

更多“ 在窗体中有一个命令按钮Command1，对应的事件代码如下：运行以上事件所完成的功能是（ ）。A. 对输入的10个数据求累加和B. 对输入的10个数据求各自的余数，然后再进行累加C. 对输入的10个数据分别统计有”相关问题

  • 第1题：

    在窗体中有一个命令按钮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("运行结果：a=" & Str(a． &",b=" & Str(b．． End Sub 运行以上事件所完成的功能是

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

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

    C.对输入的10个数据分别统计有几个是整数，有几个是非整数

    D.对输入的10个数据分别统计有几个是奇数，有几个是偶数


    正确答案：D
    取整函数Int(<数值表达式>．：返回数值表达式的整数部分。本题中当输入的数num除2取整等于num除2的值时，即num为偶数时，变量a加1;当输入的数为奇数时变量b加1。变量a用来统计偶数的个数，变量b用来统计奇数的个数。所以本题答案为D。

  • 第2题：

    在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数


    正确答案：D
    解析：本题考查程序设计的知识。本题的重点在于判断 int(num/2)=num/2是个什么样的条件。对于任意一个整数来说，若其除2后为整数，也就是Int(num/2)=mm/2成立，说明该数是一个偶数；反之若其除2后不为整数，此时Int(num/2)必然不等于num/2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。

  • 第3题：

    在窗体中有一个命令按钮Commandl，对应的事件代码如下。 Private Sub Commandl_Enter（ ） Dim num As IntegerDim aAs IntegerDimbAsIntegerDim iAs IntegerFori=lT010num=InputBox（"请输入数据："，"输入"，1）IfInt（num／2）=num／2 Thena=a+1Elseb=b+lEndIfNextlMsgBox（"运行结果：a="&amp；Str（A．&amp；："，b="&amp；Str（B．）EndSub运行以上事件所完成的功能是（ ）。运行以上事件所完成的功能是（ ）。

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

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

    C.对输入的10个数据统计有几个是整数，有几个是非整数

    D.对输入的10个数据统计有几个是奇数，有几个是偶数


    正确答案：D
    暂无解析，请参考用户分享笔记

  • 第4题：

    在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数


    正确答案：D
    解析： 本题考查程序设计的知识。本题的重点在于判断Int(num/2)=num/2是什么样的条件。对于任意一个整数来说，若其除2后为整数。也就是Int(num/2)=num/2成立，说明该数是一个偶数；反之若其除2后不为整数，此时，Int(num/2)必然不等于num/2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。

  • 第5题：

    在窗体中有一个命令按钮Commandl，对应的事件代码如下： Pfivate Sub Command l_Ente（ ） Dim nllm As IntegerDim aAs IntegerDim bAs IntegerDim iAs IntegerFori=1 To 10num=InputBox（"请输入数据："，"输入"，l）If Int（num／2）=Iaum／2 Thena=a+lElseb=b+1EndIfNext iMsgBox（"运行结果：a="&；St"A．&；："，b="&；Str（B．）End Sub运行以上事件所完成的功能是（ ）。

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

    B.对输人的l0个数据求各自的余数，然后再进行累加

    C.对输入的10个数据分别统计有几个是整数，有几个是非整数

    D.对输入的10个数据分别统计有几个是奇数，有几个是偶数


    正确答案：D
    D．【解析】本题考查程序设计的知识。本题的重点在于判断Int(num／2)=num／2是什么样的条件。对于任意一个整数来说，若其除2后为整数，也就是Int(num／2)=num／2成立，说明该数是一个偶数；反之若其除2后不为整数，此时Int(num／2)必然不等于num／2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。

相关内容