1、国家二级 VB机试（上机操作）模拟试卷 88及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个文本框，其名称为 T1，宽度和高度分别为 1400、400；再画两个命令按钮，其名称分别为 C1和 C2，标题分别为 “显示 ”和 “扩大 ”，编写适当的事件过程。程序运行后，如果单击 C1命令按钮，则在文本框巾显示“等级考试 ”，如图 388(a)所示；如果单击 C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到 原来的 3倍，如图 3-88(b)所示。注意：要求程序
2、中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个命令按钮，其名称为 C1，标题为 “转换 ”；然后再画两个文本框，其名称分别为 Textl和 Text2，初始内容均为空白，编写适当的事件过程。程序运行后，在。 Text1中输入一行英文字符串，如果单击转换按钮，则Text1文本框中的字母都变为小写，而 Text2中的字母都变为大写。例如，在 Text1中输入 visual basic programming，则单击转换按钮后，结果如图 3 89所示。注意：不得使用任何变量。存盘时必须存放在考生文
3、件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体上已经有两个文本框，名称分别为 Text1、 Text2；一个命令按钮，名称为 C1，标题为 “确定 ”；请画两个单选按钮，名称分别为 Op1、 Op2，标题分别为 “男生 ”、 “女生 ”；再画两个复选框，名称分别为 Ch1、 Ch2，标题分别为 “体育 ”、 “音乐 ”。请编 写适当的事件过程，使得在运行时，单击 “确定 ”按钮后实现下面的操作： 根据选中的单选按钮，在 Textl中显示 “我是男生 ”或 “我是女生 ”。 根据选中的复选框
4、在 Text2中显示 “我的爱好是体育 ”、 “我的爱好是音乐 ”或 “我的爱好是体育音乐 ”，如图 3-65所示。注意：不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体上有一个名称为 List1的 列表框，名称为 Timerl的计时器，名称为 Label1的标签，如图 3-66所示。请通过属性窗口向列表框添加四个项目，分别是 “第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项 ”。程序运行后，将计时器的
5、时间间隔设置为 1秒钟，每一秒钟从列表框中取出一个项目显示在 Labell的标签中，首先显示 “第一项 ”，然后，依次显示 “第二项 ”、 “第三项 ”、 “第四项 ”，如此循环。 在给出的窗体文件中已经有了全部控件和程序，但不完整，请添加 Ifist1中的项目，去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：考生不得修改工程中已经存 在的内容和控件属性，最后把修改后的文件按原文件名存盘。 三、综合应用题 3 数列 1， 1， 2， 3， 5， 8， 13， 21， 的规律是从第三个数开始，每个数是它前面两个数之和。在考生目录下有一个工程文件 sit5 vbp。窗体中已经给出了所有控件
6、如图 387所示。请编写适当的事件过程实现以下功能：在 Text1中输入整数40，单击 “计算 ”按钮，则在 Text2中显示该数列第 40项的值；如果单击 “存盘 ”按钮，则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示：因数据较大，应使用 Long型变量。 )注意 ：在结束程序运行之前必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 88答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表4 49在窗体中画
7、出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码： Private Sub C1_CliCk() T1=”等级考试 ”End Sub Private Sub C2 C1ick() T1 Height=2*Me T1 Height T1 Width： 2*T1 Width T1 FontSi Ze=3*Forml T1 FontSiZeEnd Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 4-50在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写命令按钮的单击
8、事件过程。 参考代码： Private Sub Cl Click() Textl Text=LCaSe(Textl Text) Text2 Text=UCaSe(Textl Text)End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题【操作步骤】步骤 1：打开考生文件夹下的工程文件sit3 vbp。步骤 2：在窗体 Forml中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其值如表 4 38所示。步骤 3： 打开代码编辑窗口输入如下代码：参考代码： Private Sub C1 Click() Dim a As Strin9 a
9、我是 ” If OP1 Value Then Textl Text=a Opl Caption Else Text1 Text=a Op2 Caption End If a=“我的爱好是 ” If Chl Value=1 Then Text2 Text=a Chl Caption a=Text2 Text End If If Ch2 Value=1 Then Text2 Text=a Ch2 Caption End If End Sub步骤 4：按键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮，然后单击窗体右上角的关闭按钮结束程序。步骤 5：按要求将文件保存至考
10、生文件夹中。第 2小题【操作步骤】步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，通过属性窗口向列表框添加四个项目，分别是： “第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项 ”。步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： i=0Timerl Interval=1000Labell Caption=Listl List(i)步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp。 步骤 2：编写 “计算 ”按钮的单击事件过程。 参考代码： Private Sub Commandl CliCk() Dim f1 t f2 , f As Long Dim a(40)As Long f1=1： f2=1 a(1)=f1： a(2)=f2 For i=3 To Val(Text1 Text) f=f1+f2 a(i)=f： f1=f2： f2=f Next Text2 Text=a(4 0) End Sub 步骤 3：运行程序，在文本框中输入 40，并单击 “计算 ”按钮获得一个结果，然后单击 “存盘 ”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。
