1、VB机试模拟试卷 129及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VsualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画出包含三个命令按钮的控件数组，名称为 cmdl，下标分别为0、 1、 2， Caption分别为 “开始 ”、 “停止 ”和 “退出 ”，如图 1-30(a)所示。通过属性窗口设置各命令按钮的属性，使得程序开始运行时， “停止 ”按钮不可见。 “退出 ”按钮不可用如图 1-30(b)所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtl frm，工 程文件名为 sjtl vbp。(2)在名称为
2、 Forml的窗体上画两个名称分别为 Commandl和 Command2、标题分别为 “打开 ”和 “保存 ”的命令按钮，和一个名称为 CDI的通用对话框，如图 1-31所示。请在属性窗口中设置 CDI的属性，使得打开通用对话框时，其初始路径是 “C： ”。再编写适当的事件过程，使得运行程序，分别单击 “打开 ”或 “保存 ”按钮时，相应地出现 “打开 ”或 “保存 ”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。二、简单应用题（ 40分） 2 (1)考生文件夹下的工程文
3、件 sjt3 vbp中有一个初始内容为空、且带有垂直滚动条的文本框，其名称为 Textl：两个标题分别为 “读数据 ”和 “查找 ”的命令按钮，其名称分别为 Cmdl、 Cmd2。请画一个标题为 “查找结果 ”的标签 Labell，再画一个名称为 Text2，其初始内容为空的文本框，如图 1-193所示。程序功能如下： 单击“读数据 ”按钮，则将考生文件夹下 in3 dat文件中已按升序排列的 30个整数读入一维数组 a中，并同时显示在 Textl文本框内； 单击 “查找 ”按钮，将弹出输入框接收用户输入的任意一个偶数，若接收的数为奇数，则提示重新输入。如果接收的偶数超出一维数组 a的数值范围
4、，则无须进行相应查找工作，直接在 Text2内给出结果；否则，在一维数组 a中查找该数，并根据查找结果在 Text2文本框内显示相应信息。命令按钮的 Click事件过程已给出，但 “查找 ”按钮的 Click事件过程不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。(2)考生文件夹下的工 程文件 sjt4 vbp中有一个初始内容为空的文本框 Textl，一个包含三个元素的文本框控件数组 Text2，两个标题分别是“读数据 ”和 “统计 ”的命令按钮，两个分别含有三个元素的标签控件数组 Labell和
5、Label2，如图 1-194所示。程序功能如下： 考生文件夹下 in4 dat文件中存有 20个考生的考号及数学和语文单科考试成绩。单击 “读数据 ”按钮，可以将 in4 dat文件内容读入到 20行 3列的二维数组 a中，并同时显示在 Textl文本框内； 单击“统计 ”按钮，则对考生数学和语文的平均分在 “优秀 ”、 “通过 ”和 “不 通过 ”三个分数段的人数进行统计，并将人数统计结果显示在控件数组 Text2中相应位置。其中，平均分在 85分以上 (含 85分 )为 “优秀 ”，平均分在 60 85分之间 (含 60分 )为 “通过 ”，平均分在 60分以下为 “不通过 ”。命令按钮
6、的 Click事件过程已经给出，但 “统计 ”按钮的 Click事件过程不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹中有一个工程文件 sjt5 vbp， 如图 1-48所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a中。单击 “计算 ”按钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果显示在标签 lblFirst中；同时计算矩阵主对角线的元素之和，计算结果显示在标签 lblSecond中。已给出了部分程序，请编写 “计算 ”命
7、令按钮事件过程中的部分程序代码，以便完成上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后。必须执行程序，并用 “计算 ”按钮进行计算，否则无成绩。VB机试模拟试卷 129答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表2-16在窗体中用 “复制 ”和 “粘贴 ”画出控件数组并设置属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：新建一个 “标准 EXE工程，选择【工程】 【部件】命令，在弹出的 “部件 ”对话框的列表中选中 “M
8、icroSoftCommon Dialog Control6 0”项目，单击 “确定 ”按钮。 步骤 2：在窗体 Forml上画一个通用对话框，其相关属性设置如表 2-17所 示。 步骤 3：编写两个命令按钮的 Click事件，加入下面的代码： 参考代码： PriVate Sub Commandl_Click() CDI ShowOpen 或 CDI Action=1 End Sub PriVate Sub Command2_Click() CDI ShowSave 或 CDI Action=2 End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 本题只需按题
9、目要求画出含三个元素的按钮数组，并分别设置 Caption属性。 第 2小题 通用对话框的 InitDir属性用于为打开或另存为对话指定初始的目录，如果此属性没有指定，则使用当前目录。 本题需要在两个命令按钮的单击事件中调用通用对话框来打开不同类型的对话框。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If num 230 Then 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：打开考生
10、文件中的本题工程文件 sjt4 vbp，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Avg； (a(i， 2)+a(i， 3) 2 Case Is=85 Case 60 To 84 End Select Text2(n-1)=x(n) 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 在 “查找 ”按钮的单击事件中，首先使用变量 hum接收输入框的值，然后判断num是否为偶数，如果为奇数 (num 2N-k+1 Then If a(k， N-k+1) 3=Int(a(k， N-k+ 1) 3)Then Counter=Counte
11、r+l End If End If Next 1blSecond Caption=Sum lblFirst Caption=Counter 步骤 2：按 键运行程序，然后单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 矩阵主对角线上元素的特点：第一维下标与第二维下标相同； 7*7矩阵次对角线上元素的特点：第一维下标与第二维下标之和为 8。根据题意，可通过一个 For循环，将满足主对角线上元素特点的数组元素累加入变量 Sum。再通过一个嵌套的 For循环逐一判断满足两个对角线上的元素特点的元素能否被 3整除，若某数组元素能被 3整除，则记录个数的变量 Counter增 1。
