Access2010《数据库基础及应用》

Access2010《数据库基础及应用》网上作业（6-8章） (共有 63 题; 满分: 100 分; 总时; 0 分钟)

第1 题: (单选题, 1.5 分)

OpenForm 操作可用来打开_______。

A．报表 B．窗体 C．数据库管理系统 D．状态栏 答案: B

第2 题: (单选题, 1.5 分)

假如要显示表的所有记录，可通过_______操作。 A．AllRecords B．ShowRecords C．ShowAllRecords D．ShowAll 答案: C

第3 题: (单选题, 1.5 分)

要搜索记录可使用_______操作。

A．PrintRecord B．ShowRecord C．IndexRecord D．FindRecord 答案: D

第4 题: (单选题, 1.5 分)

宏是由一个或多个_______组成的集合。

A．数值 B．操作 C．记录 D．报表 答案: B

第5 题: (单选题, 1.5 分)

直接运行包含有子宏的宏时，只运行该宏中的_______所包含的宏操作。 A．最后一个子宏 B．第一个子宏 C．第二个子宏 D．第三个子宏 答案: B

第6 题: (单选题, 1.5 分)

运行宏中的某个子宏时，要用_______格式来指定宏名。 A．子宏名.宏名 B．子宏名 C．宏名.子宏名 D．宏名.宏名 答案: C

第7 题: (单选题, 1.5 分)

关于 AutoExec 宏的说法正确的是_______。

A．在每次打开其所在的数据库时，都会自动运行的宏 B．在每次启动 Access 时, 都会自动运行的宏

C．在每次重新启动 Windows 时，都会自动启动的宏 D．AutoExec 和其他宏一样，没什么区别 答案:A

第8 题: (单选题, 1.5 分)

关于宏的执行，以下说法不正确的是_______。 A．在一个宏中可以运行另一个宏

B．在打开数据库时，可以自动运行 AutoExec 宏

C．在“导航”窗格，选择“宏”对象列表中的宏名并双击，可以直接运行含有子宏的该宏中的第一个子宏中的所有宏操作

D．在“导航”窗格，选择“宏”对象列表中的宏名并双击，可以直接运行含有子宏的该宏中的所有宏操作 答案: D

第9 题: (单选题, 1.5 分)

为窗体或报表上的控件设置属性值的宏操作是_______。 A．AutoKeys B．MessageBox C．SetProperty D．Beep 答案: C

第10 题: (单选题, 1.5 分)

在 Access2010 中，关闭窗口是使用_______操作。 A．Close B．QuitWindow C．CloseWindow D．ExitWindow 答案: C

第11 题: (单选题, 1.5 分)

在 VBA 中，设 a=2，b=3，则表达式 a>b 的值是_______。 A．True B．False C．And D. Or 答案: B

第12 题: (单选题, 1.5 分)

在 VBA 中，表达式 5^2 Mod 9 >= 3*2 的值是_______。 A．True B．False C．And D. Or 答案:A

第13 题: (单选题, 1.5 分)

在 VBA 中，表达式 9\\2<=4 Or 5<=4 的值是_______。 A．True B．False C．And D. Or 答案:A

第14 题: (单选题, 1.5 分)

在 VBA 中，表达式 Not (168<=168) 的值是_______。 A．True B．False C．And D. Or 答案: B

第15 题: (单选题, 1.5 分)

在 VBA 中，表达式 17\\7>=2 And 10\\3=3 的值是_______。 A．True B．False C．And D. Or 答案:A

第16 题: (单选题, 1.5 分)

在 VBA 中，表达式 2^3>=7 And (15/4>3) 的值是_______。 A．True B．False C．And D. Or 答案:A

第17 题: (单选题, 1.5 分)

在 VBA 中，For…Next 循环是一种_______的循环. A．不可确定循环次数 B．可确定循环次数

C．无限循环次数

D．确定循环10次以下 答案: B

第18 题: (单选题, 1.5 分)

模块是存储在一个单元中的 VBA _______的集合。

