Ａ）长整型 Ｂ）布尔型 Ｃ）变体型 Ｄ）指针型
（31）下列数组声明语句中，正确的是 A）Dim A [3,4] As Integer B）Dim A (3,4) As Integer C）Dim A [3;4] As Integer D）Dim A (3;4) As Integer
（32）在窗体中有一个文本框Test1，编写事件代码如下： Private Sub Form_Click() X= val (Inputbox(“输入x的值”)) Y= 1
If X<>0 Then Y= 2 Text1.Value = Y End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是 A）1 B）2 C）3 D）4
（33）在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下： Private Sub Command1_Click() For I = 1 To 4 x = 3
For j = 1 To 3 For k = 1 To 2 x= x + 3 Next k Next j Next I
Text1.Value = Str(x) End Sub
打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是 A）6 B）12 C）18 D）21
（34）在窗体中有一个命令按钮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 To N Sum = Sum + 1 Next i P = Sum End Function
打开窗体运行后，单击命令按钮，输出的结果是 A）15 B）20 C）25 D）35
（35）下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录（即窗体记录源）个数。 Sub GetRecNum( ) Dim rs As Object Set rs = Me.Recordset MsgBox----- End Sub
程序空白处应填写的是 A）Count B）rs.Count C）RecordCount D）rs. RecordCount 二、填空题（每空2分，共30分）
（1）某二叉树由5个度为2的结点以及3个度为1的结点，则该二叉树中共有 【1】 个结点。
（2）程序流程图中的菱形框表示的是 【２】 。
（3）软件开发过程主要分为需求分析、设计、编码与测试四个阶段，其中 【３】 阶段产生“软件需求规格说明书“。
（4）在数据库技术中，实体集之间的联系可以是一对一或一对多的，那么“学生“和”可选课程“的联系为 【４】 。
（5）人员基本信息一般包括：身份证号、姓名、性别、年龄等。其中可以做主关键字的是 【５】 。
（6）Access中若要将数据库中的数据发布到网上，应采用的对象是 【6】 。
（7）在一个查询集中，要将指定的记录设置为当前记录，应该使用的宏操作命令是 【7】 。
（8）当文本框中的内容发生了改变时，触发的事件名称是 【8】 。
（9）在VBA中求字符串的长度可以使用函数 【9】 。
（10）要将正实数x保留两位小数，若采用Int 函数完成，则表达式为 【10】 。
（11）在窗体中有两个文本框分别为Text1和Text2，一个命令按钮Command1,编写如下两个事件过程： Private Sub Command1_Click( ) a = Text1.Value + Text2.Value MsgBox a End Sub
Private Sub Form_Load( ) Text1.Value = “” Text2.Value = “” End Sub
程序运行时，在文本框Text1中输入78，在文本框中Text2输入87，单击命令按钮，消息框中输出的结果为 【11】 。 （12）某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。 Sub command1_click( )
Dim mark!, aver!, i%,max1!,min1! aver = 0 For i = 1 To 7
Mark = InputBox(“请输入第”& i & “位评为的打分”) If i = 1 then
max1 =mark : min1=mark Else
If mark < min1 then min1= mark
ElseIf mark> max1 then 【12】 End If End If 【13】 Next i
aver = (aver - max1- min1)/5 MsgBox aver
End Sub
（13）“学生成绩”表含有字段（学号，姓名，数学，外语，专业，总分）。下列程序的功能是：计算每名学生的总分（总分=数学+外语+专业）。请在程序空白处填入适当语句，使程序实现所需要的功能。 Private Sub Command1_Click( ) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim zongfen As New ADODB.Fileld Dim shuxue As New ADODB. Fileld Dim waiyu As New ADODB. Fileld Dim zhuanye As New ADODB. Fileld Dim strSQL As Sting
Set cn = CurrentProject.Connection StrSQL = “Select*from成绩表”
rs.OpenstrSQL, cn, adOpenDynamic, adLockptimistic, adCmdText Set zongfen = rs.Filelds(“总分”) Set shuxue = rs.Filelds(“数学”) Set waiyu = rs.Filelds(“外语”) Set zhuanye = rs.Filelds(“专业”) Do while 【14】
Zongfen = shuxue + waiyu + zhuanye 【15】 rs.MoveNext Loop rs.close cn.close
Set rs = Nothing Set cn = Nothing End Sub
参考答案
选择题 1-5 CBDAB 6-10 ACBCD 11-15 BBAAC 16-20 DDACB 21-25 AADCC 26-30 CAAAD 31-35 BBDBD 填空题 1 14 2 逻辑分析
3 需求分析 4 多对多 5 身份证号 6 数据访问页 7 GOTO RECORD 8 CHARGE 9 Len
10 Int(x*100)/100 11 7887 12 max1=mark aver=aver+mark 13 not rs.EOF rs.UPDATE
2009年3月全国计算机等级考试二级试卷
Access数据库程序设计 （考试时间90分钟，满分100分）
一、选择题（每小题2分，共70分）
下面各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置，答在试卷上不得分。
(1)下面叙述中正确的是 A）栈是“先进先出”的线性表 B）队列是“先进后出”的线性表 C）循环队列是非线性结构
D）有序线性表既可以采用顺序存储结构，也可以采用链式存储结构
（2）支持子程序调用的数据结构是
A）栈 B）树 C）队列 D）二叉树
（3）某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是 A）10 B） 8 C）6 D）4
（4）下列排序方法中，最坏情况下比较次数最少的是
A）冒泡排序 B）简单选择排序 C）直接插入排序 D）堆排序
（5）软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。下面属于应用软件的是 A）编译程序员 B）操作系统 C）教务管理系统 D）汇编程序