1、国家二级 ACCESS机试（选择题）模拟试卷 138及答案与解析 一、选择题 1 在 VBA代码调试过程中，能显示当前过程中变量声明及变量值信息的是 ( )。 （ A）快速监视窗口 （ B）监视窗口 （ C）立即窗口 （ D）本地窗口 2 ADO对象模型中可以打开并返回 RecordSet对象的是 ( )。 （ A）只能是 Connection对象 （ B）只能是 Command对象 （ C）可以是 Connection对象和 Conmand对象 （ D）不存在 3 ADO的含义是 ( )。 （ A）开放数据库互联应用编程窗口 （ B）数据库访问对象 （ C）动态链接库 （ D） Active
2、X数据对象 4 要从指定记录集 (一个域 )内获取特定字段的值，应该使用的内置函数是 ( )。 （ A） DLookup （ B） DCount （ C） DFirst （ D） DLast 5 下列程序的功能是：将三个数按从大到小进行排序，程序【 】处应填写的语句是 ( )。 If a b Then d a： a b： b d End If If a c Then d a： a c： c d End If If【 】 Then d b： b c： c d End If （ A） b c （ B） c b （ C） c a （ D） b a 6 下列过程的功能是：通过对象变量返回当前窗体的 R
3、ecordset属性记录集引用，消息框中输出记录集的记录 (即窗体记录源 )个数。 Sub GetRecNum() Dim rs As Object Set rs Me Recordset MsgBox【 】 End Sub 程序【 】处应填写的是 ( )。 （ A） Count （ B） rs Count （ C） RecordCount （ D） rs RecordCount 7 窗体中有文本框 Textl和标签 Labell。运行程序，输人大于 0的整数 m，单击按钮 Command1，程序判断 m是否为素数，若是素数，则 Label1显示 “m是素数 ”，否则显示 “m是合数 ”。事件
4、代码如下： Private Sub Commandl_Click() m Val(Me!Textl) result m&“是素数 “ k 2 Do While k m 2 If m Mod k 0 Then result m&“是合数 “ 【 】 End If k k 1 Loop Me!Label1 Caption result End Sub 程序【 】处应填写的语句是 ( )。 （ A） Exit （ B） Exit Loop （ C） Exit While （ D） Exit Do 8 在窗体中有文本框 Text1和 Text2。运行程序时，在 Text1中输入整数 m(m0)，单击
5、Command1“运行 ”按钮，程序能够求出 m的全部除 1之外的因子，并使用Text2显示结果。例如， 18的全部因子有 2， 3， 6， 9， 18，输出结果为 2， 3， 6，9， 18，； 28的全部因子为 2， 4， 7， 14， 28，输出结果为 2， 4， 7， 14， 28，。事件代码如下： Private Sub Command1_Click() m Val(Me!Text1) result “ “ k 2 Do If m Mod k 0 Then result result&k&“ “ k k 1 Loop Until【 】 Me!Text2 result End Sub
6、程序【 】处应填写的语句是 ( )。 （ A） k m （ B） k m （ C） k m （ D） k m 9 已知学生表 (学号，姓名，性别，生日 )，以下事件代码功能是将学生表中生日为空值的学生 “性别 ”字段值设置为 “男 ”。 Private Sub Command0_Click() Dim str As String Set db CurrentDb() str “【 】 “ DoCmd RunSQL str End Sub 按照功能要求，在【 】内应填写的是 ( )。 （ A） Update 学生表 set 性别 男 where生日 Is Null （ B） Update 学生表
7、 set 性别 男 where生日 Null （ C） Set 学生表 Values 性别 男 where生日 Is Null （ D） Set 学生表 Values 性别 男 where生日 Null 10 窗体中有一个名为 run的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在 0到 100分之间，则要求重新输入；如果输入的成绩正确，则进入后续处理。 run命令按钮的 Click的事件代码如下： Private Sub run_Click() Dim flag As Boolean result 0 flag True Do While flag result Val(Inpu
8、tBox(“请输入成绩： “， “输入 “) If result 0 And result 100 Then 【 】 Else MsgBox “输入错误，请重新输入 “ End If Loop Rem成绩输入正确后的程序代码略 End Sub 为实现程序的功能，程序【 】处不能填写的语句是 ( )。 （ A） flag True （ B） flag False （ C） flag Not flag （ D） Exit Do 11 在窗体中添加一个名称为 Command1的命令按钮，然后编写如下事件代码： Private Sub Commandl_Click() MsgBox f(24， 18)
9、 End Sub Public Function f(m As Integer， n As Integer) As Integer Do While m n Do While In n m m n Loop Do While In n n n m Loop Loop f m End Function 窗体打开运行后，单击命令按钮，则消息框的输出结果是 ( )。 （ A） 2 （ B） 4 （ C） 6 （ D） 8 12 在窗体上有一个命令按钮 Command1，编写事件代码如下： Private Sub Command1_Click() Dim d1 As Date Dim d2 As Da
10、te d1 #12 25 2009# d2 #1 5 2010# MsgBox DateDiff(“ww“， d1， d2) End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是 ( )。 （ A） 1 （ B） 2 （ C） 10 （ D） 11 13 有如下事件程序，运行该程序后输出结果是 ( )。 Private Sub Command1_Click() Dim x As Integer， y As Integer x 1： y 0 Do Until y 25 y y x*x x x 1 Loop MsgBox“x “&x&“， y “&y End Sub （ A） x 1
11、， y 0 （ B） x 4， y 25 （ C） x 5， y 30 （ D）输出其他结果 14 运行下列程序，结果是 ( )。 Private Sub Command1_Click() f0 1： f1 1： k 1 Do While k 5 f f0 f1 f0 f1 f1 f k k 1 Loop MsgBox“f “&f End Sub （ A） f 5 （ B） f 7 （ C） f 8 （ D） f 13 15 在窗体上有一个命令按钮 Command1，事件代码如下： Private Sub Command1_Click() Dim x As Integer， y As Inte
12、ger x 12： y 32 Call Proc(x， y) Debug Print x； Y End Sub Public Sub Proc(n As Integer， ByVal mAs Integer) n n Mod 10 m in Mod 10 End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是 ( )。 （ A） 2 32 （ B） 12 3 （ C） 2 2 （ D） 12 32 16 在窗体上有一个命令按钮 Command1和一个文本框 Text1，事件代码如下： Private Sub Command1_Click() Dim i， j， x For i 1
13、 T0 20 Step 2 x 0 For j i To 20 Step 3 x x 1 Next j Next i Text1 Value Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是 ( )。 （ A） 1 （ B） 7 （ C） 17 （ D） 400 17 在窗体中有一个文本框 Text1，事件代码如下： Private Sub Text0_Click() x Val(InputBox(“输入 x的值 “) y 1 If x 0 Then y 2 Text0 Value y End Sub 打开窗体运行后，在输入框中输入整数 12，文本框 Text1
14、中输出的结果是 ( )。 （ A） 1 （ B） 2 （ C） 3 （ D） 4 18 若有以下窗体单击事件过程： Private Sub 主体 _Click() result 1 For i 1 To 6 Step 3 result result * i Next i MsgBox result End Sub 打开窗体运行后，单击窗体，则消息框的输出内容是 ( )。 （ A） 1 （ B） 4 （ C） 15 （ D） 120 19 窗体中有命令按钮 Command1，事件过程如下： Public Function f(x As Integer)As Integer Dim Y As In
15、teger x 20 y 2 f x * y End Function Private Sub Command1_Click() Dim y As Integer Static x As Integer x 10 y 5 y f(X) Debug Print x； y End Sub 运行程序，单击命令按钮，则立即窗口中显示的内容是 ( )。 （ A） 10 5 （ B） 10 40 （ C） 20 5 （ D） 20 40 20 运行下列程序，输入数据 8、 9、 3、 0后，窗体中显示结果是 ( )。 Private Sub Form_click() Dim sum As Integer，
16、 m As Integer sum 0 Do m InputBox(“输入 m“) sum sum m Loop Until m 0 MsgBox sum End Sub （ A） 0 （ B） 17 （ C） 20 （ D） 21 21 如果在北京时间 7点 50分运行以下代码，程序的输出结果是 ( )。 Sub Procedure() If Hour(Time() 8 And Hour(Time() 12 Then Debug Print“上午好 !“ ElseIfHour(Time() 12 And Hour(Time() 18 Then Debug Print“下午好 !“ Else
17、Debug Print“欢迎下次光临 !“ End If End Sub （ A）欢迎下次光临 ! （ B）上午好 ! （ C）下午好 ! （ D）无输出 22 已知过程对应的代码如下： Sub Proc() f1 0 f2 1 For n 1 To 8 f f1 f2 Debug Print f f1 f2 f2 f Next n End Sub 过程 Proc在立即窗口中显示的结果是 ( )。 （ A）斐波那契序列中 2到 9对应的序列值 （ B）斐波那契序列中 2到 8对应的序列值 （ C）整数 1到 n(n 9)对应的累加和 （ D）整数 1到 n(n 8)对应的累加和 23 若有如下
18、 Sub过程： Sub sfun(x As Single， y As Single) t x x t y y t Mod y End Sub 在窗体 中添加一个命令按钮 Command1，对应的事件过程如下： Private Sub Command1_Click() Dim a As Single Dim b As Single a 5： b 4 sfun a， b MsgBox a&Chr(10) Chr(13)&b End Sub 打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为 ( )。 （ A） 1和 1 （ B） 1 25和 1 （ C） 1 25和 4 （ D） 5和
19、4 24 在 窗体中有一个命令按钮 Command1，事件代码如下： Private Sub Command1_Click() Dim s As Integer s P(1) P(2) P(3) P(4) Debug Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum 0 For i 1 T0 N Sum Sum+i Next i P Sum End Function 打开窗体运行后，单击命令按钮，在立即窗口显示结果是 ( )。 （ A） 15 （ B） 20 （ C） 25 （ D） 35 25 在窗体
20、有两个名为 text1、 text2的文本框和一个名为 Command1的命令按钮，事件过程如下： Private Sub command1_click() Dim x As Integer， n As Integer x 1 n 0 Do While x 20 x x * 3 n n 1 Loop Text1 Str(x) Text2 Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框 text1和 text2中显示的值分别是( )。 （ A） 15和 1 （ B） 27和 3 （ C） 195和 3 （ D） 600和 4 26 已知事件对应的程序代码如下： Privat
21、e Sub Command0_Click() Dim J As Integer J 10 Call GetData(J 5) MsgBox J End Sub Private Sub GetData(ByRef f As Integer) f f 20 End Sub 运行窗体后，单击命令按钮，消息框的输出结果是 ( )。 （ A） 10 （ B） 15 （ C） 30 （ D） 35 27 在窗体中有命令按钮 Command1和文本框 Text1，按钮的事件代码如下： Public X As Integer Private Sub Command1_Click() x 10 Call s1
22、rall s2 MsgBox x End Sub Private Sub s1() x x 20 End Sub Private Sub s2() Dim x As Integer x x 20 End Sub 运行窗体后，单击命令按钮，消息框的输出结果是 ( )。 （ A） 30 （ B） 10 （ C） 40 （ D） 50 28 在窗体中有标签 Lb1和一个命令按钮 Command，事 件代码如下： Option Compare Database Dim a As String * 10 Private Sub Command_Click() a “12345“ b Len(a) Me
23、Lb1 Caption b End Sub 打开窗体运行后，窗体中显示的是 ( )。 （ A） 10 （ B） 5 （ C） 4 （ D） 40 29 在窗体中有命令按钮 Command1和两个文本框 Text0、 Text1，命令按钮对应的代码过程 如下： Private Sub Command1_Click() Dim m， k As Integer Dim flag As Boolean m Val(Me!Text0)输入一个整数 Do While 1 k 2 flag=True Do While k m 2 And flag If m Mod k 0 Then flag False E
24、lse k k 1 End If Loop If flag Then Me!Text1 m输出计算结果 Exit Do Else m m 1 End If Loop End Sub 运行程序，在 Text0中输入 15，单击命令按钮，程序的输出结果是 ( )。 （ A） 17 （ B） 15 （ C） 13 （ D）其他整数 30 在窗体中有命令按钮 Command1和三个文本框 Text0、 Text1、 Text2，命令按钮对应的代码过程如下： Private Sub Command1_Click() Dim i， f1， f2 As Integer Dim flag As Boolean
25、 f1 Val(Me!Text0) t2 Val(Me!Text1) If f1 f2 Then i f2 Else i f1 End If flag True Do While i 1 And flag If f1 Mod i 0 And f2 Mod i 0 Then flag False Else i i 1 End If Loop Me!Text2 i End Sub 运行程序，在文本框 Text0和 Text1中分别输入 15和 20，单击命令按钮，则文本框 Text2中显示的结果是 ( )。 （ A） 5 （ B） 15 （ C） 20 （ D） 10 31 在窗体中变量 131对
26、应的文本框为 Text1， “运行 ”按钮 Command1对应的事件代码如下： Private Sub Command1_Click() Dim result As String m Val(Me!Text1) result “ “ For k 1 To m For n 1 To k m 1 If n m k 1 Then result result&“ “ Else result result& “*“ End If Next n result result Chr(13) Next k MsgBox result， “运行结果 “ End Sub 打开窗体，在文本框中输入 m的值为 5，
27、单击运行按钮后，程序的运行结果是( )。 （ A）由星号组成的高为 5的等腰三角形 （ B）由星号组成的高为 5的等腰梯形 （ C）由星号组成的边长为 5的平行四边形 （ D）由星号组成的边长为 10的平行四边形 国家二级 ACCESS机试（选择题）模拟试卷 138答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 本地窗口内部自动显示出所有在当前过程中的变量声明及变量值。本地窗口打开后，列表中的第一项内容是一个特殊的模块变量。对于类模块，定义为 Me。 Me是对当前模块定义的当前实例的引用。由于它是对象引用，因此可以展开显示当前实例的全部属性和数据成员。 2 【正确答案】 C 【试题
28、解析】 Recorclset对象只代表一个记录集，这个记录集是一个连接的数据库中的表或者是 Command对象的执行结果返回的记录集。 Connection对象用于建立与数据库的连接，通过连接可从应用程序访问数据源，因此，可以打开和返回 RecorclSet对象。 Command对象在建立 Connection后，可以发出命令操作数据源，因此，也可以打开并返回 RecorclSet对象。 3 【正确答案】 D 【试题解析】 ADO(ActiveX Data Object)即 ActiveX数据访问对象，是 Microsoft公司在 OLE DB之上提出的一种逻辑接口，以便编程者通过 OLE D
29、B更简单地以编程方式访问各种各样的数据源。 4 【正确答案】 A 【试题解析】 Dlookup函数是从指定记录集里检索特定字段的值。它可以直接在VBA、宏、查询表达式或计算控件中使用，而且主要用于检索来自外部表字段中的数据。 5 【正确答案】 A 【试题解析】 由题目可判断 ，第三个 If条件句是要判断 b和 c的大小，如果 bc，则将 b和 c的位置交换。 6 【正确答案】 D 【试题解析】 题目中对象变量 rs返回了当前窗体的 Recordset属性记录集的引用，那么通过访问对象变量 rs的属性 Record Count就可以得到该记录集的记录个数，引用方法为 rs RecondCount
30、。 7 【正确答案】 D 【试题解析】 依照题意，空白处添加的语句应该是满足条件便退出循环。 Exit Do用来提前中断并退出 Do While循环。 8 【正确答案】 A 【试题解 析】 根据题意， DoLoop 循环用来判断 m的因子，每次执行循环都用一个小于 m的数 k去整除 m，如果能够整除，则说明 k是 m的因子。故当 k m的时候执行循环；当 k m的时候循环结束。 9 【正确答案】 A 【试题解析】 本题考查 SQL语句， SQL语句更新数据要使用 Update语句，判断字段是否为空应使用 Is Null函数。 10 【正确答案】 A 【试题解析】 判断输入的成绩在正确范围内，则
31、进入后续处理，即 flag True，答案选 A。 11 【正确答案】 C 【试题解析】 题目中 命令按钮的单击事件是使用 MsgBox显示过程 f的值。在过程 f中有两层 Do循环，传入参数 m 24， n 18，由于 m n，所以执行 m mn 24 18 6，内层第 1个 Do循环结束后， m 6， n 18；此时 m小于 n，因此再执行 n n m 18 6 12，此时 m 6， n 12；再执行 n n m后 m n6； m n条件不满足，退出循环，然后执行 f m的赋值语句，即为 f m 6。 12 【正确答案】 B 【试题解析】 函数 DateDiff按照指定类型返回指定的时间间
32、隔数目。语法为DateDiff(间隔类 型，日期 1，日期 2， ， W1， W2)，间隔类型为“ww”，表示返回两个日期间隔的周数。 13 【正确答案】 A 【试题解析】 Do Until循环采用的是先判断条件后执行循环体的做法，如果条件为 True，则循环体一次都不执行，否则进入循环体执行。本题中的循环结束条件是 y 25，而 y 0，满足条件表达式，则不进入循环体， x、 y的值不变，仍为1、 0。 14 【正确答案】 D 【试题解析】 本题考查 Do循环语句： k 1时， f 1 1 2， f0 1， f1 2， k 1 1 2： k 2时， f 3， f0 2， f1 3， k 2
33、1 3； k 3时， f 5， f0 3， f1 5， k 3 1 4； k 4时， f 8， f0 5， f1 8， k 4 1 5； k 5时， f 13， f0 8， f1 13， k 6，不再满足循环条件即跳出循环，此时 f 13。 15 【正确答案】 A 【试题解析】 参数有两种传递方式：传址传递 ByRef和传值传递 ByVal。如果没有说明传递类型，则默认为传址传递。在函数 Proc(n As Integer， ByVal m As Integer)参数中，形参 n默认为传址传递，形参的变化将会返回到实参，即形参 n Mod 10(12 Mod 10)得到的结果 2将返回给实参
34、x，即 x 2；而 y为传值类型，不因形参的变化而变化，因此输出的 x和 y应为 2和 32。 16 【正确答案】 A 【试题解析】 题目中使用了双重 For循环，外循环中每循环一次， x的值都是从0开始，因此外循环中到最后一次循环时， x的值是 0；而内循环中的最后一次循环是 j 20 To 20 Step 3，所以此时内循环只循环一次， x的值为 x 0 1 1。 Str函数将数 值转换成字符串。 17 【正确答案】 B 【试题解析】 本题中窗体单击事件是通过输入框输入数值，根据所输入数值内容对 y进行赋值，运行时输入框输入 12， y赋初值为 1，判断 x的值不等于 0，因此y又赋值为
35、2，最终文本框中输出结果为 2。 18 【正确答案】 B 【试题解析】 本题主要考查 For循环执行的次数和循环变量的取值。 第一次循环 i 1， result 1*1 1，之后 i 3； 第二次循环 i 4， result 1*4 4，之后 i 3为 7不符合 For循环条件，结束循环，因此输出 结果为 4。 19 【正确答案】 D 【试题解析】 本题考查的是变量的作用域，程序中命令按钮中的 x是用 static定义的局部静态变量，只在模块的内部使用，过程执行时才可见。当调用 f函数时，所求的 f函数的值是 f函数中 x和 y的值的乘积，即 f函数的值是 2*20 40，调用f函数后，原命令
36、按钮中 x的值被 f函数的值覆盖，即 x 20。最后输出 x 20， y 40。 20 【正确答案】 C 【试题解析】 本题程序是通过 Do循环结构对键盘输入的数据进行累加，循环结束条件是输入的字符为 0，题目在输入 0之前将输 入的 3个有效数据 8、 9、 3相加，值为 20。 21 【正确答案】 A 【试题解析】 本题考查的是条件语句的多分支结构。 Time()函数获取当前时间，Hour()函数获取当前时间的小时数。北京时间 7点 50分，经过函数 Hour(Time()计算返回 7，所以进入条件语句的最后一个分支并执行该分支的语句。 22 【正确答案】 A 【试题解析】 斐波那契序列又
37、称黄金分割数列，数列为 0、 1、 1、 2、 3、 5、 8、13、 21 其中 0是第 0项， 1是第 1项，以此类推，从第 2项开始每一个数都是前面紧邻两数之 和。 For循环执行时，输出的数列为 1、 2、 3、 5、 8、 13、 21、34，即斐波那契序列的第 2项到第 9项。 23 【正确答案】 B 【试题解析】 题目中设定了一个 sfun函数，进行除法运算和求模运算。命令按钮的单击事件中，定义两个变量 a 5， b 4，调用 sfun函数传递 a， b的值给 x，y进行运算， t x 5， y 4； x t y 5 4 1 25(除法运算 )； y t Mod y 5 Mod
38、4 1(求模运算 )。 sfun函数参数没有指明参数传递方式，则默认以传址方式传递，因此 a的值为 1 25， b的值为 1。 24 【正确答案】 B 【试题解析】 题目中在命令按钮的单击事件中调用了过程 P。而过程 P的功能是根据参数 N，计算从 1到 N的累加，然后返回这个值。 N 1时， P(1)返回 1； N 2时， P(2)返回 3； N 3时， P(3)返回 6； N 4时， P(4)返回 10， 因此 s 1 3 6 10 20。 25 【正确答案】 B 【试题解析】 循环体一共可以执行 3次，结束后， x 27， n 3，通过 str函数转化成字符串之后，结果应该是 27和 3
39、。 26 【 正确答案】 A 【试题解析】 调用过程语句为 callGetData(J 5)，常量和表达式的过程参数传值调用时双向作用无效， J 10，答案选 A。 27 【正确答案】 A 【试题解析】 s2()函数中使用 Dim声明的 x为局部变量，执行过程中，只执行了s1()函数中的 x 20，即为 30。 28 【正确答案】 A 【试题解析】 当声明一个变量为 String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为原始声明时指定的长 度。由于声明 a的长度为 10，故 len(a) 10。 29 【正确答案】 A
40、【试题解析】 第一次外层循环时， m 15， k 2， flag True。进入内层循环时， m不能整除 k，执行 k k 1，此时 k 3，继续内层循环， m Mod k 0，flag False，退出内层循环，执行 m m 1，此时 m 16；继续进行外层循环， k 2， flag True，进入内层循环时， m Mocl k 0， flag False，退出内层循环，执行 m m 1，此时 m 17。继续外层循环， k 2， nag True，因为 17是质数，不能整除，内层循环一直执行 k k 1，直到 k 9时， k m 2不成立，退出内层循环， flag True。执行 Me!Te
41、xt1 m，退出外层循环，输出 17。 30 【正确答案】 A 【试题解析】 f1 15， f2 20， i 15， Do While循环中， f1和 f2不能同时整除i，一直循环执行 i i 1，直到 i 5，满足 f1和 f2不能同时整除 i，执行 flagFalse，则退出循环， Me!Text2 i，即为 5。 31 【正确答案】 A 【试题解析】 在命令按钮的单击事件中，变量 m取得在文本框 Text1中的输入值，变量 result存储输出的图形。在过程中包含了两层 For循环，外层循环每执行一次，计算出 result一行的值，执行 m次后，生成 m行图形；内层循环生成result一行中的每一个字符，执行次数随着外层 k值的变化而递增。当 m 5，外层 k 1时，内层执行 5次。 n 5时， result增加一个空格； n 5时， result增加一个 *号。所以 result第一行的图形是 4个空格加 1个 *号。外层 k 2时，内层执行 6次。 n 4时， result增加一个空格； n 4时， result增加一个 *号。所以 result第二行的图形是 3个空格加 3个 *号。依次类推，会输出 5行高的等腰三角形。
