1、VB 机试模拟试卷 26 及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 C:wexam25160002。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上建立 1个名称为 Op1的单选按钮数组，含 3个单选按钮，它们的标题依次为 “选择1”、 “选择 2”和 “选择 3”，其下标分别为 0、 1和 2，初始状态下， “选择 2”为选中状态。运行后的窗体如图 26-1所示。 注意；存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp， 窗体文件名为 sjt1.frm。 (2)在
2、窗体上建立 1个二级菜单，第一级含两个菜单项，标题分别为 “编辑 ”和 “帮助 ”，名称分别为 edit和 help。其中“编辑 ”菜单含有 3个子菜单，其标题依次为 “剪切 ”、 “复制 ”和 “粘贴 ”，名称分别为cut、 copy和 paste，如图 26-2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应用题（ 40分） 2 1. 在窗体上画一个名称为 Op1的单选按钮控件数组，其包含 4个单选按钮，Index值从 0到 3，标题 分别为 “答案 1”、 “答案 2”、 “答案 3”和 “答案 4”；再画一个命令按钮
3、，名称为 C1，标题为 “选择 ”；再画一个文本框 Text1，名称为 Text1，内容为空白。编写适当的程序。程序运行时，单击 “选择 ”按钮，只有选择 “答案 1”单选按钮时，在 Text1文本框中显示 “选择正确 ”，否则显示 “选择错误 ”。程序运行结果如图 21所示。注意，保存时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为 sjt3.frm。 2在考生文件夹中有工程文件 sjt4.vbp，其中包含窗体 Form1，该程序是不完整的。请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如
4、下：在窗体上有三个名称分别为 Text1、 Text2、 Text3的文本框，一个名称为 Command1，标题 为 “计算 ”的命令按钮 (如图22所示 )。要求程序运行后，在 Text1和 Text2中分别输入两个整数，单击 “计算 ”按钮后，可把两个整数之间的所有整数 (含着两个整数 )累加起来并在 Text3中显示出来。注意：保存时必须放在考生文件夹下，工程文件名为 sjt4.vbp，窗体文件名为 sjt4.frm。 三、综合应用题（ 30分） 3 注意：下面出现的 “考生文件夹 ”均为 C:wexam25160002。 在考生文件夹下有一个工程文件 sjt5.vbp，在该工程中为考生
5、提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为 Text1的文本框；画一个名称为 C1，标题为 “计算 ”的命令按钮；再画两个单选按钮，名称分别为 Op1和 op2，标题分别为 “求 200到300之间能被 7整除的数之和 ”和 “求 200到 300之间能被 3整除的数之和 ”，如图27-5所示。 请编写适当的事件过程，使得在运行时，选中一个单选按钮， 再单击“计算 ”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。 注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。
6、在结束程序运行之前，必须至少要进行一种计算，否则不得分。VB 机试模拟试卷 26 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 在窗体上建立好控件后，设置控件的属性。 建立控件数组由多种方法，考生可以采取任何一种来建立单选按钮数组。要使 “选择 2”为选中状态，则应该将该控件 的 Value属性值设置 True。 Value属性用来表示单选按钮的状态，它的值可以是 True或 False，当设置为 True时，该单选按钮为选中，否则没有选中。解题步骤： 第一步：建立界面并设置控件的属性。程序中用到的控件及其属性见表 26-1。 第二步：调试并运行程序。 第三步：按题目要求存盘。 (
7、2)在 Visual Basic中，菜单通过 “菜单编辑器 ”窗口来建立。 解题步骤： 第一步：建立界面并设置对象属性。 程序中用到的控件及其属性见表 26-2。 第二步：调试并运行程序。 第三步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 对象主要属性设置如表 3所示。 分析：按试题要求在窗体上画一个单选按钮数组 (含四个单选按钮 )、一个文本框和一个命令按钮，并分别将它们的属性按表 3的内容进行设置。单选按钮是否被选取由其 Value属性来确定，当 Value值为True时，表示单选按钮被选取，否则未被选取，根据题意，只有选择了 Op1(0)单选按钮，将字符串 “选择正
8、确 ”赋给 Text1.Text，否则将字符串 “选择错误 ”赋给了Text1.Text。 编程代码： Private Sub C1_Click() If Op1(0).Value=True Then Text1.Text “选择正确 “ Else Text1.Text “选择错误 “ End If End Sub2 试题提供的程序如下： Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i Text1.Text To? j ?+i Next i Text3.Text j End Sub 要完成两 个数之间所有
9、整数的累加，需要使用循环结构来读取两个数之间所有的整数，然后将每一个整数累加到一个变量中。 修改后的程序如下： Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i Text1.Text To Text2. Text j=j+i Next i Text3.Text j End Su 三、综合应用题（ 30分） 3 【正确答案】 在窗体上建立控件后，先设置控件属性，再事件过程。 程序中提供的事件过程用来求 200 300之间能被 n个整除的数的和，这里 n是传递给Function过程的参数，该 Function过
10、程返回求得和。 文本框用 Text属性来接收用户的输入。按钮的标题由 Caption属性来设置，单击按钮触发的是 Click事件。为了检测单选按钮被选中，可以通过检测其 Value属性来实现，当 Value为 True时，表示该单选按钮被选中，否则未被选中。在按钮的 Click事件过程中通过条件语句来调用 Function过程，实现程序要求的功能。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 27-5。第二步：编写程序代码。 程序提供的代码： Private Function fun(a As Integer) As Integer s% = 0 For i% =
11、200 To 300 If Int(i% / a) = i% / a Then s% = s% + i% End If Next fun = s% End Function Private Sub Form_Unload(Cancel As Integer) Open “out5.txt“ For Output As #1 Print #1, Opl.Value, Op2.Value, Textl.Text Close #1 End Sub 参考答案 Private Function fun(a As Integer) As Integer s% = 0 For i% = 200 To 300
12、 If Int(i% / a) = i% / a Then s% = s% + i% End If Next fun = s% End Function Private Sub C1_Click() If Opl.Value Then Text1 = fun(7) End If If Op2.Value Then Text1 = fun(3) End Sub Private Sub Form_Unload(Cancel As Integer) Open “out5.txt“ For Output AS #1 Print #1, Opl.Value, Op2.Value, Text1.Text Close #1 End Sub 第三步；调试并运行程序。 第四步：按题目要求存盘。
