二级二级ACCESS2010年9月全国计算机等级考试二级笔试试卷Access数据库程序设计

试卷预览

• 31窗体中有命令按钮Commandl和文本框Text1,事件过程如下：Function result（ByVal x As Integer）As BooleanIf ×Mod 2=0 Thenresult=TrueElseresult=FalseEnd IfEnd FunctionPrivate Sub Commandl_Click（）x=Val（InputBox（“请输入一个整数”））If______ ThenText1=Str（x）&“是偶数.”ElseText1=Str（x）&“是奇数.”End  IfEnd Sub运行程序，单击命令按钮，输入19,在Text1中会显示“19是奇数”.那么在程序的空白处应填写

  A.result（x）=“偶数”

  B.result（x）

  C.resuIt（x）=“奇数”

  D.NOT result（x）

  开始考试练习点击查看答案
• 32窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下：Private Sub Commandl_Click（  ）For  i=1  To  4x=3For j=1 To 3For k=1 To 2x=x+3Next kNext jNext iText1 .Value=Str（x）End Sub运行以上事件过程，文本框中的输出是

  A.6

  B.12

  C.18

  D.21

  开始考试练习点击查看答案
• 33窗体中有命令按钮run34,对应的事件代码如下：Private Sub run34_Enter（）Dim num As Integer,a As Integer,b As Integer,i As IntegerFor i=1 To 10num=InputBox（“请输入数据：”,“输入”）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个数据分别统计整数和非整数的个数

  开始考试练习点击查看答案
• 34运行下列程序，输入数据8, 9, 3, 0后，窗体中显示结果是Private Sub Form _click（）Dim sum AsInteger,m As Integersum=0Dom=InputBox（“输入m”）sum=sum+mLoop Until m=0MsgBox sumEnd Sub

  A.0

  B.17

  C.20

  D.21

  开始考试练习点击查看答案