2. 计算机
  3. 在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35 Enter() Dim num As Integer Dim aAs Integer DimbAs Integer Dim

在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35 Enter() Dim num As Integer Dim aAs Integer DimbAs Integer Dim

admin2015-08-28  35
问题 在窗体中有一个命令按钮run35，对应的事件代码如下：
    Private Sub run35 Enter()
    Dim num As Integer
    Dim aAs Integer
    DimbAs Integer
    Dim i As Integer
    For i=l To 10
    num=InputBox(“请输入数据：”，“输入”，1)
    If Int(num／2)=num／2 Then
    a=a+l
    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，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。
转载请注明原文地址:https://kaotiyun.com/show/sJgp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)