A ．54 B．40
C． 15
D．13
52．设 x=\，执行下列程序段后，变量
n = InStr(x,\ t = Len(y) A. 6
t 的值是 __________ 。
y = Left(x,n-1) & \
B. 7
C. 8
B. 0 D. 9 53．“ X 是小于 100 的正数”， VBA 逻辑表达式应表示为 __________。 A. X>0 And <100 C. X>0 And X<100 54．以下 VBA j=0 n=0 DoCE j=j+10 n=n+1 A ．1 A. x(y + z) 程序段运行后，变量 n 的值是 ___________。 Loop Until j>10 B． 2 C． 4 B. 7x + 8y/2 D. -x^2-1 D． 10 __________ 。 55．在 VBA 中，下列表达式中格式正确的是 C. (x+y) ≥ 6 t = \计算机程序设计 \ A. \设计程计算机 \ C. \设计程序计算机 57．有三个关系 R 、S 和 T 56．下列语句执行后， s 的值是 __________ 。 s = Right(t, 2) + Mid(t, 4, 1) + Left(t, 3) B. \计算机程序设计 \ D. \设计程计算 \ 如下： R A m n 由关系 R A．交 B．笛卡儿积 C．并 D．除 S B 1 T A m n B 1 1 C 3 C 3 3 和 S 通过运算得到关系 T ，则所使用的运算是 ________。 58． 在窗体上已经建立 1 个文本框 txt1, 以及 3 个命令按钮 cmd1、cmd2 和 cmd3。请选答 案来完善程序，使之完成以下操作： 打开窗体时，文本框 txt1 上显示“诚信应考，绝不作弊 ! ”；单击命令按钮 cmd1 时，使 txt1 文本框不可用； 单击命令按钮 cmd2 时，使 txt1 文本框可用 , 文本框 txt1 上显示“警示：考试作弊，不授予学士学位 ! ”； 单击命令按钮 cmd3 时，关闭本窗体。 《Access2010 数据库基础与应用》期末考试题（ A 卷）（含答案）第 6 页/总 8 页 Private Sub Form_Load() txt1.Value = \ 诚信应考，绝不作弊 !\ End Sub Private Sub cmd1_Click() ____________ ‘选答案来完善程序 End Sub Private Sub cmd2_Click() txt1 = \ 警示：考试作弊，不授予学士学位 !\ txt1.Enabled = True End Sub Private Sub cmd3_Click() DoCmd.Close End Sub 请从下列选项中选择答案来完善上述程序 A. txt1.Enabled = True B. text1.Value = False C. txt1.Enabled = False D. txt1.Name = True 59．在窗体上已经建立 1 个文本框控件 text1 和 1 个命令按钮控件 cmd1。请选答案来完善 程序，使之完成以下操作： 打开窗体时，文本框上显示“ VBA程序设计”； 单击命令按钮 cmd1 时，文本框上显示“ Access 数据库”；单击窗体时清除文本框中的内容 ( 使之为空值 ) 。 Private Sub Form_Load() text1.Value = \ 程序设计 \ End Sub Private Sub _________( ) ‘选答案来完善程序 text1.Value = \ 数据库 \ End Sub Private Sub Form_Click() text1.Value = \ End Sub 请从下列选项中选择答案来完善上述程序 A. command1_Click B. cmd1_Click C. Form_Load 60．在窗体上已经建立了一个文本框 Private Sub Cmd1_Click() a = 10: b = 20 Call MySub(a, c) Call MySub(b, d) Txt1.Value = c + d End Sub Sub MySub(x, y) y = x Mod 7 + 1 End Sub 《Access2010 数据库基础与应用》期末考试题（ A 卷）（含答案）第 7 页/总 8 页 D. Form_Click Txt1 和一个命令按钮 Cmd1，打开窗体后单击命令按钮，则在 文本框 Txt1 中显示的内容是 __________。 A.9 B.11 C.13 D.15 二、多选择题（ 答案要填写在答题卡上 ） 61．在 VBA 中，属于逻辑运算符的是 A ． + B ．Not C．Or 62． VBA 的错误处理主要使用 A ． On Error Resume Next B ．On Error 语句标号 C．On Error GoTo 0 D． On Error GoTo 语句标号 63． 数据表中有一个“姓名”字段，查找姓名最后二个字为“小明”的记录的条件是 __________ 。 D ．And On Error 语句结构。 On Error 语句的形式有 __________ 。 ___________。 A． Left([ 姓名 ],2)=\ 小明 \ B． Like \小明 \ C． Like \ 小明 \ D． Like \ 小明 *\ E． Right([ 姓名 ],2)=\ 小明 \ 64．在 VBA 中，下面 ___________是合法的变量名。 A ． intx_99 B ． for C．dim_168_ D． 123abc 65．下列函数中，其值为字符串 A ． Mid(\ B ．String(2, \ C．Left(\ D． Val(\ \ 的是 __________ 。 《Access2010 数据库基础与应用》期末考试题（ A 卷）（含答案）第 8 页/总 8 页