1、国家二级 VB机试（上机操作）模拟试卷 182及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Picturel的图片框 (PictureBox)，高、宽均为1000。在图片框内再画一个有边框的名称为 Imagel的图像框 (Image)。并通过属性窗口把考生目录下的图标文件 POINTl1(香蕉图标 )装入图像框 Imagel中，如图 2-116所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Form
2、l的窗体上面一个名称为Commandl、标题为 “保存义什 ”的命令按钮，再画一个名称为 CommonDialogl的通用对话框。 要求： 通过属性窗 U设置适当的属性，使得运行时对话框的标题为“保存文件 ”，且默认文件名为 out2； 运行时单击 “保存文件 ”按钮，则以 “保存对话框 ”方式打开该通用对话框。如图 2 117所示。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为 sjl2 vbp，窗体文件名为 sjt2.jfrm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，已给出了所有控件和部分程序。程序
3、运行时，请按以下顺序操作： 1)单击 “读入数据 ”按钮，可把考生对目录下的文件 in3 dat中的 100个整数读到数组 a中： 2)从名称为 List1的列表框中选中一项(如图 260所示 )。 3)单击 “计算 ”按钮，则可按该选项的要求计算出结果并放到文奉框中。 4)单击窗体右上角的关闭按钮结束程序。 “读入数据 ”按钮的 Click事件过程已经给出，请为 “计算 ”按钮编写适当的事件过程实现上述功 能。 注意：不得修改已经在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt
4、4 vbp。窗体中横线 (横坐标 )的名称为 Linel，竖线 (纵坐标 )的名称为 Line2；五个不同颜色的矩形是一个形状控件数组，名称为 Shapel，它们的 Visible属性都为False；从左到右的两个按钮的名称分别为 Command1、 Command2：另有一个有五个元素的标签数组，名称为 Labell，其所有元素的 Visible属性都为 False。如图2 61(a)所示。程序运行时，单击 “输入 5个数据 ”按钮，可输入五个整数 (最好在100 2000之间 )，并作为刻度值显示存纵坐标的左而：单击 “画直方图 ”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是
5、 1 200、 500、 800、 1900、1500，则结果如图 2 61fb)所示。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把稗序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。三、综合应 用题 3 在考生文件夹下有一个上程文件 sit5 vbp，相应的窗体文件为 sit5 frm，此外还有一个名为 datain txt的文本文件，其内容如下： 32437658281298573142536475869713243546576879805937 程序运行后单击窗体，将把文件 datain txt中的数据输
6、入到二维数组 Mat中，在窗体上按 5行、 5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图 2 72所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请 把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容 (可以是多行 )，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 182答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 64在窗体中画出控件并设置其相关属性。
7、步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，选择【工程】 【部件】命令，在弹出的 “部件 ”对话框的列表中选中 “MicroSoft Connon Dialog Control6 0”项目，单击 “确定 ”按钮。 步骤 2： 在窗体 Form1上面一个通用对话框和一个命令按钮，其相关属性设置如表 3 65所示。步骤 3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。 PriVate Sub Commandl一 Click() CommonDialogl Action=2 或 CommonDialogl ShowSave E
8、nd Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：打开考生文件夹中的本题工程文件 sjt3 vbp，双击窗体中的 “计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub Command2一 Click() 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)键运行程序，单击 “读入数据 ”按钮，然后在列表框中选择一项，
9、并单击 “计算 ”按钮，统计出结果。 步骤 3：单击窗体右上角的关闭按钮以结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，在代码编辑窗口，去掉程序中 的注释符 “”，将问号 “7”改为正确的内容。 参考代码： For k=1 To 5 Labell(k一 1) Visible=True Shapel(k一 1) Height=S(k) a=Linel Y1 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题对应工程文件 sit5 vbp。 步骤 2：打开代码编辑窗口，去掉稃序中的汴释符 “”，将问号 “?”改为正确的内容。 参考代码： Dim Mat (M， N) As Integer Open App.Path ” ”datan txt”For Input As： #1 Input#， Mat(i， j) Nat(i， 4)=t 步骤 3：按要求将文件保存在考生文件夹中。
