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

1）打开某个 Access 数据库，创建一个数据访问页，在“页”对象列表框中所列出的是数据访问页的_快捷方式____。

2）在 Access 中，当对数据访问页设置分组字段时，展开控件的作用是显示或隐藏每组中的__记录___。

3）在宏的设计视图窗口中，下半部分是__操作参数区_____。

4）在宏中，OpenReport 操作可用来打开指定的___报表____。

5）在 Access 中的 VBA 过程里，要运行宏可以使用 DoCmd 对象的 __ RunMacro ____方法。

6）关于宏的执行，以下说法不正确的是在打开数据库时，不会自动运行 AutoExec 宏_______。

7）在宏中，用于显示所有记录的宏命令是__ ShowAllRecords _____。

8）在 VBA 中，表达式 (5^2 Mod 8) >= 4 的值是__False_____。

9）在 VBA 中，表达式 23\4<=3 Or 5>=6 的值是__ False_____。

10）在 VBA 中，表达式 Not (Not (8-3>5)) 的值是__False_____。

11）在 VBA 中，表达式 33/2>16 And (16\5>3) 的值是__False_____。

12）在 VBA 中，声明函数过程的关键字是__ Function _____。

13）对 VBA 中的逻辑值进行算术运算时，True 值被当做 -1，False 当做__0_____。

14）在 VBA 中，类型说明符 # 表示的数据类型是__双精度型____。

15）下列语句中，定义窗体的加载事件过程的头语句是_ Sub Form_Load()_____。

16）现有一个已经建好的窗体，窗体中有一个命令按钮，单击此按钮，将打开“产品数量统计”报表，如果采用VBA 代码完成，下面语句正确的是__ Docmd.OpenReport "产品数量统计"____。

17）表达式 IIf(0, 60, 100) 的结果是__100____。

18）在 VBA 中，变量声明语句“ Dim a#, b AS integer”中的变量 a 的类型是_双精度型_____。

19）在 VBA 中，“ Dim a(3,3) AS Bollean”语句定义了一个数组，该数组中的全部元素都初始化为_False_____。

20）在 VBA 某个模块中，有如下声明语句Dim a(6,10) AS integer那么数组 a(6,10) 总共有__77____个元素。

21）以下 VBA 程序段运行后，变量 j 的值是__2____。

k = 10j = 0Dok = k + 10j = j + 1Loop Until k > 2022）以下 VBA 程序段运行后，变量 j 的值是__"良好"____。

y = 89j = "不及格"Do While y > 60j = IIf(y < 70, "及格", IIf(y < 90, "良好", "优秀"))y = y - 50Loop23）以下是宏 h 的操作序列设计：条件操作操作参数[txt1]>=2 MsgBox 消息是“北京”... MsgBox 消息是“上海”MsgBox 消息是“广州”现设置宏 h 为窗体“sysu”上名为“cmd1”命令按钮的单击事件属性，打开窗体“sysu”运行后，在窗体上名为“txt1”的文本框内输入数字1，然后单击命令按钮 cmd1，则A．屏幕会弹出一个消息框，显示消息“北京”B．屏幕会先后弹出两个消息框，分别显示消息“北京”和“上海”C．屏幕会先后弹出三个消息框，分别显示消息“北京”、“上海”、“广州”D．屏幕会弹出一个消息框，显示消息“广州”答案：D24）以下 VBA 代码程序运行结束后，变量 a 的值是__142____。

a=0b=101Dob=b-20a=a+bLoop While b>80以下 VBA 代码程序运行结束后，数组元素 a(12) 的值是__132____。

Dim a(12) As Long, i As Longi=0Do Until i>12a(i)=i^2 - ii=i+1Loop25）假定有如下的 Function 过程：Function ppfun(x As Single, y As Single)ppfun=x^3-y^2End Function在窗体上添加一个命令按钮（名为 cmd10）,然后编写如下事件过程：Private Sub cmd10_Click()Dim a As Single, b As Singlea = 5b = 4MsgBox ppfun(a,b) mod 50End Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是__9___。

27）在窗体上添加一个命令按钮（名为 cmd12）,然后编写如下事件过程：Private Sub cmd12_Click()Dim pi As Single, n As Integerpi = 3.14n = Len(Str(pi) & Space(2) & "是本字符串长度")MsgBox nEnd Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_14_____。

28）下列程序段,建立如图所示的数组d（下标从1开始），填写所缺部分：1 2 3 4 5 62 1 234 53 2 1 2 3 44 3 2 1 2 35 4 3 2 1 26 5 4 3 2 1Dim d(1 To 6, 1 To 6)For j = 1 To 6For k = 1 To 6d(j,k) = Abs( _j-k__ ) + 1Next kNext j29）在 VBA 中，对于 Sub (或 Function) 过程中的每一个形参,可用于声明其参数传递方式的关键字包括_______。

A．ByMe B．ByValC．ByRef D．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,j) = __ i^2+j^2Next jNext iEnd Sub31)在窗体上已经建立1个文本框控件txt1和1个命令按钮控件cmd1。

请完善程序，使之完成以下操作：程序运行时，文本框上显示“VBA程序设计”，命令按钮的标题上显示“隐藏”；单击命令按钮时文本框消失；单击窗体时显示出文本框。

Private Sub ___ cmd1_Click __()txt1.Visible = FalseEnd SubPrivate Sub Form_Click()txt1.Visible = __True___End SubPrivate Sub Form_Load()txt1.Value = "VBA程序设计"txt1.Visible = Truecmd1.__ Caption __ = "隐藏"End Sub32)在窗体上已经建立1个标签控件lab1和1个命令按钮控件cmd1。

请完善程序，使之完成以下操作：打开窗体后单击命令按钮，则通过输入对话框分别输入3个数值，然后求出其中最大的数，并将最大的数显示在标签lab1中。

Private Sub cmd1_Click()Dim a As Single, b As Single, c As SingleDim k As Singlea = Val(InputBox("输入第一个数"))b = Val(InputBox("输入第二个数"))c = Val(InputBox("输入第三个数"))If a<b Thenk = bElse__k=a__End IfIf ___k<c__ Thenk = cEnd If__ lab1.Caption = k __End Sub通过编程求出结果。

1) 把9786表示为两个加数之和，使其中一个加数能被91整除，而另一个加数能被87整除。

请求出：在这两个加数中，能被91整除的加数等于多少？答案：4914Dim x1, x2 As Integers = ""For x1 = 91 To 9786 Step 91For x2 = 87 To 9786 Step 87If x2 + x1 = 9786 Then s = s & Str(x1)Next x2Next x1MsgBox "该数是:" & s2) 求 S = 1/5 + 1/10 + 1/15 + 1/20 + 1/25 + … + 1/(5*n) + …的前n项之和，当S 第一次大于或等于1.4时终止计算，此时项数n为_____。

答案：616s = 0n = 0Don = n + 1s = s + 1 / (5 * n)If s >= 1.4 Then Exit DoLoopMsgBox ("所求的n是: " & n。