《数据库基础及应用》期末练习试题1

1）打开某个 Access 数据库，创建一个数据访问页，在“页”对象列表框中所列出的是数据访问页的_快捷方式____。

2）在 Access 中，当对数据访问页设置分组字段时，展开控件的作用是显示或隐藏每组中的__记录___。

3）在宏的设计视图窗口中，下半部分是__操作参数区_____。

4）在宏中，OpenReport 操作可用来打开指定的___报表____。

5）在 Access 中的 VBA 过程里，要运行宏可以使用 DoCmd 对象的 __ RunMacro ____方法。

6）关于宏的执行，以下说法不正确的是在打开数据库时，不会自动运行 AutoExec 宏_______。

7）在宏中，用于显示所有记录的宏命令是__ ShowAllRecords _____。

8）在 VBA 中，表达式 (5^2 Mod 8) >= 4 的值是__False_____。

9）在 VBA 中，表达式 23\4<=3 Or 5>=6 的值是__ False_____。

10）在 VBA 中，表达式 Not (Not (8-3>5)) 的值是__False_____。

11）在 VBA 中，表达式 33/2>16 And (16\5>3) 的值是__False_____。

12）在 VBA 中，声明函数过程的关键字是__ Function _____。

13）对 VBA 中的逻辑值进行算术运算时，True 值被当做 -1，False 当做__0_____。

14）在 VBA 中，类型说明符 # 表示的数据类型是__双精度型____。

15）下列语句中，定义窗体的加载事件过程的头语句是_ Sub Form_Load()_____。

16）现有一个已经建好的窗体，窗体中有一个命令按钮，单击此按钮，将打开“产品数量统计”报表，如果采用VBA 代码完成，下面语句正确的是__ Docmd.OpenReport "产品数量统计"____。

17）表达式 IIf(0, 60, 100) 的结果是__100____。

18）在 VBA 中，变量声明语句“ Dim a#, b AS integer”中的变量 a 的类型是_双精度型_____。

19）在 VBA 中，“ Dim a(3,3) AS Bollean”语句定义了一个数组，该数组中的全部元素都初始化为_False_____。

20）在 VBA 某个模块中，有如下声明语句

Dim a(6,10) AS integer

那么数组 a(6,10) 总共有__77____个元素。

21）以下 VBA 程序段运行后，变量 j 的值是__2____。

k = 10

j = 0

Do

k = k + 10

j = j + 1

Loop Until k > 20

22）以下 VBA 程序段运行后，变量 j 的值是__"良好"____。

y = 89

j = "不及格"

Do While y > 60

j = IIf(y < 70, "及格", IIf(y < 90, "良好", "优秀"))

y = y - 50

Loop

23）以下是宏 h 的操作序列设计：

条件操作操作参数

[txt1]>=2 MsgBox 消息是“北京”

... MsgBox 消息是“上海”

MsgBox 消息是“广州”

现设置宏 h 为窗体“sysu”上名为“cmd1”命令按钮的单击事件属性，打开窗体“sysu”运行后，在窗体上名为“txt1”的文本框内输入数字1，然后单击命令按钮 cmd1，则

A．屏幕会弹出一个消息框，显示消息“北京”

B．屏幕会先后弹出两个消息框，分别显示消息“北京”和“上海”

C．屏幕会先后弹出三个消息框，分别显示消息“北京”、“上海”、“广州”

D．屏幕会弹出一个消息框，显示消息“广州”

答案：D

24）以下 VBA 代码程序运行结束后，变量 a 的值是__142____。

a=0

b=101

Do

b=b-20

a=a+b

Loop While b>80

以下 VBA 代码程序运行结束后，数组元素 a(12) 的值是__132____。

Dim a(12) As Long, i As Long

i=0

Do Until i>12

a(i)=i^2 - i

i=i+1

Loop

25）假定有如下的 Function 过程：

Function ppfun(x As Single, y As Single)

ppfun=x^3-y^2

End Function

在窗体上添加一个命令按钮（名为 cmd10）,然后编写如下事件过程：

Private Sub cmd10_Click()

Dim a As Single, b As Single

a = 5

b = 4

MsgBox ppfun(a,b) mod 50

End Sub

打开窗体运行后，单击命令按钮，消息框中的输出内容是__9___。

27）在窗体上添加一个命令按钮（名为 cmd12）,然后编写如下事件过程：

Private Sub cmd12_Click()

Dim pi As Single, n As Integer

pi = 3.14

n = Len(Str(pi) & Space(2) & "是本字符串长度")

MsgBox n

End Sub

打开窗体运行后，单击命令按钮，消息框中的输出内容是_14_____。

28）下列程序段,建立如图所示的数组d（下标从1开始），填写所缺部分：

1 2 3 4 5 6

2 1 2

3

4 5

3 2 1 2 3 4

4 3 2 1 2 3

5 4 3 2 1 2

6 5 4 3 2 1

Dim d(1 To 6, 1 To 6)

For j = 1 To 6

For k = 1 To 6

d(j,k) = Abs( _j-k__ ) + 1

Next k

Next j

29）在 VBA 中，对于 Sub (或 Function) 过程中的每一个形参,可用于声明其参数传递方式的关键字包括_______。

A．ByMe B．ByVal

C．ByRef D．ByVBA

答案：BC

第33题

30）在窗体上添加一个命令按钮（名为 cmd），然后编写如下事件过程。单击该命令按钮，便将数组 p(6,8)中各个元素都赋予其对应的两个下标值平方之和，请完善程序。

Private Sub cmd_Click()

Dim p(6,8) As integer, i As integer, j As integer

For ____i=0___ To 6

For j=0 To ___8_____