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

WORD格式

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

以下 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

[A] 选 A

[B]选 B

[C] 选 C

[D] 选 D

答案: C

第 22 题: (单选题 , 1 分)

假定有如下的 Function 过程：

Function ppfun(x As Single, y As Single)

ppfun=x^3-y^2

End Function

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

Private Sub cmd10_Click()

13/22

专业资料整理

WORD格式

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

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

B．25 C ．9 A．50 D．109

[A] 选 A

[B]选 B

[C] 选 C

[D] 选 D

答案: C

第 23 题: (单选题 , 1 分)

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

Dim a As Single, b As Single a = 5 b = 4 MsgBox

ppfun(a,b) mod 50

14/22

专业资料整理

WORD格式

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

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

B．12

C ．13

______。 D．14

15/22

[A] 选 A

[B]选 B

[C] 选 C

[D] 选 D

答案: D

第 24 题: (单选题 , 1 分)

在窗体上添加一个命令按钮（名为 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 级法学专业

专业资料整理

WORD格式

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

16/22

[A] 选 A

[B] 选 B

[C] 选 C

[D] 选 D

答案 : D

第 25 题: (单选题 , 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( _____ ) + 1 Next k Next j

A ． j

B．j-k+1

d （下标从 1 开始），填写所缺部分：'选答案

C ． j-k

专业资料整理

D． 2*j-k