[计算机类试卷]国家二级VB机试（上机操作）模拟试卷231及答案与解析.doc

1、国家二级 VB机试（上机操作）模拟试卷 231及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “显示记录 ”的窗体上画一个名称为 Textl的文本框其初始内容为空：再画一个名称为 Commandl的命令按钮数组 (下标从 0开始，有 4个按钮，其对应的标题分别为 “上一条记录 ”、 “下一条记录 ”、 “第一条记录 ”、 “最后一条记录 ”)，程序执行时的效果如图 2 183所示，且程序执行时按下回车键则相当于、单击 “下一条记录 ”按钮。请设 置相应属性。 注意：存盘时，将文件保存至考生

2、文件夹下，且窗体文件名为 sitl frm，工程文件名为 sit1 vbp。(2)在名称为 Forml的窗体上，画一个名称为Labell的标签，其标题为 “等级考试 ”，能根据标题内容自动调整标签的大小，外观如图 2 184所示。再画一个名称为 Timer1的计时器，其 Interval属性设为 0，Enabled属性设为 True。 要求：编写窗体 Load事件过程和计时器 Timer事件过程，使得程序运行时，每隔一秒标签交替隐藏或显示一次。 注意：存盘时，将文件保存至考尘文件夹下 ，窗体文件名为 sil2 frm，工程文件名为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写

3、一条语句 (不得使用选择语句或循环语句 )。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是通过键盘向文本框中输入正整数。在 “除数 ”框架中选择一个单选按钮，然后单击 “处理数据 ”按钮，将大于文本框中的正整数且能够被所选除数整除的 5个数添加到列表框 Listl中，如图 2-23所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改 为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。程序运行后，单击

4、“开始 ”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每 0 5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于 200时，再回到窗体顶部，重新向下移动，如图 2 24所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把 修改后的文件按原文件名存盘。三、综合应用题 3 在考生目录下有一个工程文件 sit5 vbp，其窗体上有两个标签 L1和 L2，标题分别为 “口令 ”和 “允许次数 ”；一个命令按钮 C1，标题为 “确定 ”；两个文本框名称分别为 Text1和 T

5、ext2。其中 Text1用来输入口令 (输入时，显示 “*”)，无初始内容；Text2的初始内容为 3。并给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得在运行时，在 Textl中输入口令后，单击 “确定 ”按钮，如果输入的是 “123456”，则在 Text1中显示 “口令正确 ”；如果输入其他内容，单击 “确定 ”按钮后，弹出如图 2 147所示的错误提示对话框，并目Text2中的数字减 1。最多可输入 3次几令，若 3次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作

6、）模拟试卷 231答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3-97在窗体中用 “复制 ”和 “粘贴 ”画出控制数组并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3 98在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口编写窗体的 Load事件和计时器的 Timer事件过程。 参考代码： Private Sub Form Load() Timerl Interval=1000 End Sub Private Sub Timerl一 Timer() Labell Visible=Not Labell ViSible End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，上掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Optionl Item(i)=True Then Y=Val(Optionl(i) Caption) Do While i0 Then Textl Enabled=False 步骤 3：按要求将文件保存至考生文件夹中。