1、计算机等级考试二级 VISUAL+BASIC 机试 6 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.VB 中有这样一类文件：该文件不属于任何一个窗体，而且仅包含程序代码，这类文件的扩展名是( )。A) . vbp B) . bas C) . vbw D) . frm（分数：1.00）A.B.C.D.2.下列关于栈叙述正确的是( )。A) 栈顶元素最先能被删除 B) 栈顶元素最后才能被删除C) 栈底元素永远不能被删除 D) 栈底元素最先被删除（分数：1.00）A.B.C.D.3.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)
2、。下面属于应用软件的是( )。A) 学生成绩管理系统 B) C 语言编译程序C) UNIX 操作系统 D) 数据库管理系统（分数：1.00）A.B.C.D.4.向文本框中输入字符时，下面能够被触发的事件是( )。A) GotFocus B) KeyPress C) Click D) MouseDown（分数：1.00）A.B.C.D.5.要删除列表框中最后一个列表项，正确的语句是( )。A) List1. RemoveItem ListCount B) List1. RemoveItem List1. ListCountC) List1. RemoveItem ListCount - 1 D)
3、 List1. RemoveItem List1. ListCount - 1（分数：1.00）A.B.C.D.6.满足下列条件之一的年份是闰年：1)年份能被 4 整除但不能被 100 整除2)年份能被 400 整除若 y 代表年份，下面判断闰年的正确表达式是( )。A) y Mod 4 And y Mod 100 Or y Mod 400B) y Mod 4 =0 Or y Mod 100 0 And y Mod 400 =0C) y Mod 100 0 And(y Mod 4 =0 Or y Mod 400 =0)D) y Mod 4 =0 And y Mod 100 0 Or y Mod
4、 400 =0（分数：1.00）A.B.C.D.7.能够产生 1 到 50 之间(含 1 和 50)随机整数的表达式是( )。A) Int(Rnd*51) B) Int(Rnd(50)+1) C) Int(Rnd*50) D) Int(Rnd*50+1)（分数：1.00）A.B.C.D.8.以下关于键盘事件的叙述中，错误的是( )。A) 按下键盘按键既能触发 KeyPress 事件，也能触发 KeyDown 事件B) KeyDown、KeyUp 事件过程中，大、小写字母被视作相同的字符C) KeyDown、KeyUp 事件能够识别 Shift、Alt、Ctrl 等键D) KeyCode 是 K
5、eyPress 事件的参数（分数：1.00）A.B.C.D.9.结构化程序所要求的基本结构不包括( )。A) 顺序结构 B) GOTO 跳转C) 选择(分支)结构 D) 重复(循环)结构（分数：1.00）A.B.C.D.10.关于 KeyPress 事件，以下叙述中正确的是( )。A) 在控件数组的控件上按键盘键，不能触发 KeyPress 事件B) 按下键盘上任一个键时，都能触发 KeyPress 事件C) 按字母键时，拥有焦点的控件的 KeyPress 事件会被触发D) 窗体没有 KeyPress 事件（分数：1.00）A.B.C.D.11.要求如果 x 被 7 除余 2，则输出 x 的值
6、，下列语句中不能实现此功能的语句是( )。A) If x mod 7 = 2 Then Print x B) If x - (x/7) * 7 = 2 Then Print xC) If x - (x/7) * 7 = 2 Then Print x D) If x - Int(x/7) * 7 = 2 Then Print x（分数：1.00）A.B.C.D.12.设窗体上有一个通用对话框控件 CD1，希望在执行下面程序时，打开如图所示的文件对话框：Private Sub Command1_Click()CD1. DialogTitle = “打开文件“CD1. InitDir = “C: “
7、CD1. Filter = “所有文件| *. * |Word 文档| *. doc |文本文件| *. txt“CD1. FileName = “ “CD1. Action = 1If CD1. FiteName = “ “ ThenPrint“未打开文件“ElsePrint“要打开文件“ yEnd Sub运行程序后单击命令按钮，窗体上显示的是( )。A) 100 100 B) 100 120 C) 110 100 D) 110 120（分数：1.00）A.B.C.D.二、基本操作题(总题数：2，分数：18.00)41.在名称为 Form1 的窗体上添加三个单选按钮，其名称分别为 Optio
8、n1、Option2 和 Option3(如图 1 所示)，然后通过属性窗口设置窗体和单选按钮的属性，实现如下功能：窗体标题为“设置单选按钮属性”；三个单选按钮的标题分别为“按钮 1”、“按钮 2”和“按钮 3”；初始状态为，第一个单选按钮为“选中”；程序运行后，第二个单选按钮“不可用”；程序运行后，第三个单选按钮不可见。程序的运行情况如图 2 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1. vbp，窗体文件名为 sjt1. frm。（分数：9.00）_42.在名称为 Form1 的窗体上画一个垂直滚动条和一个命令按钮，其名称分别为 VScroll1
9、和 Command1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性：Max=窗体高度Min=0LargeChange=50SmallChange=10如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的刻度值。程序的运行情况如图所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2. vbp，窗体文件名保存为 sjt2. frm。（分数：9.00）_三、简单应用题(总题数：2，分数：24.00)43.在考生文件夹下有一个工程文件 sjt3. vbp，相应的窗体文件为 sjt3. fim。其功能是随机产生 20 个0100
10、0 的整数，放入一个数组中，然后输出这 20 个整数中小于 500 的所有整数之和。程序运行后，单击命令按钮(名称为 Command1，标题为“输出小于 500 的整数之和”)，即可求出这些整数的和，并显示在窗体上(如图所示)。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：12.00）_44.在考生文件夹下有一个工程文件 sjt4. vbp，相应的窗体文件为 sjt4. frm 在窗体上有一个文本框和一个命令按钮。当程序运行后，单击命令按钮，即可计算出
11、0100 范围内所有偶数的平方和，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算偶数平方和的操作在通用过程 Fun 中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function 之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。（分数：12.00）_四、综合应用题(总题数：1，分数：18.00)45.在考生文件夹下有一个工程文件 sjt5. vbp，相应的窗体文件为 sjt5. frm，此外还有一个名为datain. txt 的文本文件，其内容如下：32 43 76 58 28 12 98 57 31 4
12、2 53 6475 86 97 13 24 35 46 57 68 79 80 59 37程序运行后，单击窗体，将把文件 datain. txt 中的数据输入到二维数组 Mat 中，按 5 行、5 列的矩阵形式在窗体上显示出来，并输出矩阵右上-左下对角线上的数据，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。（分数：18.00）_计算机等级考试二级 VISUAL+BASIC 机试 6 答案解析(总分：100.00，
13、做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.VB 中有这样一类文件：该文件不属于任何一个窗体，而且仅包含程序代码，这类文件的扩展名是( )。A) . vbp B) . bas C) . vbw D) . frm（分数：1.00）A.B. C.D.解析：vbp 工程文件，包含与管理工程有关的所有的文件和对象清单。. bas 标准模块文件，包含公用的一些变量和过程等代码。. vbw 工作区文件，包含了该工程中各窗体(指开发区窗体，如代码窗、设计窗)的位置。. frm 窗体文件，包含了窗体及窗体中包含的各控件的代码、属性等信息。故选项 B 正确。2.下列关于栈叙述正确的是(
14、 )。A) 栈顶元素最先能被删除 B) 栈顶元素最后才能被删除C) 栈底元素永远不能被删除 D) 栈底元素最先被删除（分数：1.00）A. B.C.D.解析：解析 栈是先进后出的数据结构，所以栈顶元素最后入栈却最先被删除。栈底元素最先入栈却最后被删除。所以选择 A。3.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。A) 学生成绩管理系统 B) C 语言编译程序C) UNIX 操作系统 D) 数据库管理系统（分数：1.00）A. B.C.D.解析：解析 软件按功能可以分为：应用软件、系统软件、支撑软件。操作系统、编译程序、汇编程序、网络软件、数据库管理
15、系统都属于系统软件。所以 B、C、D 都是系统软件，只有 A 是应用软件。4.向文本框中输入字符时，下面能够被触发的事件是( )。A) GotFocus B) KeyPress C) Click D) MouseDown（分数：1.00）A.B. C.D.解析：解析 向文本框输入文本时，有按键的动作，所以会触发 KeyPress 事件。故选 B。5.要删除列表框中最后一个列表项，正确的语句是( )。A) List1. RemoveItem ListCount B) List1. RemoveItem List1. ListCountC) List1. RemoveItem ListCount
16、- 1 D) List1. RemoveItem List1. ListCount - 1（分数：1.00）A.B.C.D. 解析：解析 ListCount 属性返回列表框中列表项的个数，列表项的索引号从 0 开始，所以要删除最后一个列表项，ReMoveItem 方法中的索引号就应该是 List1. ListCount - 1，故 D 选项正确。6.满足下列条件之一的年份是闰年：1)年份能被 4 整除但不能被 100 整除2)年份能被 400 整除若 y 代表年份，下面判断闰年的正确表达式是( )。A) y Mod 4 And y Mod 100 Or y Mod 400B) y Mod 4
17、=0 Or y Mod 100 0 And y Mod 400 =0C) y Mod 100 0 And(y Mod 4 =0 Or y Mod 400 =0)D) y Mod 4 =0 And y Mod 100 0 Or y Mod 400 =0（分数：1.00）A.B.C.D. 解析：解析 根据闰年的条件，笫一个条件是并且的关系，要用 And 运算符。整除用 Mod 运算符，取模后为 0，说明能整除，不为 0，说明不能整除。所以第一个条件为 y Mod 4=0 And y Mod 100 0。第二个条件是能被 400 整除，所以是 y Mod 100=0。满足其中任何一个条件就行，两个条
18、件之间是或者关系，所以用 Or 运算符。综合一下，故 D 选项正确。7.能够产生 1 到 50 之间(含 1 和 50)随机整数的表达式是( )。A) Int(Rnd*51) B) Int(Rnd(50)+1) C) Int(Rnd*50) D) Int(Rnd*50+1)（分数：1.00）A.B.C.D. 解析：解析 Rnd 函数产生 01 之间的随机数，不包括 0 和 1。要产生 150(也含 1 和 50)之间的随机整数，可以先产生 050 之间的随机整数，然后再这个基础上加 1。故 D 选项正确。8.以下关于键盘事件的叙述中，错误的是( )。A) 按下键盘按键既能触发 KeyPress
19、 事件，也能触发 KeyDown 事件B) KeyDown、KeyUp 事件过程中，大、小写字母被视作相同的字符C) KeyDown、KeyUp 事件能够识别 Shift、Alt、Ctrl 等键D) KeyCode 是 KeyPress 事件的参数（分数：1.00）A.B.C.D. 解析：解析 当用户按下键盘上的任意键时，会触发当前拥有焦点对象的 KeyDown 事件，用户松开键盘上任意键时，就会触发 KeyUp 事件。当用户按下又松开键盘上任意键时，触发 KeyPress 事件。故 A 选项正确。KeyDown 事件和 KeyUp 事件均向事件过程返回两个参数 KeyCode 和 Shift
20、。KeyCode 参数返回所按键对应的 ASCII 字符代码的整型数值或键代码常数，大小写字符被看作是相同字符，返回同一个 KeyCode 值。故B 选项正确。Shift 参数用于判断用户是否按下 Shift、Ctrl 和 Alt 键，若用户按下了对应的键，Shift 参数会返回不同的值。根据以上 KeyDown 和 KeyUp 事件能识别 Shift、Ctrl 和 Alt 键。故 C 选项正确。KeyPress 事件只有一个参数 KeyAscii，它可以返回按键对应的 Ascii 值，大小写字母 Ascii 值不同。KeyCode 不是 KeyPress 事件的参数。故 D 选项错误。9.结
21、构化程序所要求的基本结构不包括( )。A) 顺序结构 B) GOTO 跳转C) 选择(分支)结构 D) 重复(循环)结构（分数：1.00）A.B. C.D.解析：解析 1966 年 Boehm 和 Jacopini 证明了程序设计语言仅仅使用顺序、选择和重复三种节本控制结构就足以表达出各种其他形式结构的程序设计方法。10.关于 KeyPress 事件，以下叙述中正确的是( )。A) 在控件数组的控件上按键盘键，不能触发 KeyPress 事件B) 按下键盘上任一个键时，都能触发 KeyPress 事件C) 按字母键时，拥有焦点的控件的 KeyPress 事件会被触发D) 窗体没有 KeyPre
22、ss 事件（分数：1.00）A.B.C. D.解析：解析 A 选项错误原因：在控件数组的任何控件上按键盘键，会触发 KeyPress 事件；B 选项错误原因：只有按键盘上的 ASCII 字符键时，才能触发 KeyPress 事件。ASCII 字符键包括标准键盘上的字符、数字、标点符号、Enter、Tab和Backspace键等，其他键 KeyPress 事件不能识别。D 选项错误原因：窗体也有 KeyPresss 事件。故 C 选项正确。11.要求如果 x 被 7 除余 2，则输出 x 的值，下列语句中不能实现此功能的语句是( )。A) If x mod 7 = 2 Then Print x
23、B) If x - (x/7) * 7 = 2 Then Print xC) If x - (x/7) * 7 = 2 Then Print x D) If x - Int(x/7) * 7 = 2 Then Print x（分数：1.00）A.B.C. D.解析：解析 选项 C 中(x/7)*7 得到的值是 x，x-x=0 返回 False，不执行 Print x，所以不能输出 x 的值。故 C 选项错误。也可以把实际数值带入语句中运行，根据结果就可判断选项。12.设窗体上有一个通用对话框控件 CD1，希望在执行下面程序时，打开如图所示的文件对话框：Private Sub Command1_
24、Click()CD1. DialogTitle = “打开文件“CD1. InitDir = “C: “CD1. Filter = “所有文件| *. * |Word 文档| *. doc |文本文件| *. txt“CD1. FileName = “ “CD1. Action = 1If CD1. FiteName = “ “ ThenPrint“未打开文件“ElsePrint“要打开文件“ yEnd Sub运行程序后单击命令按钮，窗体上显示的是( )。A) 100 100 B) 100 120 C) 110 100 D) 110 120（分数：1.00）A.B. C.D.解析：解析 在标准
25、模块中定义的使用 Public 定义的变量是全局变量，全局变量可以在工程的每个模块、每个过程中使用。如果在过程中有与全局变量同名的过程变量则优先使用过程变量。在命令按钮事件中定义了局部变量 x，与全局变量同名，因此在此事件中使用局部变量，而变量 y 在此过程中没有定义，则仍使用全局变量。因此输出时 x 值为 100，y 值为 120。二、基本操作题(总题数：2，分数：18.00)41.在名称为 Form1 的窗体上添加三个单选按钮，其名称分别为 Option1、Option2 和 Option3(如图 1 所示)，然后通过属性窗口设置窗体和单选按钮的属性，实现如下功能：窗体标题为“设置单选按钮
26、属性”；三个单选按钮的标题分别为“按钮 1”、“按钮 2”和“按钮 3”；初始状态为，第一个单选按钮为“选中”；程序运行后，第二个单选按钮“不可用”；程序运行后，第三个单选按钮不可见。程序的运行情况如图 2 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1. vbp，窗体文件名为 sjt1. frm。（分数：9.00）_正确答案：(解题思路 单选按钮的 Value 属性用于设置或返回每个单选按钮的选中状态：值为 False 表示未选，为 True 表示选中，其 Caption 属性用来设置或返回单选按钮的标题内容。Enabled 属性用于设置用在程序运行时
27、是否有效，值为 True 表示有效，值为 False 表示无效并显示为灰色。Visible 属性用于设置在运行时是否可见，值为 True 表示可见，值为 False 表示不可见。操作步骤 步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 1 和表 2。表 1控件单选按钮1单选按钮2属性NameCaptionValueNameCaptionEnabled设置值Option1按钮1TrueOption2按钮2False表 2控件单选按钮3窗体属性NameCaptionVisibleCaption设置值Option3按钮3False设置单选按钮属性步骤 2：调试并运行程序，关闭程序后
28、按题目要求存盘。)解析：42.在名称为 Form1 的窗体上画一个垂直滚动条和一个命令按钮，其名称分别为 VScroll1 和 Command1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性：Max=窗体高度Min=0LargeChange=50SmallChange=10如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的刻度值。程序的运行情况如图所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2. vbp，窗体文件名保存为 sjt2. frm。（分数：9.00）_正确答案：(解题思路 根据题意，在命令按钮的单击事
29、件过程中用代码动态设置垂直滚动条的属性，并且在垂直滚动条的 Change 事件过程中，用 Print 方法将垂直滚动条滑块位置的 Value 属性值输出到窗体上。操作步骤 步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3。表 3控件命令按钮垂直滚动条属性NameCaptionName设置值Command1Command1VScroll1步骤 2：编写程序代码。参考答案Private Sub Command1_Click()VScroll1. Max = Form1. HeightVScroll1. Min = 0VScroll1. LargeChange = 50VScro
30、ll1. SmallChange = 10End SubPrivate Sub VScroll1_Change()Print VScroll1, ValueEnd Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、简单应用题(总题数：2，分数：24.00)43.在考生文件夹下有一个工程文件 sjt3. vbp，相应的窗体文件为 sjt3. fim。其功能是随机产生 20 个01000 的整数，放入一个数组中，然后输出这 20 个整数中小于 500 的所有整数之和。程序运行后，单击命令按钮(名称为 Command1，标题为“输出小于 500 的整数之和”)，即可求出这些整数的
31、和，并显示在窗体上(如图所示)。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。（分数：12.00）_正确答案：(解题思路 本题要产生随机整数，须使用 Rnd 函数和 Int 函数。Int 函数是将参数转换成整数。Rnd 函数返回小于 1，但大于或等于 0 的值，为了生成某个范围内的随机整数，可使用以下公式：Int(upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，low
32、erbound 则是随机数范围的下限。操作步骤 步骤 1：打开本题工程文件。步骤 2：分析并编写程序代码。程序提供代码Option Base 1Private Sub Command1_Click()Dim arrN(20) As lntegerDim Sum As IntegerRandomizeFor i = 1 To 20arrN (i) = Int ( Rnd * ? )Next iSum = ?For i = 1 To 20If ? ThenSum = ?End IfNext iPrint SumEnd Sub程序结束参考答案第 1 个?处填入：1000第 2 个?处填入：0第 3
33、个?处填入：arrN(i)500第 4 个?处填入：Sum+arrN(i)步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：44.在考生文件夹下有一个工程文件 sjt4. vbp，相应的窗体文件为 sjt4. frm 在窗体上有一个文本框和一个命令按钮。当程序运行后，单击命令按钮，即可计算出 0100 范围内所有偶数的平方和，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算偶数平方和的操作在通用过程 Fun 中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function 之间填入你编写的若干语句。最后将修改后
34、的文件按原文件名存盘。（分数：12.00）_正确答案：(解题思路 根据题意，通过 For 循环语句的循环变量 i(初值为 0，终值为 100，步长为 2)来获得 0100 范围内的所有偶数，并逐一将 i2 的值累加到变量 s，最后将 s 的值显示在文本框中，并将其作为函数返回值。操作步骤 步骤 1：打开本题工程文件。步骤 2：分析并编写程序代码。程序提供代码Sub SaveData()Open App. Path Mat(i, j);Next jPrintNext iPrint: PrintPrint “右上-左下对角线上的数为: “For i = 1 To NFor j = 1 To M If ? ThenPrint Tab(5 * i); Mat(i, j);End IfNext jNext iEnd Sub程序结束参考答案第 1 个?处填入：Mat(N, M) As Integer第 2 个?处填入：For Input第 3 个?处填入：Input #1，Mat(i, j)第 4 个?处填入：i+j=6步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
