1、国家二级 VB机试（上机操作）模拟试卷 169及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个文本框，其名称为 T1，宽度和高度分别为 1400、400；再画两个命令按钮，其名称分别为 c1和 C2，标题分别为 “显示 ”和 “扩大 ”，编写适当的事什过程。程序运行后，如果单击 C1命令按钮，则在文本框中显示“等级考试 ”，如图 2 88(a)所示；如果单击 C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩 大到原来的 3倍，如图 2 88(b)所示。注意：要求
2、程序中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为sjtl frm (2)在名称为 Forml的窗体上画一个命令按钮，其名称为 C1，标题为 “转换 ”；然后再画两个文本框，其名称分别为 Text1和 Text2，初始内容均为空白，编写适当的事件过程。程序运行后，在 Textl中输入一行英文字符串，如果单击转换按钮，则 Textl文奉框中的字母都变为小写，而 Text2中的字母都变为人写。例如，在 Text1中输入 visual basic programming，则单击转换按钮后，结果如图 2-89所示。 注意：不得使用任何变量。存盘时必须存放在考生
3、文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sit2 frm。 二、简单应用题 2 (1)考生文件夹下的工程文件 sjt3 vbp中有一个菜单、两个标签和两个文本框。程序运行时，用鼠标右键单击窗体会弹出一个弹出式菜单 (如图 2 160所示 )。当选中 “计算 100以内自然数之和 ”菜单项时，将计算 100以内自然数之和并放入Textl中；当选中 “计算 7!”菜单项时，将计算 7!并放入 Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将
4、程序按原文件名存盘。 (2)考生文件夹下的工程文件 sjt4 vhp中有如图 2 161所示的控件。程序功能如下：程序运行时，在 Text1中输入一个商品名称，在 Text2中输入一个数量，单击 “计算 ”按钮，则会在列表框中找到该商品的单价，乘以数量后显示在 Text3中 (如图2 161所示 )；若输入的商品名称是错误的，则在 Text3中显示 “无此商品 ”(为方便编程，列表框中的每个单价均为 4位 (含小数点 )。请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述科序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。三、综合应用题 3 数列
5、1， 1， 2， 3， 5， 8， 13， 21， 的规律是从第一个数开始，每个数足它前面两个数之和。在考生目录下有一个工程文件 sit5 vbp。窗体中已经给出了所有控件，如图 2-87所示。请编写适当的事件过程实现以下功能：在 Text1中输入整数40，单击 “计算 ”按钮，则在 Text2中显示该数列第 40项的值；如果单击 “存盘 ”按钮，则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示：凶数据较大，应使用 Long型变量。 ) 注意：在结束程序运行之前必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘国家
6、二级 VB机试（上机操作）模拟试卷 169答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 49在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。 参考代码： Private Sub C1一 Click() T1=“等级考试 ” End Sub Private Sub C2一 Click() T1 Height=2*Me T1 Height T1 Width=2*T1 Width T1 FontSiZe=3*Forml T1 FontSize End Sub 步骤 3：按要求将文
7、件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3-50在窗体中出控件并设置其相关 属性。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub CIClick() Textl Text=LCase(Textl Text) Text2 Text=UCase(Textl Text) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开学生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “
8、?”改为正确的内容。 参考代码： If Button=2 Then PopupMenu mypopmenu For k=n To 1 Step一 1 Text2=fact(7) 步骤 2：按要求将文件保存争考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt4 vbp，住代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For k=1 To Listl ListCount一 1 name=Left(Listl List(k)， n一 1) price=Val(Right(Listl List(k)， 4) Text3=”无
9、此商品 ” 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打外考生文件夹下的工程文件 sjt5 vbp。 步骤 2：编写 “计算 ”按钶 !的单击事件过程。 参考代码： Private Sub CommandlC1 ick() Dim f1， f2， f As Long Dim a(40)As Long f1=1： f2=1 a(1)=f1： a f2)=f2 For i=3 To Val(Textl Text) f=f1+f2 a(i)=f： f1： f2： f2=f Next Text2 Text=a(40) End Sub 步骤 3：运行程序，在文本框中输入 40，并单击 “计算 ”按钮获得一个结果，然后单击 “存盘 ”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。
