《数据库基础及应用》期末练习试题1

1、1） 打开某个 Access 数据库，创建一个数据访问页，在页”对象列表框中所列岀的是数 据访问页的央捷方式。2） 在 Access 中，当对数据访问页设置分组字段时，展开控件的作用是显示或隐藏每组中 的 记录 。3） 在宏的设计视图窗口中，下半部分是操作参数区_。4） 在宏中，OpenReport 操作可用来打开指定的_ 报表 。5） 在 Access 中的 VBA 过程里，要运行宏可以使用 DoCmd 对象的 RunMacro 方法。6）关于宏的执行，以下说法不正确的是在打开数据库时，不会自动运行 AutoExec 宏一。7） 在宏中，用于显示所有记录的宏命令是_ ShowAllRecor

2、ds _ 。8） 在 VBA 中，表达式（52 Mod 8） = 4 的值是_False_ 。9） 在 VBA 中，表达式 234二 6 的值是_ False_ 。10）在 VBA 中，表达式 Not （Not （8-35）的值是_False_。11）在 VBA 中，表达式 33/216 And （1653）的值是_False_。12）在 VBA 中，声明函数过程的关键字是_ Function _ 。13）对 VBA 中的逻辑值进行算术运算时，True 值被当做-1, False 当做_0_ 。14）在 VBA 中，类型说明符#表示的数据类型是_双精度型。15）下列语句中，泄义窗体的加载事件过

3、程的头语句是_ Sub Form_Load（）_。16）现有一个已经建好的窗体，窗体中有一个命令按钮，单击此按钮，将打开“产品数量统计”报表，如果采用 VBA 代码完成，下而语句正确的是_ Docmd. OpenReport 产品数量统计_17）表达式 IIf（0, 60, 100）的结果是_100_ o18）在 VBA 中，变疑声明语句“Dim a#, b AS integer中的变呈：a 的类型是一双精度型19）在 VBA 中，“ Dim a（3, 3） AS Bollean”语句定义了一个数组，该数组中的全部元素都初始化为_False_ 。20）在 VBA 某个模块中，有如下声明语句Di

4、m a （6, 10） AS integer那么数组 a（6, 10）总共有_77个元素。21）以下 VBA 程序段运行后，变量 j 的值是_20k = 10J = 0Doj 二 j +1Loop Until k 2022) 以下 VBA 程序段运行后，变量 j 的值是良好。y = 89j =不及格Do Wh 订 e y 60j = IIf(y 70,及格，IIf(y =2MsgBox消息是北京” MsgBox消息是“上海”MsgBox消息是“广州”现设置宏 h 为窗体“sysu”上冬为“cmdl”命令按钮的单击事件属性，打开窗体 运行后，在窗体上名为“txtl”的文本框内输入数字 1,然后单

5、击命令按钮 cmdl, 9A. 屏幕会弹出一个消息框，显示消息“北京”B. 屏幕会先后弹出两个消息框，分别显示消息“北京”和“上海”C. 屏幕会先后弹出三个消息框，分别显示消息北京”、“上海”、“广州”D. 屏幕会弹出一个消息框，显示消息“广州”答案：D24) 以下 VBA 代码程序运行结朿后，变量 a 的值是_142a=0b 二 101Dob=b-20a=a+bLoop While b80以下 VBA 代码程序运行结束后，数组元素 a(12)的值是_132。Dim a 仃 2) As Long, i As Longi 二 0Do Until i12a(i)=i*2 - ii=i+lLoop2

6、5) 假定有如卜-的 Function 过程：Function ppfun(x As Single, y As Single)ppfun=x*3-y*2End Function在窗体上添加一个命令按钮(名为 cmdlO),然后编写如下事件过程：Private Sub cmdlO_Click()sysuDim a As Single, b As Singlea = 5b = 4MsgBox ppfun (a, b) mod 50End Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_9_。27)在窗体上添加一个命令按钮(名为 cmdl2)，然后编写如下事件过程:Private Sub

7、cmdl2_Click()Dim pi As Single, n As Integerpi = 3. 14n = Len(Str(pi) & Space(2) & 是本字符串长度)MsgBox nEnd Sub打开窗体运行后，单击命令按钮，消息框中的输岀内容是4_ “28)下列程序段,建立如图所示的数组 d (下标从 1 开始)，填写所缺部分:1 2345 62 1234032123 44 321235 4321 265432 1Dimd(l To6,1 To 6)For j 二1 To 6For k = 1 To 6d(j,k)二 Abs( _j-k_ ) + 1Next k

8、Next j29) 在 VBA 中，对于 Sub (或 Function)过程中的每一个形参，可用于声明其参数传递方式的关键字包括_ 。A. ByMeB. ByVaiC. ByRefD. ByVBA答案：BC第 33 题30) 在窗体上添加一个命令按钮(名为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 _8_P(i

9、,j)二厂 2+j2Next jNext iEnd Sub31) 在窗体上已经建立 1 个文本框控件 txtl 和 1 个命令按钮控件 cmdl。请完善程序，使之完 成以下操作：程序运行时，文本框上显示“VBA 程序设计”，命令按钮的标题上显示“隐藏”：单击命令按钮时文本框消失：单击窗体时显示出文本框。Private Sub _ cmdl_Click ()txtl. Visible = FalseEnd SubPrivate Sub Form_Click()txtl. Visible = JTruEnd SubPrivate Sub Form_Load 0txtl. Value = VBA 程序设计txtl V isible = Truecmdl. _ Caption,二”隐藏End Sub32) 在窗体上已经建立 1 个标签控件 labl 和 1 个命令按钮控件 cmdl。请完善程序，使之完成 以下操作：打开窗体后单击命令按钮,则通过输入对话框分别输入 3 个数值，然后求岀其中最大的数, 并将最大的数显示在标签 labl 中。Private Sub cmdl_Click()Dim a As Single, b As Single, c As SingleDim k As Si