2005年9月全国计算机等级考试二级VB笔试试卷

2005年9月全国计算机等级考试二级VB笔试试卷 (部分题目含解析，全部 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 在最后) 一、 选择题（每小题2分，共70分）从11题开始有评析 下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）下列叙述中正确的是______ A）程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 就是编制程序 B）程序的测试必须由程序员自己去完成 C）程序经调试改错后还应进行再测试 D）程序经调试改错后不必进行再测试 （2）下列数据结构中，能用二分法进行查找的是______ A）顺序存储的有序线性 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf B）线性链表 C）二叉链表 D）有序线性链表 （3）下列关于栈的描述正确的是______ A）在栈中只能插入元素而不能删除元素 B）在栈中只能删除元素而不能插入元素 C）栈是特殊的线性表，只能在一端插入或删除元素 D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素 （4）下列叙述中正确的是______ A）一个逻辑数据结构只能有一种存储结构 B）数据的逻辑结构属于线性结构，存储结构属于非线性结构 C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率 D）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 （5）下列描述中正确的是______ A）软件工程只是解决软件项目的管理问题 B）软件工程主要解决软件产品的生产率问题 C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D）软件工程只是解决软件开发中的技术问题 （6）在软件设计中，不属于过程设计工具的是______ A）PDL(过程设计语言) B）PAD图 C）N-S图 D）DFD图 （7）下列叙述中正确的是______ A）软件交付使用后还需要进行维护 B）软件一旦交付使用就不需要再进行维护 C）软件交付使用后其生命周期就结束 D）软件维护是指修复程序中被破坏的指令 （8）数据库设计的根本目标是要解决______ A）数据共享问题 B）数据安全问题 C）大量数据存储问题 D）简化数据维护 （9）设有如下关系表: R S T A B C A B C A B C 1 1 2 3 1 3 1 1 2 2 2 3 2 2 3 3 1 3 则下列操作中正确的是______ A）T＝R∩S B）T＝R∪S C）T＝R×S D）T＝R/S （10）数据库系统的核心是______ A）数据模型 B）数据库管理系统 C）数据库 D）数据库管理员 （11）假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是______ A）只保存窗体模块文件 B）分别保存窗体模块、标准模块和工程文件 C）只保存窗体模块和标准模块文件 D）只保存工程文件 考核 知识点 高中化学知识点免费下载体育概论知识点下载名人传知识点免费下载线性代数知识点汇总下载高中化学知识点免费下载 : (1)VB应用程序的保存； (2)VB中常见文件保存的内容； (3)VB应用程序的构成 答案: B 分析：一个VB应用程序至少包含一个容器工程文件.vbp和一个窗体文件.frm，题目告诉我们此应用程序还包括标准模块.bas，所以保存时会依次保存应用程序中所有的标准模块、窗体模块和工程文件。 （12）为了清除窗体上的一个控件，下列正确的操作是______ A）按回车键 B）按Esc键 C）选择（单击）要清除的控件，然后按Del键 D）选择（单击）要清除的控件，然后按回车键 考核知识点: (1)VB应用程序界面设计的基本操作:创建、删除、选中、格式设置、属性设置等 答案: C 分析：为了清除窗体上的一个控件, 选择（单击）要清除的控件，然后按Del键或者使用剪切操作 （13）以下叙述中错误的是______ A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件 C）Visual Basic应用程序只能以解释方式执行 D）事件可以由用户引发，也可以由系统引发 考核知识点: (1)VB中常见文件保存的内容； (2)事件驱动原理；常见事件的触发时机； (3)VB应用程序的工作方式 答案: C 分析：Visual Basic应用程序能以解释和编译两种方式执行 （14）设a=2, b=3, c=4, d=5, 下列表达式的值是______ Not a<=c Or 4*c=b^2 And b<>a+c A）-1 B）1 C）True D）False 考核知识点: (1)表达式的计算：表达式的类型（值）；运算符的使用；运算符的运算优先级 Not a<=c Or 4*c=b^2 And b<>a+c 答案: D （15）设a = 5，b = 10，则执行 c = Int((b - a) * Rnd + a) + 1 后，c值的范围为______ A）5～10 B）6～9 C）6～10 D）5～9 考核知识点: (1)赋值语句的执行； (2)表达式的计算； (3)常见函数的使用； (3)指定范围[a，b]内随机整数的生成公式：Int（（b-a+1）*Rnd+a） 答案: C 分析：随机整数的生成公式Int（（b-a+1）*Rnd+a）产生的是[a，b]区间的随机整数（间隔是1），此处题目Int((b-a)*Rnd+a) = Int(((b-1) –a+1)*Rnd+a)表示产生的是[a，b-1]区间的随机整数，Int((b-a)*Rnd+a)+1表示产生的是[a+1，b]区间的随机整数，即c值的范围为[6，10] （16）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a$ = "software and hardware" b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是______ A）software and hardware B）software C）hardware D）1 考核知识点: (1) 常见函数的使用：Right和Mid函数的使用；MsgBox的调用格式(参数)； 答案: C 分析：根据课本MsgBox的过程调用格式，此处题目中 MsgBox a$, , b$, c$, 1 第一个参数a$表示提示信息“software and hardware”；此处表示按钮、数量和图标信息第二个参数缺省；第三个参数b$表示消息框中标题内容“hardware” （17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox("Enter an integer") b = InputBox("Enter an integer") Text1.Text = b + a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______ A）108 B）18 C）810 D）出错 考核知识点: (1)InputBox函数返回值的类型； (2)+与&的功能和区别； (3)常用控件对象常见属性类型 答案:A 分析：InputBox函数默认返回值的类型是字符串类型，除非按Esc键或单击“取消”或“Cancel”按钮，则返回0值或空串。+要求两旁的操作数应均为字符型，才完成字符串的连接运算，否则作求和运算。&连接符两旁的操作数不管是字符型还是数值型,进行连接操作前系统先将操作数转换成字符型,然后再连接；题目中表达式b + a中加号两旁的操作数均为字符型,即完成的是数据字符串的连接运算，文本框的Text属性是字符串类型，与赋值等号右边的表达式类型一致,所以A选项是答案 （18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text = Mid(Text1.Text, 8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是______ A）BeijingChina B）China C）Beijing D）BeijingC 考核知识点: (1)常见事件的触发时机 (2)常见字符串函数的功能：Mid 答案: B 分析：Mid（x,n1,n2）函数的功能是从字符串x左边第n1个字符开始连续取其中的n2个字符组成新字符串返回，若缺省第三个参数n2，表示从字符串x左边第n1个字符开始到字符串尾连续取字符组成新字符串返回，题目中Mid(Text1.Text, 8)表示从目前文本框Text1中的第8个字符位置开始取字符到末尾，组成新字符串返回。文本框的Change事件是在文本框内容（Text）发生改变时触发的，所以在文本框Text1中每输入一个字符就会触发一次Change事件，所以B选项是答案 （19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form_Load() List1.AddItem "Item 1" List1.AddItem "Item 2" List1.AddItem "Item 3" End Sub Private Sub Command1_Click() List1.List(List1.ListCount) = "AAAA" End Sub 程序运行后，单击命令按钮，其结果为______ A）把字符串“AAAA”添加到列表框中，但位置不能确定 B）把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面） C）把列表框中原有的最后一项改为“AAAA” D）把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面） 考核知识点: (1)列表框常见属性、方法的含义和使用； 答案: B 分析：语句List1.List(列表项索引编号) = "AAAA"的含义是将指定索引编号列表项内容更改为新的内容"AAAA"，若列表项索引编号超过列表框内已有的列表项索引编号，则表示在列表框的最后添加新的列表项（内容为"AAAA"），此处List1.ListCount=最后列表项索引编号+1，所以B选项是答案 （20）假定有如下事件过程： Private Sub Form_Click() 循环次数 x n 0 0 0 1 0 1 3 1 2 9 2 3 27 3 4 81 4 Dim x As Integer, n As Integer x = 1 n = 0 Do While x < 28 x = x * 3 n = n + 1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______ A）81 4 B）56 3 C）28 1 D）243 5 考核知识点: (1)基本语句 流程 快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计 ：赋值，循环； (2)Print方法的功能和格式； 答案: A 循环次数 Check Counter 0 空 空 True 0 1 1 1 2 2 … … 9 9 10 False 10 分析：语句Do While循环，当循环条件x <28成立时执行循环，一旦x >=28结束。Print方法表示在当前窗体上输出信息，注意当输出项之间用分号分隔时，输出采用的是标准格式。具体可以列表分析整个运行过程，确定答案A选项是答案 （21）有如下程序： Private Sub Form_Click() Dim Check, Counter Check = True Counter = 0 Do Do While Counter < 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为______ A）15 0 B）20 -1 C）10 True D）10 False 考核知识点: (1)基本语句流程：赋值，分支，循环； (2)循环语句Do While与Do Until的区别 (3)Print方法的功能和格式； 答案: D 分析：语句Do While循环，当循环条件Counter < 20成立时执行循环，一旦Counter >= 20结束; 语句Do Until循环，当循环条件Check = False不成立时执行循环，直到循环条件Check = False成立结束循环。Exit Do 表示跳出最内的一层Do循环。Print方法表示在当前窗体上输出信息，注意当输出项之间用分号分隔时，输出采用的是标准格式。具体可以列表分析整个运行过程，确定答案A选项是答案 （22）有如下程序： 循环次数 i sum 0 0 0 2 1 3 2 4 3 3 5 4 6 5 7 6 8 7 9 12 8 10 9 11 Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______ A）12 B）30 C）24 D）18 考核知识点: (1)基本语句流程：赋值，分支，循环； (2)Print方法的功能和格式； 答案: A 分析：语句For循环，当循环变量的值<=终值时执行循环，一旦循环变量的值 >终值时结束，缺省步长，表示步长为1；Print方法表示在当前窗体上输出信息。具体可以列表分析整个运行过程，确定答案A选项是答案 （23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() 外循环i 内循环j Array1(i,j) 1 2 Array1(1,2)=3 3 Array1(1,3)=4 4 Array1(1,4)=5 5 2 2 Array1(2,2)=4 3 Array1(2,3)=5 4 Array1(2,4)=6 5 3 2 Array1(3,2)=5 3 Array1(3,3)=6 4 Array1(3,4)=7 5 4 Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text =array1(2, 3) + array1(3, 4) ‘将数组元素array1(2, 3)和array1(3, 4)累加的结果显示在文本框中 End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______ A）12 B）13 C）14 D）15 考核知识点: (1)数组的基本操作：数组元素的访问（给数组元素赋值，读取数组元素）； (2)For循环的执行流程（双重循环）； (3)+的功能； (4)常用控件对象常见属性类型 答案: A 外循环i 内循环j Array1(i,j) 1 1 a1(1,1)=2 a2(1,1)= a1(1,1)+1+1=4 2 a1(1,2)=3 a2(1,2)= a1(1,2)+1+2=6 3 a1(1,3)=4 a2(1,3)= a1(1,3)+1+3=8 4 a1(1,4)=5 a2(1,4)= a1(1,4)+1+4=10 5 2 1 a1(2,1)=3 a2(2,1)= a1(2,1)+2+1=6 2 a1(2,2)=4 a2(2,2)= a1(2,2)+2+2=8 3 a1(2,3)=5 a2(2,3)= a1(2,3)+2+3=10 4 a1(2,4)=6 a2(2,4)= a1(2,4)+2+4=12 5 3 1 a1(3,1)=4 a2(3,1)= a1(3,1)+3+1=8 2 a1(3,2)=5 a2(3,2)= a1(2,2)+3+2=10 3 a1(3,3)=6 a2(3,3)= a1(2,3)+3+3=12 4 a1(3,4)=7 a2(3,4)= a1(3,4)+3+4=14 5 … 分析：数组操作经常与For循环配合使用，对二维数组元素的有规律的访问是通过双重For循环实现的。具体可以列表分析整个运行过程，确定答案A选项是答案 （24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是______ A）6 6 B）10 5 C）7 21 D）6 12 考核知识点: (1)数组的基本操作：数组元素的访问（给数组元素赋值，读取数组元素）； (2)For循环的执行流程（双重循环）； (3)Print方法的功能（注意输出格式） 答案: D 分析：数组操作经常与For循环配合使用，对二维数组元素的有规律的访问是通过双重For循环实现的。具体可以列表分析整个运行过程，确定答案D选项是答案。当然也可以从循环体中找出规律： a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j=2*(i + j) a1(3, 3) = 3 + 3 = 6 a2(3, 3) = 2 *(3 + 3) = 12 （25）有如下程序： Option Base 1 ‘注意设置数组下标从1开始 Private Sub Form_Click() Dim arr, Sum Sum = 0 arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) ‘使用Array函数进行数组arr整体赋值,前提arr定义为变体型变量 For i = 1 To 10 If arr(i) / 3 = arr(i) \ 3 Then Sum = Sum + arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______ A）25 B）26 C）27 D）28 考核知识点: (1)数组的基本操作：Array函数的功能和使用；数组元素的访问（给数组元素赋值，读取数组元素）； (2)For循环和If语句的执行流程； (3)依据已知算法经验，学会分析程序的功能； (4)Print方法的功能（注意输出格式） 答案: C 分析：(1)综观代码，可以看出是一个累加求和问题 (2)分析If语句的条件arr(i) / 3 = arr(i) \ 3，可以看出累加求和是针对能被3整除的数组元素进行的，因此求和结果是3+9+15=27，答案是C （26）在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5) As String For i = 1 To 5 a(i) = Chr(Asc("A") + (i - 1)) 循环i a(i) 1 a(1)=Chr(Asc("A") + (1 - 1))= "A" 2 a(2)=Chr(Asc("A") + (2 - 1))= "B" 3 a(3)=Chr(Asc("A") + (3 - 1))= "C" 4 a(4)=Chr(Asc("A") + (4 - 1))= "D" 5 a(5)=Chr(Asc("A") + (5 - 1))= "E" Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______ A）ABCDE B）1 2 3 4 5 C）abcde D）出错信息 考核知识点: (1)数组的基本操作：数组元素的访问（给数组元素赋值，读取数组元素）； (2)专门用于访问数组元素的For-Each循环的功能和执行流程； (3)常用Chr和Asc函数的功能； (4)Print方法的功能（注意输出格式） 答案: A 分析：(1) Chr(Asc("A") + 偏移量△C) 返回相对于"A"偏移△C的字符 (2) For Each b In a ‘表示通过For循环依次输出a数组中的每个 Print b; ‘数组元素（此处用b表示数组中的元素） Next （27）以下关于函数过程的叙述中，正确的是______ A）如果不指明函数过程参数的类型，则该参数没有数据类型 B）函数过程的返回值可以有多个 C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递 D）函数过程形参的类型与函数返回值的类型没有关系 考核知识点: (1)函数过程参数的类型定义要求、传递方式 (2)函数过程返回值的类型和数量情况 答案: D 分析：A）如果不指明函数过程参数的类型，则该参数的数据类型为变体型 B）函数过程的返回值有且只有一个 C）当数组作为函数过程的参数时，只能以引用方式传递 （28）函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是______ A）Function F1(b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function B）Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End Function C）Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End Function D）Function F1(b As Integer) If b Mod 2 <> 0 Then Return 0 Else Return 1 End If End Function 考核知识点: (1)函数过程的定义格式； 答案: B 分析：(1)若期望函数过程返回值，函数过程体中必须要有一条给函数名赋值的语句，所以排除使用Return 格式选项A）D）； (2)根据题目逻辑：要求b为奇数，则返回值为1，否则返回值为0，所以符合的选项只有B（选项C的逻辑恰好相反） （29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是______ A）KeyAscii参数是所按键的ASCII码 B）KeyAscii参数的数据类型为字符串 C）KeyAscii参数可以省略 D）KeyAscii参数是所按键上标注的字符 考核知识点: (1) KeyPress事件过程中参数KeyAscii的格式、类型和含义的理解； 答案: A 分析：KeyAscii参数是所按键的ASCII码（类型是Integer），KeyPress事件过程中参数KeyAscii 是不能省略的 （30）设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text = "" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Print "程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是______ A）Visual Basic B）程序设计 C）Visual Basic程序设计 D）a程序设计 考核知识点: (1)常见事件(鼠标、键盘事件)的触发时机； (2)Print方法的功能（注意输出格式） 答案: C 分析：在文本框中输入字母“a”，就会触发文本框的键盘KeyDown事件，所以会在窗体上打印显示“Visual Basic”；而后鼠标单击窗体，必然会触发窗体的鼠标MouseUp事件，所以会继续在窗体上打印显示“程序设计”。根据Print方法输出格式中使用;的具体情况分析，应选择答案C （31）假定有下表所列的菜单结构： 标题 名称 层次 显示 appear 1（主菜单） 大图标 bigicon 2（子菜单） 小图标 smallicon 2（子菜单） 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是______ A）Private Sub bigicon_Click() bigicon.Checked = False End Sub B）Private Sub bigicon_Click() Me. appear.bigicon.Checked = True End Sub C）Private Sub bigicon_Click() bigicon.Checked = True End Sub D）Private Sub bigicon_Click() appear.bigicon.Checked = True End Sub 考核知识点: (1)事件驱动原理； (2)菜单对象的常见属性设置； 答案: C 分析：(1)题目要求单击菜单项“大图标”，在该菜单项前添加一个“√”，因此需要为“大图标”对象编写它的单击事件过程； (2)效果：菜单项“大图标”前添加一个“√”。已知菜单项的Checked复选属性决定是否在对象前显示“√”（True-显示，False-不显示） 因此在大图标的单击事件过程中应编写设置该对象Checked属性为True的赋值语句，选择答案C （32）假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是______ A）Private Sub Command1_Click() CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowPrinter End Sub B）Private Sub Command1_Click() CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowFont End Sub C）Private Sub Command1_Click() CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowOpen End Sub D）Private Sub Command1_Click() CommonDialog1.DialogTitle = "New Title" CommonDialog1.ShowColor End Sub 考核知识点: (1)通用对话框（Common Dialog）控件的常用属性和方法（不同种类对话框的特殊属性） 答案: C 分析：利用通用对话框（Common Dialog）控件在窗体上创建6种标准对话框（打开（Open）、另存为（Save As）、颜色（Color）、字体（Font）、打印机（Printer）和帮助（Help）对话框）。Common Dialog的DialogTitle属性仅对打开（Open）、另存为（Save As）对话框有效，所以选择能调出打开对话框（CommonDialog1.ShowOpen）的选项C （33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是______ A）任何时刻最多只有一个窗体是活动窗体 B）不能把标准模块设置为启动模块 C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 D）如果工程中含有Sub Main过程，则程序一定首先执行该过程 考核知识点: (1)启动对象的种类和设置； (2)Hide方法的执行效果； 答案: D 分析：(1)只有窗体和Sub Main过程才能作为启动对象，而且必须通过设置“工程属性”中的启动对象才有效，否则默认情况下，将第一个创建的窗体作为启动窗体运行。 (2) 用Hide方法只是隐藏一个窗体，相当于设置该窗体的Visible属性为False,它不能从内存中清除该窗体 （34）假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String * 10 TelNum As String * 20 End Type 要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______ A）Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Output As #1 B.Name = InputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Write #1, B.Name, B.TelNum Close #1 End Sub B）Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Input As #1 B.Name = InputBox("输入姓名") B.TelNum = InputBox("输入电话号码") Print #1, B.Name, B.TelNum Close #1 End Sub C）Private Sub Command1_Click() Dim B As Books Open "c:\Person.txt" For Output As #1 Name = InputBox("输入姓名") TelNum = InputBox("输入电话号码") Write #1, B Close #1 End Sub D）Private Sub Command1_Click() Dim B As Book Open "c:\Person.txt" For Input As #1 Name = InputBox("输入姓名") TelNum = InputBox("输入电话号码") Print #1, B.Name, B.TelNum Close #1 End Sub 考核知识点: (1)顺序文件的访问； 答案: A 分析：(1) 在顺序文件中写入信息,首先应以写的顺序访问方式(OutPut或Append)打开文件 (2) 写入记录信息:由于不是采用随机文件访问方式,所以不能将记录作为一个整体顺序方式写入文件,只能将记录信息以数据成员为单位分别写入;记录中数据成员的访问格式:记录变量名.数据成员名;顺序文件写的方式有两种选择:Print 或 Write （35）目录列表框的Path属性的作用是______ A）显示当前驱动器或指定驱动器上的某目录下的文件名 B）显示当前驱动器或指定驱动器上的目录结构 C）显示根目录下的文件名 D）显示指定路径下的文件 考核知识点: (1)目录列表框的Path属性的作用 答案:B 分析：目录列表框也包含有一个隐式属性Path属性，用来设置或返回目录列表框中突出显示的目录名(当前打开的文件夹/当前路径) 二、填空题（每空2分，共30分） 请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。 （1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 【1】 。 （2）算法复杂度主要包括时间复杂度和 【2】 复杂度。 （3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 【3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。 （4）一棵二叉树第六层（根结点为第一层）的结点数最多为 【4】 个。 （5）数据结构分为逻辑结构和存储结构，循环队列属于 【5】 结构。 （6）设有以下函数过程： Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sum End Function 若在程序中用语句 s = fun(10) 调用此函数，则s的值为 【6】 。 考核知识点: (1)函数调用的执行流程 (2)For循环的执行流程 答案:30 分析：(1)在调用程序中，程序执行到调用函数过程的语句后，系统就会将控制转移到被调用的函数过程的定义部分。同时实参和形参结合，将实参10传递给对应的形参m，形参m替代实参执行Fun函数过程;在被调用的函数过程中，从第一条Function语句开始，依次执行其中的所有语句，当执行到End Function语句后，函数名带着返回值返回到主调程序的断点，并从断点处继续程序的执行。调用函数过程的执行流程图如下所示 s = fun(10) Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 循环次数 sum k 0 0 10 1 10 8 3 18 6 4 24 4 5 28 2 6 30 0 sum = sum + k Next k fun = sum End Function (2) （7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click( ) Dim str As String, s As String, c As String str = UCase(Text1) s = "" c = "Z" While c >= "A" If InStr(str, c) = 0 Then ‘将未在文本框内容str中出现英文字母c累加连接入s中 s = 【7】s & c End If ‘根据题目要求逆序取英文字符c的下一个英文字母 c = Chr$(Asc(c) 【8】- 1 ) Wend If s <> "" Then Text1 = s End If End Sub （8） 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。 Private Sub Command1_Click( ) Dim r As Integer, n As Integer n = Text1 ‘文本框1中读取运动员总人数,存入变量n中 r = Text2 ‘文本框2中读取选取的参加人数,存入变量r中 Text3 = fun(n) / fun(【9】n-r ) / fun(r) ‘根据公式调用fun函数,完成计算 End Sub Function fun(n As Integer) as long ‘根据对累乘n!算法的了解和题目的功能要求,确认Fun函数完成n!的计算 Dim t As Long 【10】t=1 ‘设置累乘器的初值为1 For k = 1 To n t = t * k ‘分析出t是累乘器,推导出填空10的答案 Next fun = t End Function （9）以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。 Private Sub Command1_Click( ) Dim k As Integer Dim sum As Single, max As Single, min As Single sum = Text1(0) max = Text1(0) min = 【11】 Text1(0) For k = 【12】 1 To 6 If max < Text1(k) Then max = Text1(k) End If If min > Text1(k) Then min = Text1(k) End If sum = sum + Text1(k) Next k Text2 = (【13】sum-max-min ) / 5 End Sub （10）如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Command1_Click() Dim k As Integer, n As Integer, found As Boolean ‘设置查找成功标志变量found初始值为False表示没有查找到 found = False n = Len(【14】Text1.Text 或Text1 ) k = 0 While k < List1.ListCount And Not found If Text1 = Left$(List1.List(k), n) Then ‘若查找到 ‘将查找到的详细信息列表项信息通过文本框2显示 Text2 = 【15】List1.List(k) found = True ‘设置标志变量found为True表示查找成功 End If k = k + 1 Wend If Not found Then ‘分析出：found的值为False表示没有查找到 Text2 = "查无此人" End If End Sub 2005年9月全国计算机等级考试二级VB笔试试卷（含参考答案） 选择题 【 1- 5】 CACDC 【 6-10】 DAABB 【11-15】 BCCDC 【16-20】 CABBA 【21-25】 DAADC 【26-30】 ADBAC 【31-35】 CCDAB 填空题 【1】数据库系统 【2】空间 【3】驱动模块 【4】32 【5】存储结构 【6】30 【7】s&c 【8】-1 【9】n-r 【10】t=1 【11】text1(0) 【12】1 【13】（sum-max-min） 【14】text1.text 【15】list1.list(k) ---------------②--------------------------- ------------①------------ ① ② ③ � EMBED Word.Picture.8 ��� � EMBED Word.Picture.8 ��� _1204134285.unknown _1280302647.doc _1197100436.doc