1、国家二级 VB机试（上机操作）模拟试卷 197及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 FormI的窗体上画一个文本框，名称为 Textl，字体为 “黑体 ”，文本框中的初始内容为 “程序设计 ”；再画一个命令按钮，名称为 C1，标题为 “改变字体 ”(如图2 168所示 )。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为 “宋体 ”。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjtl frm。(2)在名称为
2、 Forml的窗体卜画一个图片框，名称为 P1，高为 1800，宽为 1600，并放入文件名为 picl bmp的图片 (如图 2 169所示 )。请编写适当的事件过程，使得在运行时，如果双击窗体，则图片框中的图片消失。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为sit2 vbp，窗体文件名为 sit2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有一个标题为 “得分 ”的框架，在框架中有一个 名称为 Text1的文本框数组，含六个元素；义本框 Text2用来输入难度系数。程序运行时，在左边的六个文本框中输入 6个得分
3、，输入难度系数后，单击 “计算分数 ”按钮，则可计算出最后得分并在文本框 Text3中显示 (如图2 175所示 )。 计算方法：去掉一个最高得分和一个最低得分，求剩下得分的平均分，再乘以 3，再乘以难度系数。最后结果保留到第 2位小数，不四舍五入。 注意：文仲中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。考生不能修改程序中的其他部分和各控件的属性。最后把 修改后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件 sit4 vbp。窗体上的控件如图 2 176所示。程序运行时，若选中 “阶乘 ”单选按钮，则 “1000”、 “2000”菜单
4、项不可用 (如图 2 176所示 )，若选中 “累加 ”单选按钮，则 “10”、 “12”菜单项不可用。选中菜单中的一个菜单项后，单击 “计算 ”按钮，则相应的计算结果显示在文奉框中 (例如选中 “阶乘 ”和 “10”，则计算 10!，选中 “累加 ”和 “2000”，则计算 1+2+3+2000) 。单击 “存盘 ”按钮，则把文本框中的结果保存到考生目录下的 out4 dat文件中。 要求：编写 “计算 ”按钮的 Click事件过程。 注意：不得修改已经存在的程序，在结束程序运行之前，必须用 “存盘 ”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。三、综合应用题 3 在考生文件夹下
5、有一个工程文件 sit5 vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是： 如果单击 “读数据 ”命令按钮，则把考生文件夹下 in5 dat文件中两组已按升序方式排列的数 (每组 30个数 )分别读入数组 A和 B，并分别将它们显示在 Text1、 Text2中： 如 果单击 “合并 ”命令按钮，则将 A、 B两个数组合并为另一个按升序方式排列的数组 C，并将合并后数组 C中的数据依升序方式显示在 Text3中。 窗体中给出了所有控件 (如图2 142所示 )以及 “读数据 ”命令按钮的 Click事件过程，请完善 “合并 ”命令按钮的Click事件过程，使
6、其实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 197答案与解析 一、基本操 作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 89在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub ClClick() Me Textl Font Name=“宋体 ” End Sub 步骤 3：按要求将文件保存至考生文
7、件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3-90在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写窗体 的双击事件过程。 参考代码： PriVate Sub FormDb Click() P1 Picture=LoadPicture(“”) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For k=1 To 5 If
8、a键键运行程序，选择不同选项，单击 “数值 ”菜单项，并且选择一个可用的数值，然后单击 “计算 ”按 钮得到结果，最后单击 “存盘 ”按钮保存结果。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjt5 Vbp。 步骤 2：编写 “合并 ”按钮的单击事件过程。 参考代码： Private Sub Command2一 Click() 考生编写程序开始 ia=1： ib=1： ic=1 Do While ia=30 And ib=30 If a(ia)b(ib)Then C(ic)=a(ia)： ia=ia+l E1Se c(ic)=b(ib)： ib
9、=ib+1 End If iC=iC+1 Loop Do While ia(=30 C(iC)=a(ia)： ia=ia+1： ic； ic+1 Loop Do While ib=30 C(ic)=b(ib)： ib=ib+1： ic=ic+l Loop 考生编写程序结束 以下程序将合并后的数组 C显示在 Text3中 For k=1 TO 60 Text3=Text3+Str(C(k)+Space(2) Next k End Sub 步骤 3：运行程序，单击 “读数据 ”按钮，然后单击 “合并 ”按钮获得结果，然后通过窗体右上角的 “关闭 ”按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
