一起答
单选

在窗体中有一个命令按钮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个数据分别统计有几个是奇数,有几个是偶数
试题出自试卷《国家二级(ACCESS)笔试模拟试卷142》
参考答案
查看试卷详情
相关试题
  1. 要在程序或函数的实例间保留局部变量的值,可以用______关键字代替Dim。

  2. 有一个VBA计算程序的功能如下:该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4,3个按钮分别为:清除(名为 C1)、计算(名为C2)和退出(名为C3)。窗体打开运行后,单击“清除”按钮,则清除所有文本框中显示的内容;单击“计算”按钮,则计算在Text1、Text2和Text3三个文本框中输入的3个数字的和并将结果存放在名为Text4的文本框中;单击“退出”按钮则退出程序。依据上述功能,请将下列程序补充完整。

     Private Sub C1_Click()

      Me!Text1=""

      Me!Text2=""

      Me!Text3=""

      Me!Text4=""

     End Sub

     Private Sub C2_Click()

      If Me!Text1="" Or Me!Text2="" Or Me!Text3=""Then

        MsgBox“三个文本框都要输入值!”

       ______

        Me!Text4=(Val(Me!Text1)+Val(Me!Text2)+______)

      End If

     End Sub

     Private Sub C3_Click()

      Docmd.______

     End Sub

  3. VBA编程中,要得到[15,75]上的随机整数可以用表达式______。

  4. 断点的功能是______。

  5. VBA中打开窗体的命令语句是______。

  6. 页面页脚一般包含______或控制项的合计内容。

  7. 打开数据访问页的设计视图时,系统会同时打开______。

  8. 报表不能对数据源中的数据______。

  9. 特殊运算符Is Null用于指定一个字段为______。

  10. 窗体“滚动条”属性值有______个选项。