Call Proc(x, y) Debug.Print x; y End Sub
Public Sub Proc(n As Integer, ByVal m As Integer) n = n Mod 10 m = m Mod 10 End Sub
打开窗体运行后，单击该命令按钮，则立即窗口中显示的内容是______。 A．2 32 B．12 3 C．2 2 D．12 32 答案:A
第52 题: (单选题, 1.5 分)
窗体中有一个名为 Command2 的命令按钮，Click 事件功能是：接收从键盘输入的 10 个大于 0 的不同整数，找出其中的最大值和对应的输入位置。要在______处填上适当语句，使程序可以完成指定的功能。 Private Sub Command2_Click( )
Dim num As Integer, maxm As Integer, maxn As Integer For i = 1 to 10
num = Val(InputBox(\请输入第 \& i & \个大于 0 的整数： \ If num > maxm Then maxm = num
maxn = ______ '填空处 End If Next i
MsgBox( \最大值为第 \个输入的 \End Sub
在上述程序代码中的填空处，需要选填的内容是________。
A．num B．maxm C．maxn D．i 答案: D
第53 题: (单选题, 1.5 分)
下列程序段,建立如图所示的数组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
A．j B．j-k+1 C．j-k D．2*j-k
答案: C
第54 题: (单选题, 1.5 分)
在窗体上已经建立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 = \程序设计\ txt1.Visible = True
cmd1.Caption = \隐藏\ End Sub
A. Enable B. Value C. Visible D. Caption 答案: C
第55 题: (单选题, 1.5 分)
DAO 对象模型采用分层结构，位于最顶层的对象是_______。
A．Errors B．Workspaces C．Users D．DBEngine 答案: D
第56 题: (单选题, 1.5 分)
为 DAO 对象变量赋值时，必须使用的关键字是_______。
A．Add B．Set C．And D．Or 答案: B
第57 题: (单选题, 1.5 分)
DAO 的 Database 对象的_______方法可以关闭一个已打开的 Database 对象. A．Open B．Recordset C．Close D．Delete 答案: C
第58 题: (单选题, 1.5 分)
ADO 的 Connection 对象的_______方法，可以打开数据源的连接。 A．Open B．Recordset C．Close D．Delete 答案:A
第59 题: (单选题, 1.5 分)
ADO 的 Recordset 对象的_______方法可用来新建记录。
A．Open B．AddNew C．Close D．Delete 答案: B
第60 题: (单选题, 1.5 分)
若要判断 ADO 的记录集对象 rst 是否已经到文件尾，则条件表达式是_______。 A．rst.BOF B．rst.EOF C．rst.OOF D．rst.FOF 答案: B
第61 题: (多选题,2 分)
下面______是合法的变量名。
A．X_yz99 B．123abc C．Loop D．X-Y E．S168_ 答案:A E
第62 题: (填空题, 4 分)
通过编程求出结果。
把 9786 表示为两个加数之和，使其中一个加数能被91整除，而另一个 加数能被87整除。请求出：在这两个加数中，能被91整除的加数等于多少？ <空1>____________________ 答案: Lower(Trim(GetFill(1)))=\第63 题: (填空题, 4 分)
通过编程求出结果。
求 S = 1/5 + 1/10 + 1/15 + 1/20 + 1/25 + … + 1/(5*n) + … 的前 n 项之和，
当 S 第一次大于或等于 1.4 时终止计算，此时项数 n 为_____。 <空1>____________________ 答案: Lower(Trim(GetFill(1)))=\
6级《数据库基础与应用》期末综合练习题 (共有 33 题; 满分: 36 分; 总时; 0 分钟)
第1 题: (单选题, 1 分)
在 Access2010 中的 VBA 过程里，要运行宏可以使用 DoCmd 对象的
______方法。 A．Open B．RunMacro C．Close D．Query [A]选A [B]选B [C]选C [D]选D 答案: B
第2 题: (单选题, 1 分)
在宏中，OpenReport 操作可用来打开指定的_______。 A．查询 B．状态栏 C． 窗体 D．报表 [A]选A [B]选B [C]选C [D]选D 答案: D
第3 题: (单选题, 1 分)
关于宏的执行，以下说法不正确的是_______。
A．在“导航窗格”，选择“宏”对象列表中的某个宏名并双击， 可以直接运行该宏中的第一个子宏的所有宏操作
B．在“导航窗格”，选择“宏”对象列表中的某个宏名并双击， 可以直接运行该宏中的第二个子宏的所有宏操作 C．可以在一个宏中运行另一个宏 D．在一个宏中可以含有IF逻辑块 [A]选A [B]选B [C]选C [D]选D 答案: B
第4 题: (单选题, 1 分)
在宏中，用于显示所有记录的宏命令是_______。 A．MsgboxAllRecords B．ShowAllRecords C．SetProperty D．SaveRecords [A]选A [B]选B [C]选C [D]选D 答案: B
第5 题: (单选题, 1 分)
在 VBA 中，表达式 (5^2 Mod 8) >= 4 的值是_______。 A．True B．False C．And [A]选A [B]选B [C]选C
D. Or