1、国家二级 VB机试（上机操作）模拟试卷 216及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)住名称为 Forml的窗体上画两个文本框，其名称分别为 Text1和 Text2，它们的高、宽分别为 300、 2400和 1200、 2400。窗体的标题为 “窗口 ”。请通过属性窗口设置适当的属性满足以下要求： Text2可以显示多行文本，且有垂直和水平两个滚动条； 运行时在 Text1中输入的字符都显示为 “*”。 运行后的窗体如图 2 148所示。 注意： 存盘时必须存放在考生文件夹下，上程文件名为 sjt1 vbp
2、，窗体文件名为 sjt1 frm。 (2)在名称为 Forml的窗体卜画一个图像框，名称为 Imagel，其高、宽分别为 1 900、 1700，通过属性窗口把考生文件火下的图像文件 picl bmp装入图像框；再画两个命令按钮，名称分别为 C1、 C2，标题分别为 “放大 ”、 “缩小 ”，如图 2-149所示。 要求： 清编写适当的事件过程，税序运行后，如果单击 “放大 ”按钮，则把图像框的高度、宽度均增加 100；单击 “缩小 ”按钮，则把图像框的高度、宽度均减少 100。要 求程序中不得使用任何变量。 通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩
3、小。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击 “确定 ”按钮，则对文本框中的文字做相应的设置，如图 2 100所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。 注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按饥和至少一个复选框，并单击 “确定 ”按钮：必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改
4、后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sit4 vbp。窗体中已经给出了所有控件。程序运行时，单击 “读入文件 ”按钮，将显示一个 “打开 ”对话框，可以在该对话框中选择考生文件夹下的文本文件 in4 txt，并把该文件的内容显示到 Text1文本框中。 要求：请去掉程序中的注释符，并把程序中的 ?改为正确的内 容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在考生文件夹下有一个上程文件 sit5 vbp，相应的窗体文件为 sit5 frm，此外还有一个名为 datain txt的文本文件，其内容
5、如下： 32437658281298573142536475869713243546576879805937 程序运行后单击窗体，将把文件 datain txt中的数据输入到二维数组 Mat中，在窗体上按 5行、 5列的矩阵形式显示出来，然后交换矩阵第二列和第 四列的数据，并在窗体上输出交换后的矩阵，如图 2 72所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容 (可以是多行 )，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试
6、卷 216答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工柙，在窗体 Form1中画两个文本框，并分别设置它们的相关属性，其属 性及值如表 3 79所示。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3 80在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮的 Click事件过程。 参考代码： Private Sub C1一 Click() Imagel Width=Image1 Width+100 Imagel Height=Im
7、agel Height+100 End Sub Private Sub C2一 Click() Imagel Width=Imagel Width一 100 Imagel Height=Imagel Height一 100 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sit3 vbp。 步骤 2：打开代码编辑窗口，编写 “确定 ”按钮的 Click事件过程，代码如下。 参考代码： Private Sub CommandlC1ick() If Opl Value Then Text
8、l FontName=Opl Caption E1seI f Op2 Value Then Textl FontName=Op2 Caption End If If Chl Value=1 Then Textl FontUnderline=True Else Textl FontUnderiime=False End If If Ch2 Value=1 Then Textl FontItal iC=True E1Se Textl FontItaliC=False End If End Sub 步骤 3：按 键运行程序，选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮，最后单击窗体右上角
9、的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 【特别提示】文本框的 FontUnderline属性 值和 Fontltalic属件值一设置为 True，将始终有效，直至将该属性值设置为 False。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Private Sub CommandlClick() Dim n As Long CD1 FileName=” CD1 Filter=所有文件 |*|文本文件 |* txt|Word丈档 |* doc” C
10、D1 FilterIndex=2 CD1 Action=1 If CD1 FileName”Then Open CDI FileName For Input As# n=LOF(1) Textl=Inputs(n， #1) ciose#1 End If End Sub 步骤 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：按要求将文件保存在考生文件夹中。
