Access2010《数据库基础与应用》期末综合练习题

Access2010《数据库基础与应用》综合练习题

1 / 6

1、在 Access2010 中的 VBA 过程里，要运行宏可以使用 DoCmd 对象的 ______方法。 A．Open B．RunMacro C．Close D．Query 答案: B

2、在宏中，OpenReport 操作可用来打开指定的_______。 A．查询 B．状态栏 C． 窗体 D．报表 答案: D

3、关于宏的执行，以下说法不正确的是_______。

A．在“导航窗格”，选择“宏”对象列表中的某个宏名并双击， 可以直接运行该宏中的第一个子宏的所有宏操作

B．在“导航窗格”，选择“宏”对象列表中的某个宏名并双击， 可以直接运行该宏中的第二个子宏的所有宏操作

C．可以在一个宏中运行另一个宏 D．在一个宏中可以含有IF逻辑块 答案: B

4、在宏中，用于显示所有记录的宏命令是_______。 A．MsgboxAllRecords B．ShowAllRecords C．SetProperty D．SaveRecords 答案: B

5、在 VBA 中，表达式 (5^2 Mod 8) >= 4 的值是_______。 A．True B．False C．And D. Or 答案: B

6、表达式 IIf(23 \\ 5.5 <= 3 Or 5 >= 6, 68, 176) 的结果是______。 A．5 B．6 C．68 D．176 注意：执行整除之前，要先把除数四舍五入。

请另外试试表达式 IIf(23 \\ 5.4 <= 3 Or 5 >= 6, 68, 176) 的结果。 答案: C

7、执行下列程序段后，变量 P 的值是_____。 Dim W As Single Dim P As Single W = 68.5

If W <= 50 Then P = W * 4

Else

P = W * 2 End If

A. 68.5 B. 137 C. 205.5 D. 275 答案: B

8、设 x=9，执行下列程序段后，变量 t 的值是_____。 y = x\\4 +2^4

If y<>30 Then x = x + y t = x Mod 12

A. 1 B. 2 C. 3 D. 4

Access2010《数据库基础与应用》综合练习题

2 / 6

答案: C

9、在 VBA 中，声明函数过程的关键字是_______。

A．Dim B．Const C．Function D．Sub 答案: C

10、对 VBA 中的逻辑值进行算术运算时，True 值被当做 -1，False 当做

_______。

A．1 B．2 C．0 D．3 答案: C

11、在 VBA 中，类型说明符 # 表示的数据类型是______。

A．整型 B．长整型 C．单精度型 D．双精度 答案: D

12、下列语句中，定义窗体的加载事件过程的头语句是______。 A．Private Sub Form_Chang() B．Private Sub Form__LostFocus() C．Private Sub Form_Load() D．Private Sub Form_Open() 答案: C

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

A．Docmd.OpenForm \产品数量统计\ B．Docmd.OpenView \产品数量统计\ C．Docmd.OpenTable \产品数量统计\ D．Docmd.OpenReport \产品数量统计\答案: D

14、表达式 IIf(7 Mod 5 > 3, 60, IIf(2^3 > 28, 80, 100)) 的运算结果是______。 A．60 B．80 C．100 D．160 答案: C

15、在 VBA 中，变量声明语句“ Dim a!, b AS integer”中的变量 a 的 类型是______。

A．整型 B．单精度型 C．长整型 D．变体型 答案: B

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

A．True B．False C．-1 D．1 答案: B

17、在 VBA 某个模块中，有如下声明语句 Dim a(6,10) AS integer

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

A．16 B．60 C．70 D．77

Access2010《数据库基础与应用》综合练习题

3 / 6

答案: D

18、以下 VBA 程序段运行后，变量 j 的值是______。 k = 10 j = 0 Do

k = k + 10 j = j + 1

Loop Until k > 20

A．1 B．2 C．4 D．10 答案: B

19、以下 VBA 程序段运行后，变量 j 的值是______。

y = 89

j = \不及格\

Do While y > 60

