1、国家二级 VB 机试（上机操作）-试卷 10 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上建立一个名称为 cmdArray 的命令按钮数组，含 3 个命令按钮，它们的 Index 属性分别为 0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为 400、900。窗体的标题为“按钮示例”。运行后的窗体如图 226 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsjlvbp，窗体文件名为 vbs
2、i1frm。 (2)在名称为 Forml 的窗体上画一个名称为 Drv1 的驱动器列表框，一个名称为Dir1 的目录列表框，一个名称为 Filel 的文件列表框，名称为 Labell、标题为“文件名”的标签和名称为 Label2、BorderStyle 为 1 的标签。窗体的标题设置为“文件系统控件”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2 中，如图 227 所示。（分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)学
3、生文件夹下的工程文件 sjt3vbp 中有一个初始内容为空、且带有垂直滚动条的文本框，其名称为 Text1：两个标题分别为“读数据”和“查找”的命令按钮，其名称分别为 Cmd1、Cmd2。请画一个标题为“查找结果”的标签 Labet1，再画一个名称为 Text2，其初始内容为空的文本框，如图 295 所示。程序功能如下： 单击“读数据”按钮，则将考生文件夹下 in3dat 文件中已按升序排列的 30 个整数读入一维数组 a 中，并同时显示在 Text1 文奉框内； 单击“查找”按钮，将弹出输入框接收用户输入的任意一个偶数，若接收的数为奇数，则提示重新输入。如果接收的偶数超出一维数组 a 的数值
4、范围，则无须进行相应查找工作，直接在 Text2 内给出结果；否则，在一维数组 a 中查找该数，并根据查找结果在 Text2 文本框内品示相应信息。命令按钮的 Click 事件过程已给出，但“查找”按钮的 Click 事件过程不完整，请将其中的注释符去掉，把?改为止确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (2)考生文件夹下的工程文件 sjt4vbp 中有一个初始内容为空的文本框 Text1，一个包含三个元素的文本框控件数组 Text2，两个标题分别是“读数据”和“统计”的命令按钮，两个分别含有三个元素的标签控件数组 Label
5、1 和 Label2，如图 296 所示。程序功能如下： （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生的文件夹下有一个工程文件 sit5vbp，相应的窗体文件为 sjt5frm。在窗体上有两个命令按钮，其名称分别为 Command1 和 Command2，标题分别为“写文件”和“读文件”，如图 277(a)所示。其中“写文件”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件 t5txt 中；而“读文件”命令按钮事件过程用来读出文件 t5txt 中的每个记录，并在窗体上显示出来。通信录中的每个记录由三个字段组成，结构如下： 姓名(Name) 电话(Tel
6、) 邮政编码(Pos) LiuMingliang(0 1 0)6278 1234 1 00082 各字段的类型和长度为： 姓名(Name)：字符串 15 电话(Tel)：字符串 15 邮政编码(Pos)：长整型(L0ng) 程序运行后，如果单击“写文件”命令按钮，则可以随机存取方式打开文件 t5txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否冉输入新记录，同答“Y”(或“y”)则输入新记录，回答“N”(或“n”)则停止输入：如果单击“读文件”命令按钮，则可以随机存取方式打开文件t5txt，读出文件中的全部记录，并在窗体上显示出来，如图 277(b)所示。该程序不完整，请把它补
7、充完整。要求如下：去掉程序中的沣释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。 文件 t5txt 中已有三个记录，如图 277(b)所示，请运行程序，单击“写义件”命令按钮，向文件 t5txt 中添加以下曲个记录(仝部采用两文方式)： LiDaqing(0271873487654 30065 ChenOingshan(022)26874321 3001 20 运行程后，单击“读文件”命令按钮，在窗体上显示全部记录(共 5 个)。 用原来的文件名保存工程文件和窗体文件。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 10 答案解析(总分：6.00，做
8、题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上建立一个名称为 cmdArray 的命令按钮数组，含 3 个命令按钮，它们的 Index 属性分别为 0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为 400、900。窗体的标题为“按钮示例”。运行后的窗体如图 226 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsjlvbp，窗体文件名为 vbsi1frm。 (2)在名称为 Forml 的窗体上画一个名称为 Drv1 的
9、驱动器列表框，一个名称为Dir1 的目录列表框，一个名称为 Filel 的文件列表框，名称为 Labell、标题为“文件名”的标签和名称为 Label2、BorderStyle 为 1 的标签。窗体的标题设置为“文件系统控件”。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2 中，如图 227 所示。（分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，单击工具箱中的CommandButton
10、控件例标，在窗体 Forml 上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为cmdArray，Width 属件值设置为 900。Height 属性值设置为 400。 步骤 2；选中 cmdArray 控件，选择【编辑】【复制】命令，然后选择【编辑】【粘贴】命令，在弹出的询问是否建市控件数组的对话框中，选择“是”按钮，如图 3 一 1 所示，则可以建立 cmdArray 摔件数细的第 2 个元素。再次选择【编辑】【粘贴】命令建立 cmdArray 控件数组的第 3 个元素。 步骤 3：依次选中 cmdArray 控件数组中各个元素，设置它们的相关属件，属性及其值如表 316 所示。 步
11、骤 4：按要求将文件保存争考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建“标准 EXE”工程，行窗体 Forml 中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表317 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)学生文件夹下的工程文件 sjt3vbp 中有一个初始内容为空、且带有垂直滚动条的文本框，其名称为 Text1：两个标题分别为“读数据”和“查找”的命令按钮，其名称分别为 Cmd1、Cmd2。请画一个标题为“查找结果”的标签 Labet1，再画一个名称为 Text2，其初始内容为空的文本框
12、，如图 295 所示。程序功能如下： 单击“读数据”按钮，则将考生文件夹下 in3dat 文件中已按升序排列的 30 个整数读入一维数组 a 中，并同时显示在 Text1 文奉框内； 单击“查找”按钮，将弹出输入框接收用户输入的任意一个偶数，若接收的数为奇数，则提示重新输入。如果接收的偶数超出一维数组 a 的数值范围，则无须进行相应查找工作，直接在 Text2 内给出结果；否则，在一维数组 a 中查找该数，并根据查找结果在 Text2 文本框内品示相应信息。命令按钮的 Click 事件过程已给出，但“查找”按钮的 Click 事件过程不完整，请将其中的注释符去掉，把?改为止确的内容，以实现上述
13、程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 (2)考生文件夹下的工程文件 sjt4vbp 中有一个初始内容为空的文本框 Text1，一个包含三个元素的文本框控件数组 Text2，两个标题分别是“读数据”和“统计”的命令按钮，两个分别含有三个元素的标签控件数组 Label1 和 Label2，如图 296 所示。程序功能如下： （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sisvbD，打开代码编辑窗口，去掉程序中的注释符“*”，将问号“?”改为正确的内容。 参考代码： If hum2Fix
14、(num2)Then If numa(1)Or numa(30)Then If a(n)=num Then If n30 Then 步骤2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的奉题工程文件 sit4vbp，打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Avg=(a(i，2)+a(i，3)2 Case Is=85 Case 60 To 84 End Select Text2(n 一 1)=x(n) 步骤2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生的文件
15、夹下有一个工程文件 sit5vbp，相应的窗体文件为 sjt5frm。在窗体上有两个命令按钮，其名称分别为 Command1 和 Command2，标题分别为“写文件”和“读文件”，如图 277(a)所示。其中“写文件”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件 t5txt 中；而“读文件”命令按钮事件过程用来读出文件 t5txt 中的每个记录，并在窗体上显示出来。通信录中的每个记录由三个字段组成，结构如下： 姓名(Name) 电话(Tel) 邮政编码(Pos) LiuMingliang(0 1 0)6278 1234 1 00082 各字段的类型和长度为： 姓名(Name)
16、：字符串 15 电话(Tel)：字符串 15 邮政编码(Pos)：长整型(L0ng) 程序运行后，如果单击“写文件”命令按钮，则可以随机存取方式打开文件 t5txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否冉输入新记录，同答“Y”(或“y”)则输入新记录，回答“N”(或“n”)则停止输入：如果单击“读文件”命令按钮，则可以随机存取方式打开文件t5txt，读出文件中的全部记录，并在窗体上显示出来，如图 277(b)所示。该程序不完整，请把它补充完整。要求如下：去掉程序中的沣释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。 文件 t5txt 中已有三
17、个记录，如图 277(b)所示，请运行程序，单击“写义件”命令按钮，向文件 t5txt 中添加以下曲个记录(仝部采用两文方式)： LiDaqing(0271873487654 30065 ChenOingshan(022)26874321 3001 20 运行程后，单击“读文件”命令按钮，在窗体上显示全部记录(共 5 个)。 用原来的文件名保存工程文件和窗体文件。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： RecNum=RecNum+1 Put#1，RecNum，Pers Loop While UCase(asp) ”N” RecNum=LOE(1) Len(Pers) Get#1， i， Pers 步骤 2：按F5键运行程序，先单击“写文件”按钮，然后往弹出的输入框中依次按照题目要求输入两条记录，再单击“读文件”按钮在窗体上显示结果。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
