一、选择题(每小题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)在学生管理的关系数据库中，存取一个学生信息的数据单位是
  A)文件
  B)数据库
  C)字段
  D)记录
  (9)数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的
  A)需求分析阶段
  B)逻辑设计阶段
  C)概念设计阶段
  D)物理设计阶段
  (10)有两个关系R和T如下：
  则由关系R得到关系T的操作是
  A)选择
  B)投影
  C)交
  D)并
(11)下列关于关系数据库中数据表的描述，正确的是
  A)数据表相互之间存在联系，但用独立的文件名保存
  B)数据表相互之间存在联系，是用表名表示相互间的联系
  C)数据表相互之间不存在联系，完全独立
  D)数据表既相对独立，又相互联系
  (12)下列对数据输入无法起到约束作用的是
  A)输入掩码
  B)有效性规则
  C)字段名称
  D)数据类型
  (13)Access中，设置为主键
的字段
  A)不能设置索引
  B)可设置为"有(有重复)"索引
  C)系统自动设置索引
  D)可设置为"无"索引
  (14)输入掩码字符"&"的含义是
  A)必须输入字母或数字
  B)可以选择输入字母或数字
  C)必须输入一个任意的字符或一个空格
  D)可以选择输入任意的字符或一个空格
  (15)在Access中，如果不想显示数据表中的某些字段，可以使用的命令是
  A)隐藏
  B)删除
  C)冻结
  D)筛选
  (16)通配符"#"的含义是
  A)通配任意个数的字符
  B)通配任何单个字符
  C)通配任意个数的数字字符
  D)通配任何单个数字字符
字符串长度的正确表示
  (17)若要求在文本框中输入文本时达到密码"*"的显示效果，则应该设置的属性是
  A)默认值
  B)有效性文本
  C)输入掩码
  D)密码
  (18)假设"公司"表中有编号、名称、法人等字段，查公司名称中有"网络"二字的公司信息，正确的命令是
  A)SELECT * FROM公司FOR名称 = " *网络* "
  B)SELECT * FROM公司FOR名称LIKE "*网络*"
  C)SELECT * FROM公司WHERE名称="*网络*"
  D)SELECT * FROM公司WHERE名称LIKE"*网络*"
  (19)利用对话框提示用户输入查询条件，这样的查询属于
  A)选择查询
  B)参数查询
  C)操作查询
  D)SQL查询
  (20)在SQL查询中"GROUP BY"的含义是
  A)选择行条件
  B)对查询进行排序
  C)选择列字段
  D)对查询进行分组
(21)在调试VBA程序时，能自动被检查出来的错误是
  A)语法错误
  B)逻辑错误
  C)运行错误
  D)语法错误和逻辑错误
  (22)为窗体或报表的控件设置属性值的正确宏操作命令是
  A)Set
  B)SetData
  C)SetValue
  D)SetWarnings
  (23)在已建窗体中有一命令按钮(名为Commandl)，该按钮的单击事件对应的VBA代码为：
  Private Sub Commandl_Click()
  subT.Form.RecordSource = "select * from雇员"
  End Sub
  单击该按钮实现的功能是
  A)使用select命令查"雇员"表中的所有记录
  B)使用select命令查并显示"雇员"表中的所有记录
  C)将subT窗体的数据来源设置为一个字符串
  D)将subT窗体的数据来源设置为"雇员"表
  (24)在报表设计过程中，不适合添加的控件是
  A)标签控件
  B)图形控件
  C)文本框控件
  D)选项组控件
  (25)下列关于对象"更新前"事件的叙述中，正确的是
  A)在控件或记录的数据变化后发生的事件
  B)在控件或记录的数据变化前发生的事件
  C)当窗体或控件接收到焦点时发生的事件
  D)当窗体或控件失去了焦点时发生的事件
  (26)下列属于通知或警告用户的命令是
  A)Pr
intOut
  B)OutputTo
  C)MsgBox
  D)RunWarnings
  (27)能够实现从指定记录集里检索特定字段值的函数是
  A)Nz
  B)Find
  C)Lookup
  D)DLookup
  (28)如果X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是
  A)0.01*Int(x+0.05)
  B)0.01*Int(100*(X+0.005))
  C)0.01*Int(x+0.005)
  D)0.01*Int(100*(X+0.05))
  (29)在模块的声明部分使用"Option Base 1"语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为
  A)20
  B)24
  C)25
  D)36
  (30)由"For i=1 To 9 Step -3"决定的循环结构，其循环体将被执行
  A)0次
  B)1次
  C)4次
  D)5次
