1、国家二级 ACCESS机试（选择题）模拟试卷 122及答案解析(总分：52.00，做题时间：90 分钟)一、选择题(总题数：26，分数：52.00)1.在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码：Private Sub Commandl_Click()A=75If A60 Then I=lIf A70 Then I=2If A80 Then I=3If A90 Then I=4MsgBox IEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。（分数：2.00）A.lB.2C.3D.42.在窗体中添加一个名称为 Commandl的命令按钮，然后编
2、写如下事件代码：Private Sub Commandl_Click()s=“ABBACDDCBA“For I=6 To 2 Step 2x=Mid(s，I，I)y=Left(s，I)z=Right(s，I)z=xLoop Until y=0End Sub打开窗体运行后，单击命令按钮，依次输入 10、37、50、55、64、20、28、19、19、0，立即窗口上输出的结果是( )。（分数：2.00）A.37 55 64 28 19 19B.10 50 20C.10 50 20 0D.37 55 64 28 1913.窗体中有命令按钮 Commandl和文本框 Textl，事件过程如下：Func
3、tion result(ByValxAslnteger) As BooleanIf x Mod 2=0 Thenresult=TrueElseresult=FalseEnd IfEnd FunctionPrivate Sub Commandl_Click()x=Val(lnputBox(“请输入一个整数“)I_fThenTextl=str(x)Loop Until y=0End Sub打开窗体运行后，单击命令按钮，依次输入 10、37、50、55、64、20、28、19、19、0，立即窗口上输出的结果是( )。（分数：2.00）A.37 55 64 28 19 19B.10 50 20C.10
4、 50 20 0D.37 55 64 28 19 解析：解析：分析 if语句，当计算表达式(y mod 10)+int(y/10)等于 10时，立即窗口显示输入的数字。当输入第一个数字 10时，(y mod lO)+int(y/10)=0+1=1 不等于 10，不显示；当输入第二个数字 37时，(y mod 10)+int(y/10)=7+3=10，显示数字 37，依次类推，结果为 D)选项。13.窗体中有命令按钮 Commandl和文本框 Textl，事件过程如下：Function result(ByValxAslnteger) As BooleanIf x Mod 2=0 Thenresu
5、lt=TrueElseresult=FalseEnd IfEnd FunctionPrivate Sub Commandl_Click()x=Val(lnputBox(“请输入一个整数“)I_fThenTextl=str(x)然后进入循环，由于mn，所以执行 m=mn，m 的值变为 6；第 2次循环时由于 m20.要想在过程 Proc调用后返回形参 x和 y的变化结果，下列定义语句中正确的是( )。（分数：2.00）A.Sub Proc(x as Integer，y as Integer) B.Sub Proc(By Val x as Integer，y as Integer)C.Sub Pr
6、oc(x as Integer，ByVal yas Integer)D.Sub Proc(ByVal x as Integer，ByVal yas Integer)解析：解析：本题考查 VBA中参数传递的知识。在 VBA的过程调用时参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用 ByVal声明，说明此参数为传值调用；若用 ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。即形参的结果会传递给实参。21.在窗体上有一个命令按钮 Commandl，编写事件代码如下：Private Sub Commandl_Click()Dim x As Integer，y
7、As Integerx=12：y=32Call Proc(x，y)End SubPublic Sub Ptoc(n As Integer，ByVal m As Integer)n=n Mod 10m=m Mod 10End Sub打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。（分数：2.00）A.2和 32 B.12和 32C.10和 10D.32和 2解析：解析：在 VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用 ByVal声明，说明此参数为传值调用，此时形参的变化不会返回到实参；若用 ByRef声明，说明此参数为传址调用，此时形参的变化将会
8、返回到实参；没有说明传递类型，则默认为传址传递。因此调用函数实参 x是传址方式传递，实参 y为传值方式传递，调用函数后 x值在函数中随形参改变，即 x=x mod 10=12 mod 10=2，而 y不随之改变。22.下列逻辑表达式中，能正确表示条件“x 和 y都是奇数”的是( )。（分数：2.00）A.x Mod 2=1 0r y Mod 2=1B.x Mod 2=0 0r y Mod 2=0C.x Mod 2=1 And y Mod 2=1 D.x Mod 2=0 And y Mod 2=0解析：解析：本题考查逻辑表达式的知识。判断奇偶数是程序设计中常见的判断，x Mod 2=1 代表 x
9、是奇数。如果要表达 x、y 都是奇数，则应该用 And连接两个表达式来表示“与”，故此 C)选项正确。23.下列过程的功能是：通过对象变量返回当前窗体的 Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。Sub GetRecNum()Dim rs As ObjectSet rs=MeRecordsetM8gBox_End Sub程序空白处应填写的是( )。（分数：2.00）A.CountB.rsCountC.RecordCountD.rsRecordCount 解析：解析：RecordCount 属性返回 Long值，指示 Recordset中的记录数目。由于对象
10、变量 rs返回当前窗体的 RecordSet属性记录集引用，所以输出记录个数时的代码写成 rsRecordCount。24.下列程序段的功能是实现“学生”表中“年龄”字段值加 1：Dim Str As StringStr=“_ “DocmdRunSQL Str 空白处应填入的程序代码是( )。（分数：2.00）A.年龄=年龄+1B.Update学生 Set年龄=年龄+1 C.Set年龄=年龄+1D.Edit学生 Set年龄=年龄+1解析：解析：在 SQL语句中 UPDATE可以更新数据表，格式为：UPDATE 数据表名 SET字段名=设置结果。25.在窗体中添加一个命令按钮(名称为 Comma
11、ndl)，然后编写如下代码：Private Sub Commandl_Click()a=0：b=5：c=6MsgBox a=b+cEnd Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为( )。（分数：2.00）A.11B.a=11C.0D.False 解析：解析：本题考查 Msgbox函数的知识。在 VBA中的 MsgBox函数中，第一个参数是提示信息，第二个参数是按钮和图表的类型，若省略的话要有逗号占位，第三个参数是对话框的标题。其中第一个参数必须为字符串或者数字，不能是逻辑表达式或赋值语句。如果是非法数据，将会在消息框中显示“False”。26.在窗体上添加一个命令按钮(名为 Commandl)和一个文本框(名为 Textl)，并在命令按钮中编写如下事件代码：Ptivate Sub Commandl_Click()m=217n=Len(Str$(m)+Space(5)Mer Textl=nEnd Sub 打开窗体运行后，单击命令按钮，在文本框中显示( )。（分数：2.00）A.5B.8C.9D.10 解析：解析：本题考查基本字符串函数的知识。在 VBA中，Str 函数用于将数字转换成字符串，217 转换成字符串“2 17”，后面再连接上 5个空格，然后用 Len函数来求长度。最后结果为 10。全国计算机等级考试二级 Access数据库真考模拟 1
