Access复习试题加资料

(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）汇编程序

（6）下面叙述中错误的是

A）软件测试的目的是发现错误并改正错误 B）对被调试的程序进行“错误定位”是程序调试

C）程序调试通常被称为Debug D）软件测试就严格执行测试计划，排除测试的随意性

（7）耦合性和内聚性是模块独立性试题的两个标准，下列叙述正确的是

A）提高耦合性降低内聚性有利于提高模块的独立性 B）降低耦合性提高内聚性有利于提高模块独立性C）耦合性是一个模块内部元素间彼此结合的紧密程序 D）内聚性是指模块可互相连接的紧密程序（8）数据库应用系统中的核心问题是

A）数据库设计 B）数据库系统设计 C）数据库维护 D）数据库管理员培训

（9）有两个关系R，S如下：

由关系R通过运算得到关系S，则所使用的运算为 A）选择 B）投影 C）插入 D）连接

（10）将E-R图转换为关系模式时，实体和联系都可以表示为 A）属性 B）键 C）关系 D）域

（11）按数据的组织形式，数据库的数据模型可分为三种模型，它们是

A）小开、中开和大型 B）网状、环状和链状 C）层次、网状和关系 D）独享、共享和实时

（12）数据库中有A、B两表，均有相同字段C，在两表中C字段都设为主键，当通过C字段建立两表关系时，则该关系为 A）一对一 B）一对多 C）多对多 D）不能建立关系

（13）如果在创建表中建立字段“性别”，关要用汉字表示，其数据类型应当是

A）是/否 B）数字 C）文本 D）备注

(14)在Access数据库对象中，体现数据库设计目的的对象是 A）报表 B）模块 C）查询 D）表

（15）下列关于空值的叙述中，正确的是

A）空值是双引号中间没有空格的值 B）空值是等于数值

C）空值是使用NULL或空白来表示字段的值 D）空值是用空格表示的值

（16）在定义表中字段属性时，对要求输入相对固定格式的数据，例如电话号码010********，应该定义该字段的 A）格式 B）默认值 C）输入掩码 D）有效性规则

（17）在书写查询准则时，日期型数据应该使用适当的分隔符括起来，正确的分隔符是

A）* B）% C）& D）#

（18）下列关于报表的叙述中，正确的是

A）报表只能输入数据 B）报表只能输出数据 C）报表可以输入和输出数据 D）报表不能输入和输出数据

（19）要实现报表按某字段分组统计输出，需要设置的是

A）报表页脚 B）该字段的组页脚 C）主体 D）页面页脚

（20）下列关于SQL语句的说法中，错误的是

A）INSERT语句可以向数据表中追加新的数据记录

B）UPDATE语句可以用来删除数据表中已经存在的数据记录

C）DELETE语句用来删除数据表中的记录 D）CREATE语句用来建立表结构并追加新的记录

（21）在数据访问工具箱中，加了插入一段滚动的文字应该选择的图标是

（22）在运行宏的过程中，宏不能修改的是 A）窗体 B）宏本身 C）表 D）数据库

（23）在设计条件宏时，对于连续重复条件，要代替重复条件表达式可是使用符号

A）… B）: C）: D）=

（24）在宏的参数中，要引用窗体F1上的Text1文本框的值，应该使用的表达式是

A）[Forms]![F1]![Text1] B）Text1 C）[F1].[Text1] D）[Forms]_[F1]_[Text1]

(25)宏操作Quit的功能是 A）关闭表 B）退出宏 C）退出查询 D）退出Access

（26）发生在控件接收焦点之前的事件是 A）Enter B）Exit C）GotFocus D）LostFocus

(27)要想在过程Proc调用后返回形参x和y的变化结果，下列定义语句正确的是

A）Sub Proc (x as Integer y as Integer) B）Sub Proc(ByVal x as Integer y as Integer)

C）Sub Proc(x as Integer ByVal y as Integer) D）Sub Proc(ByVal x as Integer ByVal y as Integer)

(28) 要从数据库中删除一个表，应使用的SQL语句是

A）ALTER TABLE B）KILL TABLE C）DELETE TABLE D）DROP TABLE

（29）在VBA中要打开名为“学生信息录入”的窗体，应使用的语句是

A）DoCmd.OpenForm “学生信息录入” B）OpenForm “学生信息录入”

C）DoCmd.OpenWindows “学生信息录入” D）OpenWindows “学生信息录入”

（1）假如用一个长度为50的数组（数组元素的下标从0到49）作为栈的存储空间，栈底指针bottom指向栈底元素，栈顶指针top指向栈顶元素，如果bottom=49top=30（数组下标），则栈中具有__【1】_____个元素。

（2）软件测试可分为白盒测试和黑盒测试。基本路径测试属于___【2】___测试。

（3）符合结构化原则的三种基本结构是：选择结构、循环结构和____【3】______。

（4）数据库系统的核心是____【4】_____。

（5）在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实体联系的是_【5】_框。

（6）在关系数据库中，从关系中找出满足给定条件的元组，该操作可称为___【6】____。

（7）函数Mid("学生信息管理系统"32)的结果是_____【7】______。

(8)用SQL语句实现查询表名为“图书表”中的所有记录，应该使用的SELECT语句是：select____【8】____。

（9）Access的窗体或报表事件可以有两种方法来响应：宏对象和____【9】____。（10）子过程Test显示一个如下所示4×4的乘法表。

1*1=1 1*2=2 1*3=3 1*4=4 2*2=4 2*3=6 2*4=8 3*3=9 3*4=12

请在空白处填入适当的语句使子过程完成指定的功能。

Sub Text()

Dim i j As Integer

For i = 1 To 4

For j = 1 To 4

If__【10】__Then

Debug.Print i &"*" &j &"=" &i *j &Space(2)

End If

Next j

Debug.Print

Next i

End Sub

（11）有“数字时钟”窗体如下：

在窗口中有按钮“[开/关]时钟”，单击按钮可以显示或隐藏时钟。其中按键的名称为“开关”，显示时间的文本框名称为“时钟”，计时器间隔已设置为500。

请在空白处填入适当的语句，使程序可以完成指定功能。

Dim flag As Integer

Private Sub Form_Load()

flg 1

End Sub

Private Sub Form_Timer() ' “计时器触发”事件

时钟 = Time '在“时钟”文本框中显示当前时间

End Sub

Private Sub 开关_Click() ' “开关”按钮的单击事件过程

If __【11】__ Then

时钟.Visible = False

flga = 0

Else

时钟.Visible = True

flag = 1

End If

End Sub

(12)窗体中有两个命令按钮：“显示”（控件名为 cmdDisplay）和“测试”（控件名为cmdTest）。当单击“测试” 按钮时，执行的事件功能是：首先弹出消息框，若单击其中的“确定”按钮，则隐藏窗体上的“显示”按钮；否则直接返回到窗体中。请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub cmdTest_Click()

Answer =__【12】___("隐藏按钮？"vbOKCancel + vbQuestion "Msg")

If Answer = vbOK Then

Me!cmdDisplay.Visible = ___【13】___

End If

End Sub

(13)对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求：该文本框中只接受大于等于15小于等于30的数值数据，若输入超出范围则给出提示信息。该文本控件的BeforeUpdate事件过程代码如下，请在空白处填入适当语句，使程序可以完成指定的功能。

Private Sub txtAge_BeforeUpdate(Cancel As Integer)

If Me!txtAge = "" Or __【14】___ (Me!txtAge) Then

'数据为空时的验证

MsgBox "年龄不能为空！" vbCritical "警告"

Cancel = True ’取消BeforeUpdate事件

ElseIf IsNumeric(Me!txtAge) = False Then

’非数值数据输入的验证

MsgBox "年龄必须输入数值数据！" vbCritical "警告"

Cancel = True ’取消BeforeUpdate事件

ElseIf Me!txtAge

（1） D （2） A （3） C （4） D （5） C

（6） A （7） B （8） A （9） B （10） C

（11） C （12） A （13） C （14） D （15） C

（16） C （17） D （18） B （19） B （20） D

（21） B （22） B （23） A （24） A （25） D

（26） A （27） A （28） D （29） A （30） D

（31） B （32） B （33） B （34） C （35） C

（1）19（2）白盒（3）顺序结构（4）数据库管理系统（5）菱形（6）选择（7）信息（8）* FROM 图书表（9）事件过程（10）i<=j（11）flag=l（12）MsgBox（13）False （14）ISNULL（15）>30

第6题

Select Case Forms!基本情况!部门ID

Case 1

MsgBox "属于研发部", vbInformation, "所属部门"

Case 2

MsgBox "属于管理部", vbInformation, "所属部门"

Case 3

MsgBox "属于服务部", vbInformation, "所属部门"

End Select 、、、

MsgBox Year(Date) - Year(Forms!基本情况!调入日期), vbInformation, "您的工龄（年）"、、第8题

Private Sub Command4_Click()

Dim r as single

r= Forms!计算圆面积!半径

Forms!计算圆面积!圆面积= area(r)

End Sub、

Public Function area(r As Single) As Single

If r <= 0 Then

area = 0

Exit Function

End If

area = 3.14 * r * r

End Function、、

第9题

Dim x As Double

Dim y As Double

x = Forms!简单计算!x

y = Forms!简单计算!y

Forms!简单计算!max = IIf(x > y, x, y)

Forms!简单计算!象限= Switch(x > 0 And y > 0, 1, x < 0 And y > 0, 2, x < 0 And y < 0, 3, x > 0 And y < 0, 4)、、

第10题

1）Public Sub Year()

Dim x As Long

x = InputBox("请输入某一年", "输入")

If (x Mod 400 = 0 Or x Mod 4 = 0) Then

MsgBox ("是闰年！")

Else

MsgBox ("不是闰年！")

End If

End Sub

2）Public Sub L()

Dim x As Integer

x = 100

Call Sum(x)

MsgBox (x)

End Sub、

Private Sub Sum(x As Integer)

Dim i As Integer

For i = 1 To x - 1 Step 1

x = i + x

Next i

End Sub

第13题

Private Sub 最小化窗体_Click()

DoCmd.Minimize

End Sub、

Private Sub 关闭窗体_Click()

DoCmd.Close

End Sub、

Private Sub Form_Close()

MsgBox ("您已经退出雇员窗体！")

End Sub、、

第18题

Private Sub Command8_Click()

If IsNull(Forms!课程!课程名称) Then

MsgBox ("课程名称不能为空！")

End If

End Sub、

Private Sub Command9_Click()

DoCmd.Close

End Sub、、

第20题

Dim a As Boolean、

Private Sub Command2_Click()

a = False

End Sub、

Private Sub Command3_Click()

a = True

End Sub、

Private Sub Form_Open(Cancel As Integer)

a = True

End Sub、

Private Sub Form_Timer()

If a = True Then

Forms!计时!Time = Forms!计时!Time + 1 End If

End Sub、

第25题

Public sub m()

Dim n as integer

Dim i as integer

Dim j as integer

Dim k as integer

n=100

Do while n<999

i=n\100

j= (n-i*100)\10

k=n-j*10-i*100

If (n=i^3+j^3+k^3) then

Msgbox (n)

Endif

n=n+1

Loop

End sub、

第28题

Public Sub pd()

Dim x As Integer

x = 1

Do While x < 30

If x * 2 + (30 - x) * 4 = 90 Then

MsgBox x, vbInformation, "鸡数"

MsgBox 30 - x, vbInformation, "兔子数"

End If

x = x + 1

Loop

End Sub、

第32题

=DCount("雇员ID","雇员","雇员性别='女'")

=DAvg("基本工资","工资")、

第34题

Private Sub Command6_Click()

Forms!窗体1!学生姓名= DLookup("学生姓名", "学生", "学生编号='" & Forms!窗体1!请输入学号& "'")

End Sub、

第35题

=12*DSum("基本工资","工资")、

第36题

Public Sub M()

Dim a As Integer

a = F2()

End Sub

Public Function F2() as integer

On Error GoTo CATCHBLOCK

Error 102

MsgBox ("No Error !")

Exit Function CATCHBLOCK: MsgBox (Err.Description)、End Function、