1、国家二级 VB机试（上机操作）模拟试卷 92及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Text1的文本框，其高、宽分别为 400、 2000。运行后的窗体如图 3 78所示。请在属性框中设置适当的属性满足以下要求： Textl的字体为 “黑体 ”，字号为 “四号 ”； 窗体的标题为 “输入 ”，不显示最大化按钮和最小化按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个名称为
2、 Imagel的图像框 ,利用属性窗口装入考生目录下的图像文件 picl bmp，并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按钮，名称分别为 Command1、 Command2，标题分别为 “向右移动 ”、 “向下移动 ”。请编写适当的事件过程，使得在运行时，每单击 “向右移动 ”按钮一次，图像框向右移动 100；每单击 “向下移动 ”按钮一次，图像框向下移动 100。运行时的窗体如图 379所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存 放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)在
3、考生文件夹下有一个工程文件 sit3 vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击 “读入数据 ”按钮，可把考生目录下的文件in3 dat中的 100个整数读到数组 a中； 2)从名称为 List1的列表框中选中一项 (如图 3-60所示 )。 3)单击 “计算 ”按钮，则可按该选项的要求计算出结果并放到文本框中。 4)单击窗体右上角的关闭按钮结束程序。 “读入数据 ”按钮的 Click事件过程已经 给出，请为 “计算 ”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，
4、否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体中横线 (横坐标 )的名称为Linel，竖线 (纵坐标 )的名称为 Line2；五个不同颜色的矩形是一个形状控件数组，名称为 Shapel，它们的 Visible属性都为 False；从左到右的两个按钮的名称分别为Command1、 Command2；另有一个有五个元素的标签 数组，名称为 Labell，其所有元素的 Visible属性都为 False。如图 3 61(a)所示。程序运行时，单击 “输入 5个数据 ”按钮，可输入五个整数 (最好在 100 2000之间 )，并作为刻度值显示在纵坐标
5、的左面；单击 “画直方图 ”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是 1200、 500、 800、 1900、 1500，则结果如图 3-61(b)所示。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序巾的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和各控件的属性。最后把 修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 vbsi5 vbp，请先装入该工程文件，然后完成以下操作：在名称为 Forml的窗体上画两个命令按钮，其名称分别为 cmdRead和cmdCal，标题分别为 “读入数据 ”和 “计算保存 ”(如图
6、 3 42所示 )。程序运行后，如果单击 “读入数据 ”按钮，则调用题目所提供的 ReadDatal和 ReadData2过程读入：in5 1 txt和 in52 txt文件中的各 20个整数，分别放入 Arr1和 Arr2两个数组中；如果单击 “计算保存 ”按钮，则把 两个数组中对应下标的元素相减，其结果放入第三个数组中 (即：第一个数组的第 n个元素减去第二个数组的第 n个元素，其结果作为第三个数组的第 n个元素。这里的 n为 1、 2、 、 20)，最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData过程将所求得的和存入考生文件夹下的 out
7、5 dat文件中。 注意：考生不得修改窗体文件中已经存在的程序，且必须执行此程序一次，最后把修改后的文件以原来的文件名存盘。 程序源码： 0ptlon Base lDim Arrl(20) As 工 ntegerDim Arr2(20) As 工 ntegerSub ReadDatal() Open ipp Path ” ” in51 txt”For Input As=I1 For i=1 To 20 Input #1， Arrl(i) Next i Close #1End SubSub ReadData2() 0pen Amp Path “ ”&”in52 txt”F0r Input As#
8、1 For i=1 To 2 0 Input#1， Arr2(i) Next i Close #1End SubSub WriteData(Filename As String， Num As Integer ) 0perl App path “ ” Filename For Output As#1 Print#1， Num Close #1End Sub 国家二级 VB机试（上机操作）模拟试卷 92答案与解析 一、基本操作题 1 【正确答案】 【操作步骤】步骤 1：新建一个 “标准 EXE”工程。步骤 2：按要求画出控件，并在属性窗口中设置其相关属性，属性及值如表 4-45所示。步骤 4：在
9、文本框的属性窗口中单击 “Font”属性右侧的按钮，打开 “字体 ”对话框，在其中设置 “字体 ”为 “黑体 ”， “字号 ”为 “四号 ”。步骤 5：单击窗体无控件区域，在属性窗口中设置窗体相关属性。步骤 6：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个图像框和两个命令按钮，分别设置其相关属性，属性及值如表 4-46所示。 步骤 2：双击 “向右移动 ”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入如图 4 2所示代码。 步骤 3：双击 “向下移动 ”命令按钮，打开代码编辑窗口，在按钮的 Click
10、事件过程中输入如图 4-3所示代码。步骤 4：按要求将文 件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit3 vbp，双击窗体中的 “计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub Command2 C1ick() Dim k As Integer， i1， i2 As Integer i1=a(1)： i2=a(1) For k=2 To 100 If a(k)i1 Then i1=a(k) End If If a(k)键运行程序，单击 “读入数据 ”按钮，然
11、后在列表框中选择一项，并单击 “计算 ”按钮，统计出结果。 步骤 3：单击窗体右上角的关闭按钮以结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjr4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For k=1 To 5 Labell(k一 1) Visible=True Shapel(k一 1) Height=s(k) a=Linel Y1 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】步骤 1：打开考生文件夹中的本题工程
12、文件vbsj5 vbp，按表 426在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，分别编写 “读入数据 “按钮和 “计算保存 ”按钮的单击事件过程。参考代码： Private Sub cmdRead C1ick() ReadDatal ReadData2 End Sub Private Sub cmdCal Click() Dim Arr3(20)As Integer Dim Sum As Integer Sum=0 For i=1 To 2 0 Arr3(i)=Arrl(i)一 Arr2(i) Sum=Sum+Arr3(i) Next Print Sum WriteData“out5 dat”， Sum End Sub步骤 3：按键运行程序，先单击 “读入数据 ”按钮，然后单击 “计算保存 ”按钮。步骤 4：按要求将文件保存至考生文件夹中。