A．记录 B．报表 C．程序代码 D．窗体 答案: C

第19 题: (单选题, 1.5 分)

过程有两种：Sub 子过程和_______。

A．主过程 B．父过程 C．函数过程 D．调用过程 答案: C

第20 题: (单选题, 1.5 分)

为了增强程序的可读性，可以在程序中加入注释。方法是使用一个______，也可以使用 Rem。

A．英文双引号 \ B．英文单引号 ' C．英文#号 D．英文$号 答案: B

第21 题: (单选题, 1.5 分)

下列关于文本框的“更新前”事件的叙述中，正确的是_______。 A．在文本框中更改的数据得到更新之后发生的事件 B．在文本框中更改的数据得到更新之前发生的事件 C．当文本框接收到焦点时发生的事件 D．当文本框失去了焦点时发生的事件 答案: B

第22 题: (单选题, 1.5 分)

在 VBA 中，变量的作用域分为三个层次：分别是局部变量、全局变量和_______。 A．数据库级变量 B．表级变量 C．模块级变量 D．字段级变量 答案: C

第23 题: (单选题, 1.5 分)

Nz 函数是用于处理_______值时的情况。

A．Not B．Null C．空格 D．\答案: B

第24 题: (单选题, 1.5 分)

VBE 属性窗口提供了“按字母序”和_______两种查看方式。

A．按分类序 B．按数值序 C．按大小序 D．按小大序 答案:A

第25 题: (单选题, 1.5 分)

VBA 的错误处理主要使用_______语句结构。

A．In Error B．On Error C．Of Error D．For Error 答案: B

第26 题: (单选题, 1.5 分)

在 VBA 代码中，一行可以写多个语句，每两个语句之间要用英文的_______分隔开。

A．！ B． ： C．# D．/ 答案: B

第27 题: (单选题, 1.5 分)

在 VBA 中，通过设置_______，当运行时，可以挂起代码。

A．出口点 B．断点 C．删除点 D．进入点 答案: B

第28 题: (单选题, 1.5 分)

窗体模块和报表模块都属于_______。

A．查询对象 B．表对象 C．页 D．类模块 答案: D

第29 题: (单选题, 1.5 分)

在 VBA 中，声明符号常量的关键字是_______。

A．Dim B．Const C．% D．# 答案: B

第30 题: (单选题, 1.5 分)

在 VBA 中，有 Sub 过程和 Function 过程，其中 Function 过程将返回_______函数值。

A．一个 B．二个 C．三个 D．多个 答案:A

第31 题: (单选题, 1.5 分)

在 VBA 中，指定过程参数的传递方式为传值的是_______。

A．ByRef B．ByVal C．ByStr D．ByVhr 答案: B

第32 题: (单选题, 1.5 分)

在 VBA 中，一个表达式中同时含有算术运算符、关系运算符和逻缉运算符，且不含有圆括号()，其运算次序是_______。

A．先运算关系运算符，其次是算术运算符，最后是逻缉运算符 B．先运算算术运算符，其次是关系运算符，最后是逻缉运算符 C．先运算逻缉运算符，其次是关系运算符，最后是算术运算符 D．先运算逻缉运算符，其次是算术运算符，最后是关系运算符 答案: B

第33 题: (单选题, 1.5 分)

VBA 中的逻辑值进行算术运算时，True 值被当做_______，False 当做 0。 A．1 B．-1 C．10 D．-10 答案：B 答案: B

第34 题: (单选题, 1.5 分)

在 VBA 中，类型说明符______表示的类型是整型。

A．$ B．% C．# D．\答案: B

第35 题: (单选题, 1.5 分)

变量名的长度不可以超过______个字符。

A．32 B．48 C．128 D．255 答案: D

第36 题: (单选题, 1.5 分)

日期型数据应该在数据的______括起来。 A．前后各用一个双引号 B．前后各用一人单引号 C．前后各用一个圆括号 D．前后各用一个“#”号 答案: D

第37 题: (单选题, 1.5 分)

下面______是合法的字符常量。

