1、国家二级 VB机试（上机操作）模拟试卷 212及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 L1的标签，标题为 “请确认 ”；再画两个命令按钮，名称分别为 C1、 C2，标题分别为 “是 ”、 “否 ”，高均为 300、宽均为 800。如图2 231所示。 请在属忡窗口中设置适当属性满足以下要求： 窗体标题为 “确认 ”，窗体标题栏卜不显示最大化按钮和最小化按钮； 在任何情况下，按回车键都相当于单击 “是 ”按钮；按 Esc键都相当于单击 “否 ”按钮。 注意：存盘时必须存
2、放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjtl frm。(2)在名称为 Forml的窗体上画一个文本框，名称为Text1，其宽度为 1000：再画一个滚动条，名称为 HSl。其刻度值的范围是 10002000。请编写滚动条的 Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图 2 232所示。程序中不能使用任何变量，事件过程中只能写一条语句。 注意：保存时必须存放在考生文件夹下，工程文件 名为 sjt2 vbp，窗体文件名为sit2 frm 二、简单应用题 2 (1)在考生目录下有一个上程文件 sit3 vbp，
3、窗体上有一个网和一条直线 (直线的名称为 Line1)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1、Command2，标题分别为 “开始 ”、 “停止 ”；还有一个名为 Timerl的讣时器。程序运行时，钟表指针不动，单击 “开始 ”按钮，则钟表上的指钊 (即 Line1)开始顺时针旋转 (每秒转 6，一分钟转一圈 )；单击 “停止 ”按钮，则指针停止旋转。运行时的窗体如图 2 80所示。 请设置 计时器的适当属性，使得每秒激活计时器的 Timer事件一次，并编写两个按钮的 Click事件过程。 文件中已经给出了所有控件和部分程序，小得修改已有程序和其他控件的属性；编写的事
4、什过程中小得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹有一个工程文件 sit4 vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，存 Text1中输入若干个大写和小写字母，并选中一个单选按钮，冉单击 “转换 ”按饥，则按选中的单选按钮的标题进行转换，结果放入Text2(如图 2 81所示 )。 在给出的窗体文件中已经给山了全部控件，但程序不完整，要求：上掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。三、综合应用题 3 数列 1， 1， 3， 5， 9， 15， 25， 4
5、1， ，的规律是从第三个数开始，每个数是它前面两个数的和加 1。在考生目录下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件，如图 2 106所示。请编写适当的事件过程实现以下功能：在 Text1中输入整数 40，单击 “计算 ”按钮，则在 Text2中显示该数列第 40项的值。 如果单击“存盘 ”按钮，则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示：因数据较大，应使用 Long型变量。 ) 注意：在结束程序运行之前，必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模
6、拟试卷 212答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3-122在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 【特别提示】为使两个控件的大小相同，还可在选中控件后执行【格式】 【统一尺寸】 【两者都相同】命令。 第 2小题 【操作步骤】 步骤1：新建一个 “标准 EXE”工程，在窗体 Forml中加入一个水平滚动条和一个文本框，在属性设置窗口中设置其相火属性，其属性及值如表 3-123所示。 步骤 2：双击窗体 Forml上的水甲滚动条，打开代码编辑窗口，输入以下代码： 参考代码： P
7、rivate Sub HSIChange() Textl Width=HSl Value End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的奉题工程文件 sit3 vbp，在属性设置窗口，设置计时器的 Interval属性值为 1000， Enabled属性值为 False。 步骤 2：在代码编辑窗口，编写 “开始 ”和 “停止 ”，按钮的单击事件过程。 参考代码： Private Sub CommandlC1 ick() Timer1 Enabled=True End Sub Private S
8、ub Command2一 Click() Timerl Enabled=Fal se End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的奉题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： a=Mid$(Textl Text， k， 1) ch=ch+LCase(a) Text2=ch 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sit5 vbp。 步骤 2：编写 “计算 ”按钮的单击事件过程。 参考代码： Private Sub CommandlClick() Dim f As Long a(1)=1 a(2)=1 FOr i=3 To Val(Textl Text) f=a(i一 2)+a(i一 1)+1 a(i)=f Next Text2 Text=f End Sub 步骤 3：运行程序，存文本框中输入 40，并单击 “计算 ”按钮获得一个结果，然后单击 “存盘 ”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。
