y=f（x） Debug .Print x;y End Sub
运行程序，单击命令按钮，则立即窗口中显示的内容是 A）10 5 B）10 40 C）20 5 D）20 40
（32）窗体中有命令按钮Commandl和文本框Text1,事件过程如下： Function result（ByVal x As Integer）As Boolean If ×Mod 2=0 Then result=True Else result=False End If End Function
Private Sub Commandl_Click（） x=Val（InputBox（“请输入一个整数”）） If______ Then
Text1=Str（x）&“是偶数.” Else
Text1=Str（x）&“是奇数.” End If End Sub
运行程序，单击命令按钮，输入19,在Text1中会显示“19是奇数”.那么在程序的空白处应填写 A）result（x）=“偶数” B）result（x） C）resuIt（x）=“奇数” D）NOT result（x）
（33）窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下： Private Sub Commandl_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
运行以上事件过程，文本框中的输出是 A）6 B）12 C）18 D）21
（34）窗体中有命令按钮run34,对应的事件代码如下： Private Sub run34_Enter（）
Dim num As Integer,a As Integer,b As Integer,i As Integer For i=1 To 10
num=InputBox（“请输入数据：”,“输入”） If Int（num/2）=num/2 Then a=a+1 Else b=b+1 End If Next i
MsgBox（“运行结果：a=”&Str（a）&“,b=”&Str（b）） End Sub
运行以上事件过程，所完成的功能是 A）对输入的10个数据求累加和
B）对输入的10个数据求各自的余数，然后再进行累加 C）对输入的10个数据分别统计奇数和偶数的个数 D）对输入的10个数据分别统计整数和非整数的个数
（35）运行下列程序，输入数据8, 9, 3, 0后，窗体中显示结果是 Private Sub Form _click（） Dim sum AsInteger,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
二、填空题（每空2分，共30分）
（1）一个栈的初始状态为空。首先将元素5,4,3,2,1依次入栈，然后退栈一次，再将元素A,B,C,D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素)的顺序为【1】。
（2）在长度为n的线性表中，寻找最大项至少需要比较【2】次。
（3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二义树共有【3】个结点。
（4）仅由顺序、选择（分支）和重复（循环）结构构成的程序是【4】程序。
（5）数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和【5】。
（6）如果要求在执行查询时通过输入的学号查询学生信息，可以采用【6】查询。
（7）Access中产生的数据访问页会保存在独立文件中，其文件格式是【7】。
（8）可以通过多种方法执行宏：在其他宏中调用该宏；在VBA程序中调用该宏；【8】发生时触发该宏。
（9）在VBA中要判断一个字段的值是否为Null,应该使用的函数是【9】。
（10）一下列程序的功能是求方程：x2十y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。
Private Sub Commandl_Click（） Dim × as integer,y as integer For x= -34 To 34 For y= -34 To 34 If【10】Then Debug .Print x,y End If Next y Next x End Sub
（11）下列程序的功能是求算式：1+1/2 ! +1/3!+1/4!+……前10项的和（其中n!的含义是n的阶乘）。请在空白处填入适当的语句，使程序完成指定的功能。 Private Sub Commandl_Click（） Dim i as integer,s as single,a as single a=1:s=0 For i=1 To 10 a=【11】 s=s+a
Next i
Debug .Print “1+1/2!十1/3!+. …=”;s End Sub
（12）在窗体中有一个名为Command12的命令按钮，Click事件功能是：接收从键盘输入的10个大于0的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。 Private Sub Command12_Click（） max=0 maxn=0 for i=1 To 10
num=Val（InputBox（?,请输入第“&i&”个大于0的整数：“）） If【12】Then max=num maxn=【13】 End If Next i
MsgBox（”最大值为第“&maxn&”个输入的“&max） End Sub
（13）数据库的”职I基本情况表“有”姓名“和”职称“等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。 Private Sub Commands_Click（） Dim db As DAO .Database Dim rs As DAO .Recordset Dim zc As DAO .Field
Dim Countl As Integer,Count2 As Integer,Count3 As Integer Set db=CurrentDb（）
Set rs=db .OpenRecordset（”职工基本情况表“） Set zc=rs .Fields（”职称“） Countl=0 : Count2=0 : Count3=0 Do While Not【14】 Select Case zc Case Is=”教授“ Countl=Countl+1 CaseIs=”副教授“ Count2=Count2+1 Case Else Courit3=Count3+1 End Select 【15】 Loop rs .Close
Set rs=Nothing Set db=Nothing
MsgBox”教授：“&Count1&”,副教授：“&Count2 &”,其他：“&count3 End Sub
一、选择题(每小题2分，共70分)
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
(1)下列叙述中正确的是
A)对长度为n的有序链表进行查找，最坏情况下需要的比较次数为n B)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n/2) C)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(log2n) D)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n log2n) (2)算法的时间复杂度是指 A)算法的执行时间 B)算法所处理的数据量
C)算法程序中的语句或指令条数
D)算法在执行过程中所需要的基本运算次数
(3)软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是 A)编辑软件 B)操作系统 C)教务管理系统 D)浏览器
(4)软件(程序)调试的任务是 A)诊断和改正程序中的错误 B)尽可能多地发现程序中的错误 C)发现并改正程序中的所有错误 D)确定程序中错误的性质 (5)数据流程图(DFD图)是 A)软件概要设计的工具 B)软件详细设计的工具 C)结构化方法的需求分析工具 D)面向对象方法的需求分析工具
(6)软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于 A)定义阶段 B)开发阶段 C)维护阶段 D)上述三个阶段
(7)数据库管理系统中负责数据模式定义的语言是 A)数据定义语言 B)数据管理语言 C)数据操纵语言 D)数据控制语言
(8)在学生管理的关系数据库中，存取一个学生信息的数据单位是