期末综合练习题10级.docx

1、期末综合练习题10级期末综合练习 （2011-6）一、单选题第1题 打开某个 Access 数据库，创建一个数据访问页，在“页”对象列表框中所列出的是数据访问页的_。 A网页 B数据库文件 C快捷方式 D子表答案：C第2题 在 Access 中，当对数据访问页设置分组字段时，展开控件的作用是显示或隐藏每组中的_。 A记录源 B字段 C记录 D数据表答案：C第3题 在宏的设计视图窗口中，下半部分是_。 A操作参数区 B设计区 C打印区 D状态区答案：A第4题 在宏中，OpenReport 操作可用来打开指定的_。 A查询 B状态栏 C 窗体 D报表答案：D第5题 在 Access 中的 VBA

2、过程里，要运行宏可以使用 DoCmd 对象的 _方法。 AOpen BRunMacro CClose DQuery答案：B第6题 关于宏的执行，以下说法不正确的是_。 A在“数据库”窗口，选择“宏”对象列表中的宏组名并双击，可以直接运行宏组中第一个宏的所有宏操作 B在“数据库”窗口，选择“宏”对象列表中的宏组名并双击，不可以直接运行宏组中第二个宏的所有宏操作 C可以在一个宏中运行另一个宏 D在打开数据库时，不会自动运行 AutoExec 宏答案：D第7题 在宏中，用于显示所有记录的宏命令是_。 AMsgboxAllRecords BShowAllRecords CSetValue DResto

