【VB开源代码栏目提醒】：本文主要为网学会员提供“VB+VBA期末考卷(VB程序设计基础与VBA应用) - 勘查设计”，希望对需要VB+VBA期末考卷(VB程序设计基础与VBA应用) - 勘查设计网友有所帮助，学习一下!

…………………………………………………………..装………………….订…………………..线……………………………………………………… 2011 — 2012 学年第 二 学期期末考试试卷年级：_____________ 专业：_____________________ 班级：_________________ 学号：_______________ __________ 《VB 程序设计基础与 VBA 应用》 开课单位： 计算分院 ；考试形式：闭卷；考试时间：2012 年 6 月 13 日 所需时间：120 分钟 一、单选题（26，每小题 1 分） 1．下列叙述中，错误的是 。

     A．事件可以由用户触发，也可以由系统触发 B．VB 应用程序只能以解释方式执行 C．保存 VB 程序时，应分别保存窗体及工程文件 D．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 2．函数 Int45 Rnd 5 产生 范围内的正整数？ A．050 B．550 C．549 D．049 3．下列叙述中不正确的是 。

     A. VBA 只能用于 Excel B. VBA 来源于 VB C. VBA 必须与应用程序结合 D. VB 可以独立开发应用程序 4．下列各组函数中，函数值类型相同的一组是 。

     A．Expx、Leftx、Ucasex B．Ascx、Intx、Lenx C．Sgnx、Strx、Rtrimx D．Fixx、Chrx、Lcasex 5．表示 x 大于 0 且小于 10 的表达式是 。

     A．0ltxlt10 B．xgt0 And xlt10 C．xgt0 Or xlt10 D．xgt0 : xlt10 6．要判断在文本框中是否按了 Enter 键，应在文本框的 事件中判断。

     A．Change B．KeyDown C．Click D．KeyPress 7．设置 EXCEL 某个区域的内部颜色，需设置 的 ColorIndex 属性。

     A.ForeColor B.BackColor C.Interior D.Inside 8．表达式 2323 Mod 507 的值是 。

     A．23 B．46 C．25 D．123 9．以下条件语句错误的是 。

     A．If X Then YY1 B．If X0 Then Y0 C．If XgtY Then Print Y End If D．If Xgt0 Then Y1:Print Y 10．用 Dim xy As Boolean 语句声明变量，下列正确的是 。

     A．x 和 y 都是布尔型变量 B．x 是整型变量，y 是布尔型变量 C．x 是变体型变量，y 是布尔型变量 D．x 和 y 都是变体型变量11．若变量 i 的初值为 9，则下列循环语句的循环次数为 次。

     Do While i lt 21 i i 3 Loop A．3 次 B．4 次 C．5 次 D．6 次12．Excel-VBA 有多达 100 个以上的对象，这些对象构建了对象模型。

    以下对象哪个对象所处的层次最高 ？ A．Range B．Workbooks C．WorkSheets D．Application13．编辑修改 VBA 代码时，可以使用下列哪个快捷键 。

     A. CTRLF11 B. SHIFTF11 C. ATLF11 D. F1114．在 Excel 中编制 VBA 程序时，会出现 Excel 的特有对象，下列 是特有对象 A. ThisWorkBook B. Microsoft Excel C. Sheet1 至 Sheet3 D. 以上都是15．在 Select Case x 的语句中，判断 x 是否大于等于 10 小于等于 20 的是 。

     A．Case xgt10 And xlt20 B．Case 10 To 20 C．Case 10ltxlt20 D．Case Is gt10 Is lt2016．在用 Dim x26 to 9所声明的数组中不包括下列 元素。

     A．x26 B．x19 C．x07 D．x1417．若某过程声明为 Sub aan As Integer，则以下调用正确的是 。

     A．aay B．Call aa C．aa y D．zaay18．Sub 过程与 Function 过程最根本的区别是 。

     A．前者可以使用 Call 或直接使用过程名调用，后者不可以 B．后者可以有参数，前者不可以 C．两种过程参数的传递方式不同 D．前者无返回值，但后者有19．下面子过程语句说明合法的是 。

     A．Sub f1ByVal n As Integer B．Sub f1n As Integer As Integer C．Function f1n As Integer D．Function f1ByVal n As Integer As Integer20．在语句 Sub Factn as Integer中 n 是一个按 传递的参数。

     A．地址 B．值 C．变量 D．常量21-26．在以下程序中有 6 条语句需要重填，使之成为程序。

    程序功能是证明一个偶数可以分解为两个素数之和。

    从键盘输入一个大于 4 的偶数，将它所有不重复的分解式求出。

    程序和可供选择的语句如下： Private Sub Form_Click Dim x As Integer i As Integer Do __ 21 __ Loop Until x gt 4 And x Mod 2 0 保证 x 是大于 4 的偶数 __ 22 __ 在不大于 x 的奇数中找素数 __ 23 __ Print x quotquot i quotquot x - i End If Next i End Sub Public Function Isprimex As Integer As Boolean Dim i As Integer __ 24 __ For i 2 To Sqrx If x Mod i 0 Then __ 25 __ __ 26 __ End If Next i End Function A．Isprime False B．Exit For C．Isprime True D．x ValInputBoxquotxquot E．If Isprimei And Isprimex - i Then F．For i 3 To x / 2 Step 2二、程序填空题（20，每空 2 分）说明：请在以下题中的__ 1 __、…、__ 10 __处填入适当的内容，将程序补充完整。

    1．随机产生 30 个两位正整数，将其中互不相同的数存入数组 a 中，按从小到大的顺序排序并在窗体中每行 5 个输出，最后输出互不相同数的个数。

    把程序补充完整。

    【程序】 Private Sub Form_Click Dim a30 As Integer i As Integer j As Integer Dim x As Integer count As Integer temp As Integer count 0 For i 1 To 30 x ______ 1 ______ For j 1 To count If aj x Then Exit For Next j If j gt count Then ______ 2 ______ acount x End If Next i For i 1 To count - 1 For j ______ 3 ______ If ai gt aj Then ______ 4 ______ ai aj aj temp End If Next j ______ 5 ______ For i 1 To count Print ai If ______ 6 ______ Then Print Next i ______ 7 ______ End Sub2．在工作表 1 上有窗体命令按钮“开始”。

     单击“开始”按钮完成在 A1：A10 上输入10 个同学某门课程的成绩（正整数）并将不及格的成绩用红色标注。

    【程序】 Sub 开始_单击 Dim i As Integer ActiveSheet.Cells.Clear For i 1 To 10 Cellsi 1.Value ______ 8 ______ If ______ 9 ______ Then Cellsi 1.Font.Color ______ 10 ______ End If Next i End Sub三、程序阅读题（24，每小题 4 分）1．下列程序运行时，单击窗体后，请写出窗体上显示的结果。

    【程序】 Private Sub Form_Click Dim k As Integer i As Integer j As Integer For i 1 To 5 For j 1 To i Print j 5 If i j Then Exit For Next j Print Next i End Sub2．窗体上有命令按钮 Command1。

    写出单击命令按钮后程序运行的结果。

    【程序】 Private Sub Command1_Click Dim a5 As Integer n As Integer For i0 to 5 aii12 Next i For i5 To 0 Step -1 Print ai n n 1 If n3 n/3 Then Print Next i End Sub3．阅读下列程序，单击命令按钮时，写出窗体显示的结果。

    【程序】 Public Sub Pron As Integer ByVal m As Integer Dim i As Integer n n m m 0 For i n To m m m i Next i End Sub Private Sub Form_Click Dim x As Integer y As Integer x 59: y 63 Print x y Call Prox y Print x y End Sub4．程序运行后，将焦点置于文本框 Text1，在键盘上输入字母“a”，写出窗体上和文本框内.

上一篇：vb程序设计教程ZW9
下一篇：关于大学英语教学