1、Access2010数据库基础与应用综合练习题 1 / 61、在 Access2010 中的 VBA 过程里，要运行宏可以使用 DoCmd 对象的 _方法。A Open BRunMacro CClose DQuery答案: B 2、在宏中，OpenReport 操作可用来打开指定的_。A查询 B状态栏 C 窗体 D报表答案: D 3、关于宏的执行，以下说法不正确的是_。A在 “导航窗格 ”，选择“宏”对象列表中的某个宏名并双击，可以直接运行该宏中的第一个子宏的所有宏操作B在“导航窗格”，选择“宏”对象列表中的某个宏名并双击，可以直接运行该宏中的第二个子宏的所有宏操作C可以在一个宏中运行另一个宏
2、 D在一个宏中可以含有 IF 逻辑块答案: B 4、在宏中，用于显示所有记录的宏命令是_。A MsgboxAllRecords BShowAllRecordsCSetProperty DSaveRecords答案: B 5、在 VBA 中，表达式 (52 Mod 8) = 4 的值是_。A True BFalse CAnd D. Or答案: B 6、表达式 IIf(23 5.5 = 6, 68, 176) 的结果是_。A 5 B6 C68 D176注意：执行整除之前，要先把除数四舍五入。 请另外试试表达式 IIf(23 5.4 = 6, 68, 176) 的结果。答案: C 7、执行下列程序段
3、后，变量 P 的值是_。Dim W As Single Dim P As SingleW = 68.5If W 30 Then x = x + yt = x Mod 12A. 1 B. 2 C. 3 D. 4Access2010数据库基础与应用综合练习题 2 / 6答案: C 9、在 VBA 中，声明函数过程的关键字是_。A Dim BConst CFunction DSub答案: C 10、对 VBA 中的逻辑值进行算术运算时，True 值被当做 -1，False 当做_。A 1 B2 C0 D3答案: C 11、在 VBA 中，类型说明符 # 表示的数据类型是_。A整型 B长整型 C单精度
4、型 D双精度答案: D 12、下列语句中，定义窗体的加载事件过程的头语句是_。A Private Sub Form_Chang()BPrivate Sub Form_LostFocus()CPrivate Sub Form_Load()DPrivate Sub Form_Open()答案: C 13、现有一个已经建好的窗体，窗体中有一个命令按钮，单击此按钮，将打开“产品数量统计”报表，如果采用 VBA 代码完成，下面语句正确的是_。A Docmd.OpenForm “产品数量统计“BDocmd.OpenView “ 产品数量统计“CDocmd.OpenTable “ 产品数量统计“DDocmd
5、.OpenReport “产品数量统计“答案: D 14、表达式 IIf(7 Mod 5 3, 60, IIf(23 28, 80, 100) 的运算结果是_。A 60 B80 C100 D160答案: C 15、在 VBA 中，变量声明语句“ Dim a!, b AS integer”中的变量 a 的类型是_。A整型 B单精度型 C长整型 D变体型答案: B 16、在 VBA 中，“ Dim a(3,3) AS Boolean”语句定义了一个数组，该数组中的全部元素都初始化为_。A True BFalse C-1 D1答案: B 17、在 VBA 某个模块中，有如下声明语句Dim a(6,1
6、0) AS integer那么数组 a(6,10) 总共有_个元素。A 16 B60 C70 D77Access2010数据库基础与应用综合练习题 3 / 6答案: D 18、以下 VBA 程序段运行后，变量 j 的值是_。k = 10j = 0Dok = k + 10j = j + 1Loop Until k 20A 1 B2 C4 D10答案: B 19、以下 VBA 程序段运行后，变量 j 的值是_。y = 89j = “不及格“Do While y 60j = IIf(y 80A 60 B140 C142 D160 答案: C 21、以下 VBA 代码程序运行结束后，数组元素 a(12
7、) 的值是_。Dim a(12) As Long, i As Longi=0Do Until i12a(i)=i2 - ii=i+1LoopA 1 B128 C132 D144答案: C 22、假定有如下的 Function 过程：Function ppfun(x As Single, y As Single)ppfun=x3-y2End FunctionAccess2010数据库基础与应用综合练习题 4 / 6在窗体上添加一个命令按钮（名为 cmd10）,然后编写如下事件过程：Private Sub cmd10_Click()Dim a As Single, b As Singlea = 5
8、b = 4MsgBox ppfun(a,b) mod 50End Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_。A 50 B25 C9 D109答案: C 23、在窗体上添加一个命令按钮（名为 cmd2） ,然后编写如下事件过程：Private Sub cmd2_Click()Dim pi As Single, n As Integerpi = 3.14n = Len(Str(pi) & Space(2) & “是本字符串长度 “)MsgBox nEnd Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_。A 11 B12 C13 D14答案: D 24、在窗体上添加一个
9、命令按钮（名为 cmd13）,然后编写如下事件过程：Private Sub cmd13_Click()Dim x As String, y As Stringx = “龙洞华美路中山大学新华学院法学院“y = “2006 级法学专业学生“MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9)End Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_。A龙洞华美路中山大学新华学院法学院 2006 级法学专业学生B中山大学新华学院法学院 2006 级法学专业学生C中山大学法学院 2006 级法学专业学生D中山大学法学院 2006 级法学专业答案: D 25、下
10、列程序段, 建立如图所示的数组 d（下标从 1 开始），填写所缺部分：1 2 3 4 5 62 1 2 3 4 53 2 1 2 3 44 3 2 1 2 35 4 3 2 1 26 5 4 3 2 1Access2010数据库基础与应用综合练习题 5 / 6Dim d(1 To 6, 1 To 6)For j = 1 To 6For k = 1 To 6d(j,k) = Abs( _ ) + 1 选答案Next kNext jA j Bj-k+1 Cj-k D2*j-k答案: C 26、下面 _是合法的变量名。A STR-NAME BCase CFOR_99 Dabc2006 E6A答案:
11、CD 27、在 VBA 中，对于 Sub (或 Function) 过程中的每一个形参, 可用于声明其参数传递方式的关键字包括_。A ByMeBByValCByRefDByVBAEBySub答案: BC 28、在窗体上添加一个命令按钮（名为 cmd），然后编写如下事件过程。单击该命令按钮，便将数组 p(6,8)中各个元素都赋予其对应的两个下标值平方之和，请完善程序。Private Sub cmd_Click()Dim p(6,8) As integer, i As integer, j As integerFor i=0 To 6For j=0 To 8p(i,j) = _ 选答案Next j
12、Next iEnd SubA. (i+j)2 B. i2+j C. i+j2 D. i2+j2答案: D 29、在窗体上已经建立 1 个文本框控件 txt1 和 1 个命令按钮控件 cmd1。请完善程序，使之完成以下操作：程序运行时，文本框上显示“VBA 程序设计” ，命令按钮的标题上显示“隐藏”；单击命令按钮时文本框消失；单击窗体时显示出文本框。Private Sub cmd1_Clic()txt1.Visible = FalseEnd SubPrivate Sub Form_Click()Access2010数据库基础与应用综合练习题 6 / 6txt1._ = True 选答案End S
13、ubPrivate Sub Form_Load()txt1.Value = “VBA 程序设计“txt1.Visible = Truecmd1.Caption = “隐藏“ End SubA. Enable B. Value C. Visible D. Caption答案: C 30、在窗体上已经建立 1 个标签控件 lab1 和 1 个命令按钮控件 cmd1。请完善程序，使之完成以下操作： 打开窗体后单击命令按钮，则通过输入对话框分别输入 3 个数值，然后求出其中最大的数，并将最大的数显示在标签 lab1 中。Private Sub cmd1_Click()Dim a As Single,
14、b As Single, c As SingleDim k As Singlea = Val(InputBox(“输入第一个数“)b = Val(InputBox(“输入第二个数“)c = Val(InputBox(“输入第三个数“)If ab Thenk = b Elsek = a End IfIf kc Thenk = c End If_ 选答案End SubA. lab1.Value = aB. lab1.Value = bC. lab1.Caption = cD. lab1.Caption = k答案: D 31、求 7 2 Mod 11 + 7 4 * 9 / 5 Mod 6 表达式的值是_。答案: 6