j = IIf(y < 70, \及格\良好\优秀\ y = y - 50 Loop

A．\不及格\ B．\及格\ C．\良好\ D．\优秀\答案: C

20、以下 VBA 代码程序运行结束后，变量 a 的值是______。 a=0

b=101 Do

b=b-20 a=a+b

Loop While b>80

A．60 B．140 C．142 D．160 答案: C

21、以下 VBA 代码程序运行结束后，数组元素 a(12) 的值是______。 Dim a(12) As Long, i As Long i=0

Do Until i>12 a(i)=i^2 - i i=i+1 Loop

A．1 B．128 C．132 D．144 答案: C

22、假定有如下的 Function 过程：

Function ppfun(x As Single, y As Single) ppfun=x^3-y^2 End Function

Access2010《数据库基础与应用》综合练习题

4 / 6

在窗体上添加一个命令按钮（名为 cmd10）,然后编写如下事件过程： Private Sub cmd10_Click() Dim a As Single, b As Single a = 5 b = 4

MsgBox ppfun(a,b) mod 50 End Sub

打开窗体运行后，单击命令按钮，消息框中的输出内容是______。 A．50 B．25 C．9 D．109 答案: C

23、在窗体上添加一个命令按钮（名为 cmd2）,然后编写如下事件过程： Private Sub cmd2_Click()

Dim pi As Single, n As Integer pi = 3.14

n = Len(Str(pi) & Space(2) & \是本字符串长度\ MsgBox n End Sub

打开窗体运行后，单击命令按钮，消息框中的输出内容是______。 A．11 B．12 C．13 D．14 答案: D

24、在窗体上添加一个命令按钮（名为 cmd13）,然后编写如下事件过程： Private Sub cmd13_Click() Dim x As String, y As String

x = \龙洞华美路中山大学新华学院法学院\ y = \级法学专业学生\

MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9) End Sub

打开窗体运行后，单击命令按钮，消息框中的输出内容是______。 A．龙洞华美路中山大学新华学院法学院2006级法学专业学生 B．中山大学新华学院法学院2006级法学专业学生 C．中山大学法学院2006级法学专业学生

D．中山大学法学院2006级法学专业 答案: D

25、下列程序段,建立如图所示的数组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

Access2010《数据库基础与应用》综合练习题

5 / 6

Dim d(1 To 6, 1 To 6)

For j = 1 To 6 For k = 1 To 6

d(j,k) = Abs( _____ ) + 1 '选答案 Next k Next j

A．j B．j-k+1 C．j-k D．2*j-k 答案: C

26、下面______是合法的变量名。

A．STR-NAME B．Case C．FOR_99 D．abc2006 E．6A 答案: CD

27、在 VBA 中，对于 Sub (或 Function) 过程中的每一个形参,可用于声 明其参数传递方式的关键字包括_______。 A．ByMe B．ByVal C．ByRef D．ByVBA E．BySub 答案: BC

28、在窗体上添加一个命令按钮（名为 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

p(i,j) = _________ '选答案 Next j Next i End Sub

A. (i+j)^2 B. i^2+j C. i+j^2 D. i^2+j^2

答案: D

29、在窗体上已经建立1个文本框控件txt1和1个命令按钮控件cmd1。请完 善程序，使之完成以下操作：

程序运行时，文本框上显示“VBA程序设计”，命令按钮的标题上显示“隐藏”； 单击命令按钮时文本框消失； 单击窗体时显示出文本框。 Private Sub cmd1_Clic() txt1.Visible = False End Sub

Private Sub Form_Click()

Access2010《数据库基础与应用》综合练习题

6 / 6

txt1._________ = True '选答案

End Sub

Private Sub Form_Load()

txt1.Value = \程序设计\ txt1.Visible = True

cmd1.Caption = \隐藏\ End Sub

A. Enable B. Value C. Visible D. Caption 答案: C

30、在窗体上已经建立1个标签控件lab1和1个命令按钮控件cmd1。请完善程序，使之完成以下操作： 打开窗体后单击命令按钮，则通过输入对话框分别输入3个数值，然后求出其中最大的数，并将最大的数显示在标签lab1中。 Private Sub cmd1_Click()

Dim a As Single, b As Single, c As Single Dim k As Single

a = Val(InputBox(\输入第一个数\ b = Val(InputBox(\输入第二个数\ c = Val(InputBox(\输入第三个数\ If a

k = a End If

If k

____________ '选答案 End Sub

A. lab1.Value = a B. lab1.Value = b C. lab1.Caption = c

D. lab1.Caption = k 答案: D

31、求 7 ^ 2 Mod 11 + 7 \\ 4 * 9 / 5 Mod 6 表达式的值是_______。 答案: 6