1、国家二级 VB机试（上机操作）模拟试卷 111及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个文本框，其名称分别为 Text1和 Text2，它们的高、宽分别为 300、 2400和 1200、 2400。窗体的标题为 “窗口 ”。请通过属性窗口设置适当的属性满足以下要求： Text2可以显示多行文本，且有垂直和水平两个滚动条； 运行时在 Text1中输入的字符都显示为 “*”。运行后的窗体如图 3-148所示。注意：存盘时必 须存放在考生文件夹下，工程文件名为sjtl vbp，窗体
2、文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个图像框，名称为 Imagel，其高、宽分别为 1900、 1700，通过属性窗口把考生文件夹下的图像文件 picl bmp装入图像框；再画两个命令按钮，名称分别为 C1、 C2，标题分别为 “放大 ”、 “缩小 ”，如图 3 149所示。 要求： 请编写适当的事件过程，程序运行后，如果单击 “放大 ”按钮，则把图像框的高度、宽度均增加100：单击 “缩小 ”按钮，则把图像框的高度、宽度均减少 100。要求程序中不得使用任 何变量。 通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。注意：
3、存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，并单击 “确定 ”按钮，则对文本框中的文字做相应的设置，如图 3 100所示。窗体上的控件已经画出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。注意：不能修改已经给出 的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮；必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原
4、文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体中已经给出了所有控件。程序运行时，单击 “读入文件 ”按钮，将显示一个 “打开 ”对话框，可以在该对话框中选择考生文件夹下的文本文件 in4 txt，并把该文件的内容显示到 Text1文本框中。要求：请去掉程序中的注释符，并把程序中的 ?改为正确的内容，使其能正确运行，但不能修 改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 考生文件夹下的工程文件 sit5 vbp中有一个初始内容为空的文本框 Text1，两个标题分别是 “读数据 ”和 “计算 ”的命令按钮；请画一个标题为 “
5、各行平均数的最大值为 ”的标签 Label2，再画一个初始内容为空的文本框 Text2，如图 3 97所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读入 20行 5列的二维数组 a中，并同时显示在 Text1文本框内； 单击 “计算 ”按钮，则自动统计二维 数组 a中各行的平均数，并将这些平均数中的最大值显示在 Text2文本框内。 “读数据 ”按钮的 Click事件过程已经给出，清编写 “计算 ”按钮的 Click事件过程实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用 “计算 ”按钮进行计算，且必须用窗体右
6、上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 111答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写两个命令按钮的 Click事件过程。 参考代码： prirate Sub C1 Click() Imagel Width=Imagel Width+100
7、Imagel Height=Imagel Height+1 00 End Sub Private Sub C2 C1ick() Imagel Width=Imagel Width一 100 Imagel Height=Imagel Height一 100 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，编写 “确定 ”按钮的 Click事件过程，代码如下。 参考代码： Private Sub Commandl C1ick() If Op
8、l Value Then Textl FontName=Opl Caption E1se If Op2 Value Then Text 1 FontName=Op2 Caption End If If Chl Value=1 Then Textl FontUnderline=True Else Text1 FontUnderline=False End If If Ch2 Value=1 Then Text1 FontItalic=True Else Text1 FontItalic=False End If End Sub 步骤 3：按 键运行程序，选中一个单选按钮和至少一个复选框，并单击
9、“确定 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “。 ”，将问号 “?”改为正确的内容。 参考代码： Private Sub Commandl Click() Dim n As Long CDl FileName=“” CDI Filter=”所有文件 * *文本文件 * txt Word文档 * doc” CD1 FiiterIndex=2 CD1 Action=1 If CDl FileName“”Then Open
10、CDI FileName For Input As拌 1 n=LOF(1) Text1=Input$(n， #1) Close#1 End If End Sub 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】步骤 1：打开考生文件夹中的本题工程文件sjt5 vbp，在窗体 Forml中画一个标签和一个文本框，其属性及值如表 4 54所示。 步骤 2：打开代码编辑窗口，在指定位置编写以下代码：参考代码： For i=1 To 2 0 Sum=0 For j=1 To 5 Sum=sum+a(i， j) Next Avq=Sum 5 If i=1 Then Max=Avg ElseIf Nax键运行 程序，先单击 “读数据 ”按钮，接着单击 “计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。步骤 4：按要求将文件保存至考生文件夹中。
