1、国家二级 VB机试（上机操作）模拟试卷 31及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画两个文本框，其名称分别为 Textl和 Text2，它们的高、宽分别为300、 2400和 1200、 2400。窗体的标题为 ”窗口 ”。请通过属性窗口设置适当的属性满足以下要求： Text2可以显示多行文本，且有垂直和水平两个滚动条； 运行时在 Textl中输入的字符都显示为 ”*”。 运行后的窗体如图 2-166所示。 注意：存盘时必须 存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为
2、sjtl frm。 2 在名称为 Forml的窗体上画一个图像框，名称为 Imagel，其高、宽分别为 1900、1700，通过属性窗口把考生文件夹下的图像文件 picl bmp装入图像框；再画两个命令按钮，名称分别为 Cl、 C2，标题分别为 ”放大 ”、 ”缩小 ”，如图 2-167所示。要求： 请编写适当的事件过程，程序运行后，如果单击 ”放大 ”按钮，则把图像框的高度、宽度均增加 100；单击 ”缩小 ”按钮，则把图像框的高度、宽度均减少 100。要求程序中不得使用任 何变量。 通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。注意：存盘时必须存放
3、在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 ”读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 0 999之间的 100个整数读入数组 a中； 单击 ”计算 ”按钮，则找出这 100个整数中所有水仙花数，并将它们的最大值与最小值分别显示在文本框 Textl、 Text2中。 (注：当一 个数的值等于该数中的各位数字的立方和时，此数被成为水仙花数，如 153=1 sup 3 /sup +5 sup 3 /sup+3 sup 3 /sup，所以 153就是一个水仙花数
4、。 )在窗体文件中已经给出了全部控件 (如图 2-168所示 )和 ”读数据 ”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写 ”计算 ”命令按钮的事件过程。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行 ”计算 ”，且必须通过单击窗体右上角的 ”关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp。请在窗体上画一个组合框，名称为Cbl，并输入三个列表项： ”3”、 ”7”、 ”11”(列表项的顺序不限，但必须是这三个数字 )；画一个名为 Textl的文本框；再画一个标题为 ”计算 ”
5、、名称为 Cl的命令按钮，如图 2-169所示。请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击 ”计算 ”按钮，则计算 5000以内能够被该数整除的所有数之和，并放入 Textl中。最后，按原文件名存盘。提示：由于计算结果较大，应使用长整型变量。注意：考生不得修改窗体 文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，其名称为 Forml的窗体上已有三个文本框。 Textl、 Text2、 Text3，以及程序。请完成以下工作： 在属性窗口中修
6、改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图 2-170所示； 建立下拉式菜单，见表 2-4。 窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确 内容。以便实现以下功能：当光标所在的文本框中无内容时， “剪切 ”、 ”复制 ”不可用，否则可以把该文本框中的内容剪切或复制到 Text3中；若 Text3中无内容，则 ”粘贴 ”不能用，否则可以把 Text3中的内容粘贴在光标所在的文本框中的内容之后。注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷
7、 31答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画两个文本框，并分别设置它们的相关属性，其属性及值如表 3-94所示。步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-95在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写两个命令按钮的 Click事件过程。参考代码： Private Sub Cl_Click( )Imagel Width=Imagel Width+100Imagel Height=Imagel Height+100End SubP
8、rivate Sub C2_Click( )Image1 Width=Imagel Width-100Image1 Height=Imagel Height-100End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，在代码编辑窗口的指定位置编写 ”计算 ”按钮的单击事件过程。 参考代码： Private Sub Command2_Click( ) Max=a(1) Min=a(1) For i=2 To 1 00 If isnarc(a(i) =True Then If a(i) Max The
9、n Max=a(i) If a(i) Min Then Min=a(i) EndIf Next Textl Text=Max Text2 Text=Min End Sub 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 F5键运行程序，先单击 ”读数据 ”按钮，接着单击 ”计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 4 【正确答案】 步骤 1：打开考生文件夹 下的本题工程文件 sjt4 vbp。步骤 2：在窗体 Forml中加入一个组合框、一个文本框和一个命令按钮，分别设置它们的相关属性，其属性及值如表 3-96所示。 步骤 3：双击窗体 Forml中的 ”计算 ”按钮，打
10、开代码编辑窗口，输入如下代码：参考代码：Private Sub Cl_Click( )Dim n As Integer， k As Integer， s As Longn=Val(Cbl Text)s=0For k=n To 50 00If k n= Int(k n)Thens = s + kEnd IfNext kTextl Text=sEnd Sub步骤 4：按要求将文件保存至考生文件夹中。步骤 5：按F5键键运行程序，从列表框中选择一项，单击 ”计算 ”按钮，单击程序右上角的关闭按钮结束程序。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，选中窗体中的文本框 Text3，将其 Visible属性为 False。步骤 2：选择 工具 菜单编辑器 命令，打开菜单设计器，如表 3-97的内容建立窗体菜单。步骤 3：打开代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确 的内容。参考代码： If which=1 ThenIf which=2 ThenText1 Text=Text1 Text+Text3 TextText2 Text=Text2 Text+Text3 Text 步骤 4：按要求将文件保存至考生文件夹中。