　(31)在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：
  Private Sub Command1_Click()
  Dim i,j,x
  For i = 1 To 20 step 2
  x = 0
  For j = To 20 step 3
  x = x + 1
  Next j
  Next i
  Textl.Value=Str(x)
  End Sub
  打开窗体运行后，单击命令按钮，文本框中显示的结果是
  A)1
  B)7
  C)17
  D)400
  (32)在窗体上有一个命令按钮Commandl，编写事件代码如下：
  Private Sub Commandl_Click()
  Dim y As Integer
  y = 0
  Do
  y = InputBox("y=")
  If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y;
  Loop Until y = 0
  End Sub
  打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是
  A)37 55 64 28 19 19
  B)10 50 20
  C)10 50 20 0
  D)37 55 64 28 19
  (33)在窗体上有一个命令按钮Commandl，编写事件代码如下：
  Private Sub Command1_Click()
  Dim x As Integer, y As Integer
  x = 12: y = 32
  Call Proc(x, y)
  Debug.Print x; y
  End Sub
  Public Sub Proc(n As Integer, ByVal m As Integer)
  n = n Mod 10
  m = m Mod 10
  End Sub
  打开窗体运行后，单击命令按钮，立即窗口上输出的结果是
  A)2 32
  B)12 3
  C)2 2
  D)12 32
  34)在窗体上有一个命令按钮Commandl，编写事件代码如下：
  Private Sub Commandl_Click()
  Dim d1 As Date
  Dim d2 As Date
  dl = #12/25/2009#
  d2 = #1/5/2010#
  MsgBox DateDiff(" ww", d1, d2)
  End Sub
  打开窗体运行后，单击命令按钮，消息框中输出的结果是
  A)1
  B)2
  C)10
  D)11
  (35)下列程序段的功能是实现"学生"表中"年龄"字段值加1
  Dim Str As String
  Str=" "
  Docmd.RunSQL Str
  空白处应填入的程序代码是
  A)年龄=年龄+1
  B)Update学生 Set 年龄=年龄+1
  C)Set 年龄=年龄+1
  D)Edit 学生 年龄=年龄+l
　二、填空题(每空2分，共30分)
  请将每一个空的正确
答案写在答题卡【l】~【15】序号的横线上，答在试卷上不得分。
  (1)一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为 【1】 。
  (2)设某循环队列的容量为50，如果头指针front=45(指向队头元素的前一位置)，尾指针rear=10(指向队尾元素)，则该循环队 列中共有 【2】 个元素。
  (3)设二叉树如下：
  对该二叉树进行后序遍历的结果为 【3】 。
  (4)软件是 【4】 、数据和文档的集合。
  (5)有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两 个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号， 【5】 ，成绩)。
  (6)下图所示的窗体上有一个命令按钮(名称为Command1)和一个选项组(名称为Framel)，选项组上显示"Framel"文本的标 签控件名称为Labell，若将选项组上显示文本"Frame1"改为汉字"性别"，应使用的语句是【6】。
  (7)在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是【7】。
  (8)使用向导创建数据访问页时，在确定分组级别步骤中最多可设置【8】个分组字段。
  (9)在窗体文本框Text l中输入"456AbC"后，立即窗口上输出的结果是【9】。
  Private Sub Textl_KeyPress(KeyAscii As Integer)
  Select Case DeyAscii
  Case 97 To 122
  Debug.Print Ucase(Chr(KeyAscii));
  Case 65 To 90
  Debug.Print Lcase(Chr(KeyAscii));
  Case 48 To 57
  Debug.Print Chr(KeyAscii);
  Case Else
  KeyAscii = 0
  End Select
  End Sub
  (10)在窗体上有一个命令按钮Commandl，编写事件代码如下：
  Private Sub Command1_Click()
  Dim a(10), p(3) As Integer
  k = 5
  For i = 1 To 10
  a(i) = i * i
  Next i
  For i = 1 To 3
  p(i) = a(i * i)
  Next i
  For i = 1 To 3
  k = k + p(i) *2
  Next i
  MsgBox k
  End Sub
  打开窗体运行后，单击命令按钮，消息框中输出的结果是【10】。
(11)下列程序的功能是出被5、7除，余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
  Private Sub Form_Click()
  Dim Ncount %, n%
  n = n + 1
  If 【11】 Then
  Debug.Print n
  Ncount =Ncount + 1
  End If
  Loop Until Ncont = 5
  End Sub
  (12)以下程序的功能是在立即窗口中输出100到200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完 成指定的功能。
  Private Sub Command2_Click()
  Dim i%, j%, k%, t % 't 为统计素数的个数
  Dim b As Boolean
  For i = 100 To 200
  b = True
  k = 2
  j = Int(Sqr(i))
  Do While k <= j And b
  If I Mod k = 0 Then
  b = 【12】
  End If
  k = 【13】
  Loop
  If b = True Then
  t = t + 1
  Debug.Print i
  End If
  Next i
  Debug.Print "t="; t
  End Sub
  (13)数据库中有工资表，包括"姓名"、"工资"和"职称"等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加 10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资之总和。请在空白处填入适当的语句，使程序可以完成指定的功 能。
  Private Sub Command5_Click()
  Dim ws As DAO.Workspace
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Dim gz As DAO.Field
  Dim zc As DAO.Field
  Dim sum As Currency
  Dim rate As Single
  Set db = CurrentDb()
  Set rs = db.OpenRecordset("工资表")
  Set gz = rs.Fields("工资")
  Set zc = rs.Fields("职称")
  sum = 0
  Do While Not 【14】
  rs.Edit
  Select Case zc
  Case Is = "教授"
  rate = 0.15
  Case Is = "副教授"
  rate = 0.1
  Case Else
  rate = 0.05
  End Select
  sum = sum + gz * rate
  gz = gz + gz * rate
  【15】
  rs.MoveNext
  Loop
  rs.Close
  db.Close
  Set rs = Nothing
  Set db = Nothing
  MsgBox "涨工资总计:" & sum
  End Sub
我们都不是好孩子！

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。