A．ABC$ B．\ C．ABC 答案: B

第38 题: (单选题, 1.5 分)

下列语句中，定义窗体单击事件的头语句是______。 A．Private Sub Form_Dbclick() B．Private Sub Text_Dbclick() C．Private Sub Form_Click() D．Private Sub Text_Click() 答案: C

第39 题: (单选题, 1.5 分)

下面正确的赋值语句是______。

A．X+Y=30 B．Y^2=R*R C．Y=X+30 D．3Y=X 答案: C

第40 题: (单选题, 1.5 分)

执行下列程序段后，变量 t 的值是_____。

s = \全国计算机等级考试二级VFP语言程序设计\

D．ABC' n = InStr(s, \

z = Left(s, n - 3) & \ t = Len(z)

A. 15 B. 18 C. 19 D. 20 答案: B

第41 题: (单选题, 1.5 分)

程序的三种基本结构是______。

A．Do…Loop 结构、Do…Loop While 结构和 For…Next 结构 B．子程序结构、自定义函数结构 C．顺序结构、选择结构和循环结构 D．单行结构、多行结构和多分支结构 答案: C

第42 题: (单选题, 1.5 分)

表达式 IIf(2^5 Mod 7 > 7, 20, 30) 的结果是______。 A．10 B．20 C．30 D．25 答案: C

第43 题: (单选题, 1.5 分)

在 VBA 中用实际参数 a 和 b，调用过程 area(m, n)，正确形式是______。 A．area m, n

B．call area(a, b) C．call area(m, n) D．call area a, b 答案: B

第44 题: (单选题, 1.5 分)

变量声明语句 Dim a 表示变量是______。

A．双精度型 B．整型 C．长整型 D．变体型 答案: D

第45 题: (单选题, 1.5 分)

能够触发命令按钮的 MouseDown 事件的操作是______。 A．在命令按钮上按下鼠标

B．拖动窗体

C．鼠标滑过命令按钮 D．按下键盘上的某个键 答案:A

第46 题: (单选题, 1.5 分)

如果 X 是一个正的实数，保留两位小数、将千分位四舍五入的表达式是______。 A．0.01*Int(X+0.05)

B．0.01*Int(100*(X+0.005)) C．0.01*Int(X+0.005)

D．0.01*Int(100*(X+0.05)) 答案: B

第47 题: (单选题, 1.5 分)

由“For i=1 to 9 Step -3”决定的循环结构，其循环体将被执行______。 A．0 次 B．1 次 C．4 次 D．5 次 答案:A

第48 题: (单选题, 1.5 分)

窗体中有命令按钮 Command1，事件过程如下：

Public Function f(x As Integer) As Integer ' 请注意: 形参 x 默认是传址方式

Dim y As Integer x = 20 y = 2 f = x * y End Function

Private Sub Command1_Click()

Dim a As Integer, b As Integer a = 10 b = 5 b = f(a)

Debug.Print a; b End Sub

运行程序，单击该命令按钮，则立即窗口中显示的内容是______。 A．10 5 B．10 40 C．20 5 D．20 40 答案: D

第49 题: (单选题, 1.5 分)

窗体中有命令按钮 Run34，对应的事件过程代码如下： Private Sub Run34_Enter( )

Dim num As Integer, a As Integer, b As Integer, i As Integer For i = 1 to 10

