1、国家二级 VB机试（上机操作）模拟试卷 327及答案与解析 一、基本操作题 1 (1)在标题为 “列表框 ”、名称为 Form1的窗体上添加一个名称为 List1的列表框，通过属性窗口输入 4个列表项： “数学 ”、 “语文 ”、 “历史 ”、 “地理 ”，列表项形式采用复选框形式，如图所示。列表框的宽为 1100，高不限。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上建立一个名称为 “menu1”、标题为 “文件 ”的弹出式菜单，其含有三个菜单 项，它们的标题分别为： “打开 ”、 “关闭 ”、
2、 “保存 ”，名称分别为 “m1”、 “m2”、 “m3”。再添加一个命令按钮，名称为 “Command1”、标题为 “弹出菜单 ”。要求：编写命令按钮的 Click事件过程，使程序运行时，单击 “弹出菜单 ”按钮可弹出 “文件 ”菜单 (如图所示 )。 注意：程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。二、简单应用题 2 (1)在名称为 Forml的窗体上添加一个名称为 Label1、标题 为 “添加项目 ”的标签；添加一个名称为 Text1的文本框，初始内容为空；添加一个名称为 Com
3、bol的下拉式组合框，并通过属性窗口输入若干项目 (不少于 3个，内容任意 )；再添加两个命令按钮，名称分别为 Command1、 Command2，其标题分别为 “添加 ”、 “统计 ”。在程序运行时，向 Text1中输入字符，单击 “添加 ”按钮后，则将 Text1中的内容作为一个列表项被添加到组合框的列表中；单击 “统计 ”按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。请编写两个命令按钮的 Click事件过程。 注意：程序中不得使用变 量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt3 vbp，窗体文件名保存为 sjt3 frm。(2)在考生文件夹
4、下有一个工程文件sif4 vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为 “明文 ”)加密，加密结果 (称为 “密文 ”)显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击 “加密 ”按钮后，根据选中的单选按钮后面的数字 n，将 “明文 ”中的每个字母改为它后面的第 n个字母 (“z”后面的字母认为是 “a”， “Z”后面的字母认为是 “A”)，如图所示。窗体 中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。 三、综合应用题 3 在考生
5、文件夹下有一个工程文件 sjt5 vbp，按照要求完成以下操作： 在名称为Form1的窗体上添加两个命令按钮，其名称分别为 C1和 C2，标题分别为 “读入数据 ”和 “计算 ”(如图所示 )。程序运行后，如果单击 “读入数据 ”按钮，则调用题目所提供的 ReadDatal和 ReadData2,过程读入 datainl txt和 datain2 txt文件中的各 20个整数，分别放入 Arr1和 Arr2两个数组中；如果单击 “计算 ”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中 (第 1个数组的第 n个元素减去第 2个数组的第 n个元素，其结果作为第 3个数组的第 n个元
6、素。这里的 n为 1、220) ，最后计算第 3个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData过程将所求得的和存入考生文件夹下的 dataout txt文件中。 注意：考生不得修改窗体文件中已经存在的程序，且必须执行一次，最后将修改后的文件 以原来的文件名存盘。国家二级 VB机试（上机操作）模拟试卷 327答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立列表框控件并设置窗体及列表框属性，如图 3 29所示。程序中用到的控件及属性见表 3 41。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘
7、。 (2) 【操作步骤】 步骤 1：建立界面，添加一个命令按钮，设置其 Name属性为 Command1， Caption属性为 “弹出菜单 ”。然后建立一个菜单，菜单的属性见表 3 42。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Commandl_Click() PopupMenu menul显示菜单 menul End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置控件属性，如图 3 22所示。程序中用到的控件及属性设置见表 3 15
8、。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Commandl_Click() Combo1 AddI tem Text1 End Sub Private Sub Command2_Click() Print Combo1 ListCount End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “，将问号改为正确的内容。 Private Sub Commandl Click() Dim n As Integer， k As Integer， m A
9、sInteger Dim C As String， a As String For k=0 To 2 If Opl(k) Value Then n=Val(Op1(k) Caption) End If Next k m=Len(Text1 Text) a=” For k=1 To m C=Mid$(Text1 Text， k， 1) C=String(1，Asc(C)+n) If C ”Z”Or c ”Z”And C ”a”Then C=String(1， Asc(C)一 26) End If a=a+c Next k Text2 Text=a End Sub 步骤 3：调试并运行程序，关闭程
10、序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】步骤 1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮的相应属性，程序中用到的控件及属性见表 3 23。步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 Private Sub C1_Click() Call ReadDatal调用过程 ReadDatal Call ReadData2调用过程 ReadData2 End Sub Private Sub C2 Click() Dim Arr3(1 To 20)As Integer Dim sum As Integer sum=0 For i=1 To 20将 Arr1中对应于 Arr2中的数相减，结果存入 Arr3中 Arr3(i)=Arrl(i)一 Arr2(i) sum=sum+Arr3(i)将 Arr3中的元素累加 Next i Print”sum=”； sum在窗体打印 sum WriteData”dataout txt”， sum End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
