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