3、re答案：B第8题 在 VBA 中，表达式 (52 Mod 8) = 4 的值是_。 ATrue BFalse CAnd D. Or答案：B第9题 在 VBA 中，表达式 234=6 的值是_。 ATrue BFalse CAnd D. Or答案：B第10题 在 VBA 中，表达式 Not (Not (8-35) 的值是_。 ATrue BFalse CAnd D. Or答案：B第11题 在 VBA 中，表达式 33/216 And (1653) 的值是_。 ATrue BFalse CAnd D. Or答案：B第12题 在 VBA 中，声明函数过程的关键字是_。 ADim BConst CF

4、unction DSub答案：C第13题 对 VBA 中的逻辑值进行算术运算时，True 值被当做 -1，False 当做_。 A1 B2 C0 D3答案：C第14题 在 VBA 中，类型说明符 # 表示的数据类型是_。 A整型 B长整型 C单精度型 D双精度型答案：D第15题 下列语句中，定义窗体的加载事件过程的头语句是_。 APrivate Sub Form_Chang() BPrivate Sub Form_LostFocus() CPrivate Sub Form_Load() DPrivate Sub Form_Open()答案：C第16题 现有一个已经建好的窗体，窗体中有一个命令按

5、钮，单击此按钮，将打开“产品数量统计”报表，如果采用VBA 代码完成，下面语句正确的是_。 ADocmd.OpenForm 产品数量统计 BDocmd.OpenView 产品数量统计 CDocmd.OpenTable 产品数量统计 DDocmd.OpenReport 产品数量统计答案：D第17题 表达式 IIf(0, 60, 100) 的结果是_。 A0 B60 C100 D160答案：C第18题 在 VBA 中，变量声明语句“ Dim a#, b AS integer”中的变量 a 的类型是_。 A整型 B双精度型 C长整型 D变体型答案：B第19题 在 VBA 中，“ Dim a(3,3)

6、 AS Bollean”语句定义了一个数组，该数组中的全部元素都初始化为_。 ATrue BFalse C-1 D1答案：B第20题 在 VBA 某个模块中，有如下声明语句 Dim a(6,10) AS integer那么数组 a(6,10) 总共有_个元素。 A16 B60 C70 D77答案：D第21题 以下 VBA 程序段运行后，变量 j 的值是_。 k = 10 j = 0 Do k = k + 10 j = j + 1 Loop Until k 20 A1 B2 C4 D10 答案：B第22题 以下 VBA 程序段运行后，变量 j 的值是_。 y = 89 j = 不及格 Do Wh

7、ile y 60 j = IIf(y 70, 及格, IIf(y =2 MsgBox 消息是“北京” . MsgBox 消息是“上海” MsgBox 消息是“广州” 现设置宏 h 为窗体“sysu”上名为 “cmd1”命令按钮的单击事件属性，打开窗体“sysu”运行后，在窗体上名为“txt1”的文本框内输入数字1，然后单击命令按钮 cmd1，则 A屏幕会弹出一个消息框，显示消息“北京” B屏幕会先后弹出两个消息框，分别显示消息“北京”和“上海” C屏幕会先后弹出三个消息框，分别显示消息“北京”、“上海”、“广州” D屏幕会弹出一个消息框，显示消息“广州”答案：D第24题 以下 VBA 代码程序

8、运行结束后，变量 a 的值是_。 a=0 b=101 Do b=b-20 a=a+b Loop While b80 A60 B140 C142 D160 答案：C第25题以下 VBA 代码程序运行结束后，数组元素 a(12) 的值是_。 Dim a(12) As Long, i As Long i=0 Do Until i12 a(i)=i2 - i i=i+1 Loop A1 B128 C132 D144 答案：C第26题假定有如下的 Function 过程： Function ppfun(x As Single, y As Single) ppfun=x3-y2 End Function在

9、窗体上添加一个命令按钮（名为 cmd10）,然后编写如下事件过程： Private Sub cmd10_Click() Dim a As Single, b As Single a = 5 b = 4 MsgBox ppfun(a,b) mod 50 End Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_。 A50 B25 C9 D109 答案：C第27题在窗体上添加一个命令按钮（名为 cmd12）,然后编写如下事件过程： Private Sub cmd12_Click() Dim pi As Single, n As Integer pi = 3.14 n = Len(Str(p

10、i) & Space(2) & 是本字符串长度) MsgBox n End Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_。 A11 B12 C13 D14 答案：D第28题在窗体上添加一个命令按钮（名为 cmd13）,然后编写如下事件过程： Private Sub cmd13_Click() Dim x As String, y As String x = 龙洞华美路中山大学新华学院法学院 y = 2006级法学专业学生 MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9) End Sub打开窗体运行后，单击命令按钮，消息框中的输出内容是_。 A龙

11、洞华美路中山大学新华学院法学院2006级法学专业学生 B中山大学新华学院法学院2006级法学专业学生 C中山大学法学院2006级法学专业学生 D中山大学法学院2006级法学专业 答案：D第29题 下列程序段,建立如图所示的数组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 Aj Bj-k+1

12、 Cj-k D2*j-k 答案：C二、多选题第30题 在 Access 中,宏的种类包括_。 A繁难宏 B条件宏 C宏组 D简单宏答案：BCD第31题 在 VBA 中，对于 Sub (或 Function) 过程中的每一个形参,可用于声明其参数传递方式的关键字包括_。 AByMe BByVal CByRef DByVBA答案：BC第32题下面_是合法的变量名。 ASTR-NAME BCase CFOR_99 Dabc2006答案：CD三、单选 多第33题在窗体上已经建立1个标签控件lab1和1个命令按钮控件cmd1。请完善程序，使之完成以下操作： 打开窗体后单击命令按钮，则通过输入对话框分别输

13、入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 ab Then k = b Else _1_ k=a End If If _2_ Then kc k = c End If _3_ lab1.Caption = k End Sub 1 A. k=0 B. k

14、=c C. k=b D. k=a 2 A. k=k B. k=c C. kc 3 A. lab1.Value = a B. lab1.Value = b C. lab1.Caption = c D. lab1.Caption = k答案：DCD第34题在窗体上添加一个命令按钮（名为 cmd），然后编写如下事件过程。单击该命令按钮，便将数组 p(6,8)中各个元素都赋予其对应的两个下标值平方之和，请完善程序。 Private Sub cmd_Click() Dim p(6,8) As integer, i As integer, j As integer For _1_ To 6 i=0 For

15、 j=0 To _2_ 8 p(i,j) = _3_ i2+j2 Next j Next i End Sub1 A. i0 B. i0 C. i=1 D. i=02 A. 6 B. 7 C. 8 D. 93 A. (i+j)2 B. i2+j C. i+j2 D. i2+j2答案：DCD第35题在窗体上已经建立1个文本框控件txt1和1个命令按钮控件cmd1。请完善程序，使之完成以下操作： 程序运行时，文本框上显示“VBA程序设计”，命令按钮的标题上显示“隐藏”； 单击命令按钮时文本框消失； 单击窗体时显示出文本框。 Private Sub _1_ () cmd1_Click txt1.Vis

16、ible = False End Sub Private Sub Form_Click() txt1.Visible = _2_ True End Sub Private Sub Form_Load() txt1.Value = VBA程序设计 txt1.Visible = True cmd1. _3_ = 隐藏 Caption End Sub 1 A. command1_Click B. Lab1_Click C. Form_Load D. cmd1_Click 2 A. False B. True C. 隐藏 D. 显示 3 A. Visible B. Value C. Caption D

17、. Click答案：DBC四、填空题第36题（编程题） 求 S = 1/5 + 1/10 + 1/15 + 1/20 + 1/25 + + 1/(5*n) + 的前n项之和，当S第一次大于或等于1.4时终止计算，此时项数n为_。答案：616(n)程序代码：Private Sub Cmd1_Click() Dim n%, s As Double s = 0 s 作累加器，初值置 0 n = 1 While s = 1.4 s = s + 1 / (5 * n) n = n + 1 Wend Text0.Value = n = & n - 1End Sub第37题（编程题）通过编程求出结果。 把9

18、786表示为两个加数之和，使其中一个加数能被91整除，而另一个加数能被87整除。请求出：在这两个加数中，能被91整除的加数等于多少？答案：4914(n)程序代码：Private Sub Cmd1_Click() Dim i As Integer, j As Integer, k As Integer k = 9786 For i = 87 To k Step 87 For j = 91 To k Step 91 If i + j = k Then MsgBox 能被91整除的加数是： & j Exit For End If Next j Next iEnd Sub第38题数据库的“职工”表中含

19、有“姓名”、“职称”和“工资”等字段，要实现对不同职称的职工增加工资，规定工程师职称增加20%，技术员增加15%，其他人员增加10%。下列程序的功能是按上述规定调整每位职工的工资，并显示所涨工资的总和。请在空白处填入适当的语句，使程序可以完成指定的功能。 Private Sub Command0_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim gz As DAO.Field Dim zc As DAO.Field Dim sum As Single Dim rate As Single Set db = CurrentDb(

20、) Set rs = db.OpenRecordset(职工) Set gz = rs._(工资) Fields Set zc = rs.Fields(职称) sum = 0 Do While Not rs.EOF rs.Edit Select Case zc Case Is = 工程师 rate = 0.2 Case Is = 技术员 rate = 0.15 Case Else rate = 0.1 End Select sum = sum + gz * rate gz = gz + gz * rate rs.Update rs.MoveNext Loop rs.Close db.Close

21、 Set rs = Nothing Set db = Nothing MsgBox 涨工资总计： & sum End Sub答案：Fields第39题数据库的“学生成绩”表中含有字段（学号、姓名、语文、数学、英语，总分）。下列程序的功能是：计算每名学生的总分（总分=数学+外语+专业）。请在空白处填入适当的语句，使程序可以实现所需要的功能。 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim zf As ADODB.Field Dim yw As ADODB.Field Dim sx As ADODB.Field Di

22、m yy As ADODB.Field Dim strSQL As String Set cn = CurrentProject.Connection strSQL = select * from学生成绩 rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText Set zf = rs.Fields(总分) Set yw = rs.Fields(语文) Set sx = rs.Fields(数学) Set yy = rs.Fields(英语) Do While Not rs.EOF zf = yw + sx + yy rs.Update rs._ MoveNext Loop rs.Close cn.Close Set rs = Nothing Set cn = Nothing答案：MoveNext&