最新access《数据库基础与应用》期末综合练习题.doc
精品资料access数据库基础与应用期末综合练习题.Access2010数据库基础与应用期末综合练习题(共有 33 题; 满分: 36 分; 总时; 0 分钟)第1 题: (单选题, 1 分) 在 Access2010 中的 VBA 过程里，要运行宏可以使用 DoCmd 对象的 _方法。 AOpen BRunMacro CClose DQueryA选AB选BC选CD选D答案: B 第2 题: (单选题, 1 分) 在宏中，OpenReport 操作可用来打开指定的_。 A查询 B状态栏 C 窗体 D报表A选AB选BC选CD选D答案: D 第3 题: (单选题, 1 分) 关于宏的执行，以下说法不正确的是_。 A在“导航窗格”，选择“宏”对象列表中的某个宏名并双击，可以直接运行该宏中的第一个子宏的所有宏操作 B在“导航窗格”，选择“宏”对象列表中的某个宏名并双击，可以直接运行该宏中的第二个子宏的所有宏操作 C可以在一个宏中运行另一个宏 D在一个宏中可以含有IF逻辑块A选AB选BC选CD选D答案: B 第4 题: (单选题, 1 分)在宏中，用于显示所有记录的宏命令是_。 AMsgboxAllRecords BShowAllRecords CSetProperty DSaveRecordsA选AB选BC选CD选D答案: B 第5 题: (单选题, 1 分) 在 VBA 中，表达式 (52 Mod 8) >= 4 的值是_。 ATrue BFalse CAnd D. OrA选AB选BC选CD选D答案: B 第6 题: (单选题, 1 分) 表达式 IIf(23 5.5 <= 3 Or 5 >= 6, 68, 176) 的结果是_。 A5 B6 C68 D176 注意：执行整除之前，要先把除数四舍五入。 请另外试试表达式 IIf(23 5.4 <= 3 Or 5 >= 6, 68, 176) 的结果。A选AB选BC选CD选D答案: C 第7 题: (单选题, 1 分)执行下列程序段后，变量 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. 275A选AB选BC选CD选D答案: B 第8 题: (单选题, 1 分)设 x=9，执行下列程序段后，变量 t 的值是_。 y = x4 +24 If y<>30 Then x = x + y t = x Mod 12 A. 1 B. 2 C. 3 D. 4A选AB选BC选CD选D答案: C 第9 题: (单选题, 1 分) 在 VBA 中，声明函数过程的关键字是_。 ADim BConst CFunction DSubA选AB选BC选CD选D答案: C 第10 题: (单选题, 1 分) 对 VBA 中的逻辑值进行算术运算时，True 值被当做 -1，False 当做_。 A1 B2 C0 D3A选AB选BC选CD选D答案: C 第11 题: (单选题, 1 分) 在 VBA 中，类型说明符 # 表示的数据类型是_。 A整型 B长整型 C单精度型 D双精度A选AB选BC选CD选D答案: D 第12 题: (单选题, 1 分)下列语句中，定义窗体的加载事件过程的头语句是_。 APrivate Sub Form_Chang() BPrivate Sub Form_LostFocus() CPrivate Sub Form_Load() DPrivate Sub Form_Open()A选AB选BC选CD选D答案: C 第13 题: (单选题, 1 分) 现有一个已经建好的窗体，窗体中有一个命令按钮，单击此按钮，将打开“产品数量统计”报表，如果采用VBA 代码完成，下面语句正确的是_。 ADocmd.OpenForm "产品数量统计" BDocmd.OpenView "产品数量统计" CDocmd.OpenTable "产品数量统计" DDocmd.OpenReport "产品数量统计"A选AB选BC选CD选D答案: D 第14 题: (单选题, 1 分) 表达式 IIf(7 Mod 5 > 3, 60, IIf(23 > 28, 80, 100) 的运算结果是_。 A60 B80 C100 D160A选AB选BC选CD选D答案: C 第15 题: (单选题, 1 分) 在 VBA 中，变量声明语句“ Dim a!, b AS integer”中的变量 a 的类型是_。 A整型 B单精度型 C长整型 D变体型A选AB选BC选CD选D答案: B 第16 题: (单选题, 1 分) 在 VBA 中，“ Dim a(3,3) AS Boolean”语句定义了一个数组，该数组中的全部元素都初始化为_。 ATrue BFalse C-1 D1A选AB选BC选CD选D答案: B 第17 题: (单选题, 1 分) 在 VBA 某个模块中，有如下声明语句 Dim a(6,10) AS integer那么数组 a(6,10) 总共有_个元素。 A16 B60 C70 D77A选AB选BC选CD选D答案: D 第18 题: (单选题, 1 分) 以下 VBA 程序段运行后，变量 j 的值是_。 k = 10 j = 0 Do k = k + 10 j = j + 1 Loop Until k > 20 A1 B2 C4 D10A选AB选BC选CD选D答案: B 第19 题: (单选题, 1 分) 以下 VBA 程序段运行后，变量 j 的值是_。 y = 89 j = "不及格" Do While y > 60 j = IIf(y < 70, "及格", IIf(y < 90, "良好", "优秀") y = y - 50 Loop A"不及格" B"及格" C"良好" D"优秀"A选AB选BC选CD选D答案: C 第20 题: (单选题, 1 分) 以下 VBA 代码程序运行结束后，变量 a 的值是_。 a=0 b=101 Do b=b-20 a=a+b Loop While b>80 A60 B140 C142 D160 A选AB选BC选CD选D答案: C 第21 题: (单选题, 1 分)以下 VBA 代码程序运行结束后，数组元素 a(12) 的值是_。 Dim a(12) As Long, i As Long i=0 Do Until i>12 a(i)=i2 - i i=i+1 Loop A1 B128 C132 D144A选AB选BC选CD选D答案: C 第22 题: (单选题, 1 分)假定有如下的 Function 过程： Function ppfun(x As Single, y As Single) ppfun=x3-y2 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打开窗体运行后，单击命令按钮，消息框中的输出内容是_。 A50 B25 C9 D109A选AB选BC选CD选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打开窗体运行后，单击命令按钮，消息框中的输出内容是_。 A11 B12 C13 D14A选AB选BC选CD选D答案: D 第24 题: (单选题, 1 分)在窗体上添加一个命令按钮（名为 cmd13）,然后编写如下事件过程： Private Sub cmd13_Click() Dim x As String, y As String x = "龙洞华美路中山大学新华学院法学院" y = "2006级法学专业学生" MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9) End Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_。 A龙洞华美路中山大学新华学院法学院2006级法学专业学生 B中山大学新华学院法学院2006级法学专业学生 C中山大学法学院2006级法学专业学生 D中山大学法学院2006级法学专业A选AB选BC选CD选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 Aj Bj-k+1 Cj-k D2*j-kA选AB选BC选CD选D答案: C 第26 题: (多选题, 1 分)下面_是合法的变量名。 ASTR-NAME BCase CFOR_99 Dabc2006 E6AA选AB选BC选CD选DE选E答案: CD 第27 题: (多选题, 1 分) 在 VBA 中，对于 Sub (或 Function) 过程中的每一个形参,可用于声明其参数传递方式的关键字包括_。 AByMe BByVal CByRef DByVBA EBySubA选AB选BC选CD选DE选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. i2+j C. i+j2 D. i2+j2A选AB选BC选CD选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 = "VBA程序设计" txt1.Visible = True cmd1.Caption = "隐藏" End Sub A. Enable B. Value C. Visible D. CaptionA选AB选BC选CD选D答案: C 第30 题: (单选题, 1 分) 在窗体上已经建立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<b Then k = b Else k = a End If If k<c Then k = c End If _ '选答案 End Sub A. lab1.Value = a B. lab1.Value = b C. lab1.Caption = c D. lab1.Caption = kA选AB选BC选CD选D答案: D 第31 题: (填空题, 2 分) 7 2 Mod 11 + 7 4 * 9 / 5 Mod 6 上述表达式的值是_。<空1>_ 答案:Lower(Trim(GetFill(1)="6"第32 题: (填空题, 2 分) 通过编程求出结果。 把 9786 表示为两个加数之和，使其中一个加数能被91整除，而另一个加数能被87整除。请求出：在这两个加数中，能被91整除的加数等于多少？<空1>_ 答案:能被91整除的加数="4914"程序代码： Dim i%, j% For i = 91 To 9786 Step 91 '步长为 91，故 i 肯定能被91整除 For j = 87 To 9786 Step 87 '步长为 87，故 j 肯定能被87整除 If i + j = 9786 Then '当找到了加数时，使用消息框输出结果 msgbox "能被91整除的加数是" & i Exit For '找到了加数，退出本循环 End If Next j Next i第33 题: (填空题, 2 分) 通过编程求出结果。 求 S = 1/5 + 1/10 + 1/15 + 1/20 + 1/25 + + 1/(5*n) + 的前 n 项之和，当 S 第一次大于或等于 1.4 时终止计算，此时项数 n 为_。<空1>_ 答案:Lower(Trim(GetFill(1)="616"程序代码： s = 0 's 用作累加器，初值置 0 n=0 While s<1.4 n=n+1 s = s + 1/(n*5)Wend Msgbox n
