Access2010《数据库基础与应用》期末综合练习试题2 下载本文

. . .

[B]选B [C]选C [D]选D 答案: C

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

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

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 [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

打开窗体运行后,单击命令按钮,消息框中的输出内容是______。 A.11 B.12 C.13 D.14 [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级法学专业 [A]选A [B]选B [C]选C [D]选D 答案: D

问第25 题: (单选题, 1 分)

下列程序段,建立如图所示的数组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( _____ ) + 1 '选答案 Next k Next j

A.j B.j-k+1 C.j-k D.2*j-k [A]选A

..........

. . .

[B]选B [C]选C [D]选D 答案: C

第26 题: (多选题, 1 分)【关于合法变量名】 下面______是合法的变量名。

A.STR-NAME B.Case C.FOR_99 D.abc2006 E.6A [A]选A [B]选B [C]选C [D]选D [E]选E 答案: CD

第27 题: (多选题, 1 分)【P258页,声明参数传递方式的关键字】 在 VBA 中,对于 Sub (或 Function) 过程中的每一个形参,可用于声

明其参数传递方式的关键字包括_______。 A.ByMe B.ByVal C.ByRef D.ByVBA E.BySub [A]选A [B]选B [C]选C [D]选D [E]选E 答案: BC

问第28 题: (单选题, 1 分)

在窗体上添加一个命令按钮(名为 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 [A]选A

..........

. . .

[B]选B [C]选C [D]选D 答案: D

问第29 题: (单选题, 1 分)

在窗体上已经建立1个文本框控件txt1和1个命令按钮控件cmd1。请完

善程序,使之完成以下操作:

程序运行时,文本框上显示“VBA程序设计”,命令按钮的标题上显

示“隐藏”;

单击命令按钮时文本框消失; 单击窗体时显示出文本框。 Private Sub cmd1_Clic() txt1.Visible = False End Sub

Private Sub Form_Click()

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 [A]选A [B]选B [C]选C [D]选D 答案: C

第30 题: (单选题, 1 分)【caption?】

在窗体上已经建立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 [A]选A [B]选B [C]选C [D]选D 答案: D

第31 题: (填空题, 2 分)

7 ^ 2 Mod 11 + 7 \\ 4 * 9 / 5 Mod 6 上述表达式的值是_______。 <空1>____________________

答案:

Lower(Trim(GetFill(1)))=\

第32 题: (填空题, 2 分) 通过编程求出结果。

把 9786 表示为两个加数之和,使其中一个加数能被91整除,而另一个 加数能被87整除。请求出:在这两个加数中,能被91整除的加数等于多少? <空1>____________________

答案:

Lower(Trim(GetFill(1)))=\

..........