num = InputBox(\请输入数据\输入\ If Int(num/2) = num/2 Then a = a + 1 Else

b = b + 1 End If Next i

MsgBox( \运行结果：a=\End Sub

运行以上事件过程，所完成的功能是______。 A．对输入的10个数据求累加和

B．对输入的10个数据求各自的余数，然后再进行累加 C．对输入的10个数据分别统计奇数和偶数的个数 D．对输入的10个数据分别统计整数和非整数的个数 答案: C

第50 题: (单选题, 1.5 分)

运行下列程序，输入数据 8、9、3、0 后，窗体中显示结果是______。 Private Sub Form_Click( )

Dim sum As Integer, m As Integer sum = 0 Do

m = InputBox(\请输入数据\ sum = sum + m Loop Until m = 0 MsgBox sum End Sub

A．0 B．17 C．20 D．21 答案: C

第51 题: (单选题, 1.5 分)

窗体中有命令按钮 Command1，其事件过程代码如下： Private Sub Command1_Click()

Dim x As Integer, y As Integer x = 12: y = 32

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

[D]选D 答案: B

第6 题: (单选题, 1 分) 表达式 IIf(23 \\ 5.5 <= 3 Or 5 >= 6, 68, 176) 的结果是______。 A．5 B．6 C．68 D．176 注意：执行整除之前，要先把除数四舍五入。

请另外试试表达式 IIf(23 \\ 5.4 <= 3 Or 5 >= 6, 68, 176) [A]选A [B]选B [C]选C [D]选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 205.5 D. 275 [A]选A [B]选B [C]选C [D]选D 答案: B

C.

的结果。第8 题: (单选题, 1 分)

设 x=9，执行下列程序段后，变量 t 的值是_____。 y = x\\4 +2^4

If y<>30 Then x = x + y t = x Mod 12

A. 1 B. 2 C. 3 D. 4 [A]选A [B]选B [C]选C [D]选D 答案: C

第9 题: (单选题, 1 分)

在 VBA 中，声明函数过程的关键字是_______。

A．Dim B．Const C．Function ．Sub [A]选A [B]选B [C]选C [D]选D 答案: C

第10 题: (单选题, 1 分)

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

_______。 A．1 B．2 C．0 [A]选A [B]选B

D．3 D[C]选C [D]选D 答案: C

第11 题: (单选题, 1 分)

在 VBA 中，类型说明符 # 表示的数据类型是______。

A．整型 B．长整型 C．单精度型 D．双精度 [A]选A [B]选B [C]选C [D]选D 答案: D

第12 题: (单选题, 1 分)

下列语句中，定义窗体的加载事件过程的头语句是______。 A．Private Sub Form_Chang()

B．Private Sub Form__LostFocus() C．Private Sub Form_Load() D．Private Sub Form_Open() [A]选A [B]选B [C]选C [D]选D 答案: C

第13 题: (单选题, 1 分)

现有一个已经建好的窗体，窗体中有一个命令按钮，单击此按钮，将

打开“产品数量统计”报表，如果采用VBA 代码完成，下面语句正确的

是______。

A．Docmd.OpenForm \产品数量统计\ B．Docmd.OpenView \产品数量统计\ C．Docmd.OpenTable \产品数量统计\ D．Docmd.OpenReport \产品数量统计\[A]选A [B]选B [C]选C [D]选D 答案: D

第14 题: (单选题, 1 分)

表达式 IIf(7 Mod 5 > 3, 60, IIf(2^3 > 28, 80, 100)) 的运算结果是______。 A．60 B．80 C．100 D．160 [A]选A [B]选B [C]选C [D]选D 答案: C

第15 题: (单选题, 1 分)

在 VBA 中，变量声明语句“ Dim a!, b AS integer”中的变量 a 的

类型是______。

A．整型 B．单精度型 C．长整型 D．变体型 [A]选A [B]选B [C]选C

[D]选D 答案: B

第16 题: (单选题, 1 分)

在 VBA 中，“ Dim a(3,3) AS Boolean”语句定义了一个数组，该数

组中的全部元素都初始化为______。

A．True B．False C．-1 D．1 [A]选A [B]选B [C]选C [D]选D 答案: B

第17 题: (单选题, 1 分)

在 VBA 某个模块中，有如下声明语句 Dim a(6,10) AS integer

那么数组 a(6,10) 总共有______个元素。

A．16 B．60 C．70 [A]选A [B]选B [C]选C [D]选D 答案: D

第18 题: (单选题, 1 分) 以下 VBA 程序段运行后，变量 j 的值是______。 k = 10 j = 0 Do

k = k + 10

D．77

j = j + 1 Loop Until k > 20

A．1 B．2 C．4

D．10

[A]选A [B]选B [C]选C [D]选D 答案: B

第19 题: (单选题, 1 分)

以下 VBA 程序段运行后，变量 j 的值是______。 y = 89

j = \不及格\ Do While y > 60

j = IIf(y < 70, \及格\良好\ y = y - 50 Loop

A．\不及格\ B．\及格\ C．\良好\优秀\[A]选A [B]选B [C]选C [D]选D 答案: C

第20 题: (单选题, 1 分) 以下 VBA 代码程序运行结束后，变量 a 的值是______。 a=0 b=101 Do

b=b-20

优秀\ D．\

a=a+b

Loop While b>80

A．60 B．140 C．142 D．160

[A]选A [B]选B [C]选C [D]选D 答案: C

第21 题: (单选题, 1 分)

以下 VBA 代码程序运行结束后，数组元素 a(12) 的值是______。 Dim a(12) As Long, i As Long i=0

Do Until i>12 a(i)=i^2 - i i=i+1 Loop

A．1 B．128 C．132 D．144 [A]选A [B]选B [C]选C [D]选D 答案: C

第22 题: (单选题, 1 分)

假定有如下的 Function 过程：

Function ppfun(x As Single, y As Single) ppfun=x^3-y^2 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

打开窗体运行后，单击命令按钮，消息框中的输出内容是______。

A．50 B．25 C．9 D．109 [A]选A [B]选B [C]选C [D]选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

打开窗体运行后，单击命令按钮，消息框中的输出内容是______。

A．11 B．12 C． D．14 [A]选A [B]选B [C]选C [D]选D 答案: D

第24 题: (单选题, 1 分)

13 在窗体上添加一个命令按钮（名为 cmd13）,然后编写如下事件过程： Private Sub cmd13_Click()

Dim x As String, y As String

x = \龙洞华美路中山大学新华学院法学院\ y = \级法学专业学生\

MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9) End Sub

打开窗体运行后，单击命令按钮，消息框中的输出内容是______。 A．龙洞华美路中山大学新华学院法学院2006级法学专业学生 B．中山大学新华学院法学院2006级法学专业学生 C．中山大学法学院2006级法学专业学生 D．中山大学法学院2006级法学专业 [A]选A [B]选B [C]选C [D]选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

A．j B．j-k+1 C．j-k D．2*j-k

[A]选A [B]选B

[C]选C [D]选D 答案: C

第26 题: (多选题, 1 分)

下面______是合法的变量名。

A．STR-NAME B．Case C．FOR_99 D．abc2006 E．6A [A]选A [B]选B [C]选C [D]选D [E]选E 答案: CD

第27 题: (多选题, 1 分)

在 VBA 中，对于 Sub (或 Function) 过程中的每一个形参,可用于声

明其参数传递方式的关键字包括_______。 A．ByMe B．ByVal C．ByRef D．ByVBA E．BySub [A]选A [B]选B [C]选C [D]选D [E]选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. i^2+j C. i+j^2 D. i^2+j^2 [A]选A [B]选B [C]选C [D]选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 = \程序设计\

txt1.Visible = True

cmd1.Caption = \隐藏\ End Sub

A. Enable B. Value C. Visible D. Caption [A]选A [B]选B [C]选C [D]选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

k = a End If

If k

____________ '选答案 End Sub

A. lab1.Value = a B. lab1.Value = b

C. lab1.Caption = c D. lab1.Caption = k [A]选A [B]选B [C]选C [D]选D 答案: D

第31 题: (填空题, 2 分)

7 ^ 2 Mod 11 + 7 \\ 4 * 9 / 5 Mod 6 上述表达式的值是_______。 <空1>____________________ 答案: Lower(Trim(GetFill(1)))=\第32 题: (填空题, 2 分)

通过编程求出结果。

把 9786 表示为两个加数之和，使其中一个加数能被91整除，而另一个 加数能被87整除。请求出：在这两个加数中，能被91整除的加数等于多少？ <空1>____________________ 答案: Lower(Trim(GetFill(1)))=\第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)))=\