全国计算机二级考试VB上机题库.doc

1、全国计算机二级考试 VB 上机题库 (一 ) 一、基本操作题 (1)在名称为 Form1的窗体上绘制一个文本框，名称为 Txt1，字体为 “ 宋体 ” ，文本框中的初始内容为 “ 二级 Visual Basic”; 再绘制一个命令按钮，名称为 Cmd1，标题为 “ 改 变字体为楷体 ” 。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文 字的字体改为楷体，如图 50-1所示。 注意：程序中 不得使用任何变量 ;文件必须存放在考生文件夹中，工程文件名为 vbsj1.vbp，窗体文件名为 vbsj1.frm。 (2)在名称为 Form1的窗体上绘制一个名称为 Cmd1的命令按钮，其标

2、题为 “ 移动 ” ， 位于窗体的左上部。编写适当的事件过程，使程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动 100。程序的运行情况如图 50-2所示。 注意：不得使用任 何变量 ;文件必须存放在考生文件夹中，工程文件名为 vbsj2.vbp， 窗体文件名为 vbsj2.frm。 二、简单应用题 (1)在名称为 Form1 的窗体中绘制一个名称为 Lab1 的标签，其标题为 “0” ，BorderStyle 属性为 1;再添加一个名称为 Tmr1 的计时器。请设置适当的控件属性，并编写适当的事 件过程，使得在运行时，每隔 1 秒钟标签中的数字加 1。程序运行时效果如图 50-3

3、 所示。 注意：程序中不得使用任何变量 ;文件必须存放在考生文件夹中，工程文件名为 vbsj3.vbp，窗体文件名为 vbsj3.frm。 (2)在考生文件夹中有一个工程文件 vbsj4.vbp 及窗体文件 vbsj4.frm。在名称为 Form1 的窗体上有一个名称为 Cmd1 的命令按钮，其标题为 “ 下一个 ” 。要求在窗体上建立一个单选按钮数组 Opt1，含 4 个单选按钮，标题分别为 “A” 、 “B” 、 “C” 和 “D” ，初始状态 下， “A” 为选中状态。程序运行效果如图 50-4 所示。 要求程序运行时，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单

4、选按钮，再单击命令按钮，则选中第 1 个单选按钮。 窗体文件中已经给出了命令按钮的 Click 事件过程，但不完整，请去掉程序中的注释 符 “” ，把程序中的问号 “?”改为正确的内容。 注意：不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。 三、 综合应用题 编写一个程序，输入货物的数量及单价，求总价并输出。 窗体标题设置为 “ 模拟售货机 ” ，窗体上的两个标签 (分别命名为 Lab1 和 Lab2，标 题为 “ 货物的数量 (个 )： ” 和 “ 货物的单价 (元 )： ”) 两个名称分别为 Txt1 和 Txt2 的文 本框 ;一个名称为 Cmd1 的命令按钮，

5、其标题为 “ 总价 ” 。结果显示在名称为 Pic1 的图片 框中。当用户输入货物的数量与单价后，单击 “ 总价 ” 按钮，输出正确的结果，程序运行 效果如图 50-5 所示。 注意：在存盘时，工程文件名为 vbsj5.vbp，窗 体文件名为 vbsj5.frm。 试题答案及详解 一、基本操作题 第 1 小题 【审题分析】本题需在命令按钮的单击事件过程中，通过修改文本框的 FontName 属性值为 “楷体 _GB2312“来改变文本框中文本的字体。 【操作步骤】 步骤 1：新建一个 “标准 EXE“工程，按表 50-1 在窗体中画出控件并设置其相关属性。 表 50-1 步骤 2：打开代码编辑

6、窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub Cmd1_Click() Txt1.FontName = “楷体 _GB2312“ End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【审题分析】要使命令按钮位于窗体左上角需将其 Top 属性值和 Left 属性值设置为 0; 要在单击一次窗体后，命令按钮同时向右、向下移动 100，需在窗体的单击事件过程中， 设置命令按钮的 Top 属性值和 Left 属性值各增加 100。 【操作步骤】 步骤 1：新建一个 “标准 EXE“工程，按表 50-2 在窗体中画出控件并设置其相关属性。 表 50-2 步

7、骤 2：打开代码编辑窗口，编写命令按钮的 Click 事件过程。 参考代码： PrivateSub Cmd1_Click() Cmd1.Left=Cmd1.left+100 Cmd1.Top=Cmd1.Top+100 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 第 1 小题 【审题分析】根据题目要求，要 在程序运行时能每隔 1 秒，标签中的数字加 1，需将计时器的 Interval 属性值设置为 1000 毫秒， Enabled 属性值设置为 True，在计时器的 Timer 事件过程中将标签中的数值加 1。 105 ?3? http:/ -49-1.html

8、? 属性。 【操作步骤】 步骤 1：新建一个 “标准 EXE“工程，按表 50-3 在窗体中画出控件并设置其相关属 表 50-3 步骤 2：双击窗体上的计时器控件，在其 Timer 事件过程中加入以下代码： 参考代码： Private Sub Tmr1_Timer() Lab1.Caption = Lab1.Caption + 1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【审题分析】本题源程序在命令按钮的单击事件过程中，首先利用 For 循环语句 (循 环变 k 的初值为 0，终值为 3)逐一检查单选按钮数组中的每个元素是否被选中，若选 中则用变 n 记录下选

9、中单选按钮的 索引号，即 n=k。循环结束后，取消对当前选中单选按钮的选择，且变 n 增 1;接着判断 n 的值是否为 4，若是则将 n 的值置为 0，重新从 单选按钮数组的第 1 个元素开始 ;最后设置索引号为 n 的单选按钮被选中。 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 vbsj4.vbp，按表 50-4 在窗体中用 “复制 “ 和“粘贴 “命令画出包含 4 个元素的单选数组和 1 个命令按钮并设置属性。 表 50-4 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “ ，将问号 “?“改为正确 的内容。 参考代码： Private Sub Cmd1_Click() For

10、 k = 0 To 3 If Opt1(k).Value Then 106 n = k End If Next k Opt1(n).Value = False n = n + 1 If n = 4 Then n = 0 End If Opt1(n).Value = True End Sub 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 【审题分析 】本题其实就是设计一个简单的乘法运算，为避免不必要的错误，可在执行运算前用 Val 函数将文本框中数字字符串转换为数值数据。 【操作步骤】 步骤 1：新建一个 “标准 EXE“工程，按表 50-5 在窗体中画出控件并设置其相关属性。 表

11、 50-5 步骤 2：打开代码编辑窗口，编写 “总价 “命令按钮的单击事件过程。 参考代码： Private Sub Cmd1_Click() Dim num As Integer Dim rmb As Currency num = Val(Txt1.Text) rmb = Val(Txt2.Text) Pic1.Cls Pic1.Print num * rmb End Sub 步骤 3：按要求将文件保存至考生文件夹中。 全国计算机二级考试 VB 上机题库 (二 ) 一、基本操作题 (1)在名为 Form1 的窗体上建立一个名为 Hsb1 的水平滚动条，其最大值为 300，最 小值为 0。要求

12、程序运行后，每次移动滚动框时，都执行语句 Form1.Print Hsb1.Value，运 行效果如图 51-1 所示。 注意：程序中不能使用任何其他变量 ;文件必须存放在考生文件夹中，窗体文件名为vbsj1.frm，工程文件名为 vbsj1.vbp。 (2)在窗体绘制一个名为 Pic1 的图片框和一个名为 Cmd1 且其标题为 “ 显示 ” 的命 令按钮。编写适当的事件过程，使程序运行后，若单击 “ 显示 ” 命令按钮，则在图片框中 显示 “ 这是一个图片框 ” ，运行效果如图 51-2 所示。 注意：不要使用任何变量，直接显示字符串 ;文件必须存放在考生文件夹中，窗体文 件名为 vbsj2

13、.frm，工程文件名为 vbsj2.vbp。 二、简单应用题 (1)在考生文件夹中有工程文件 vbsj3.vbp 及其窗体文件 vbsj3.frm。在名为 Form1的窗体上有 3 个名称分别为 Txt1、 Txt2 和 Txt3 的文本框 ;1 个名称为 Cmd1 的命令按钮， 其标题为 “ 计算 ” 。 要求程 序运行后，在 Txt1 和 Txt2 中分别输入两个整数，单击 “ 计算 ” 按钮后，可把 两个整数之间的所有整数 (含两个整数 )累加起来并在 Txt3 中显示出来，如图 51-3 所示。 要求：在有问号 “?” 的地方填入正确内容，然后删除 “?” 及所有注释符 “” ，但 不

14、得修改其他部分。保存时不得改变文件名和文件夹。 (2)在考生文件夹中有一个工程文件 vbsj4.vbp，相 应的窗体文件为 vbsj4.frm。在名 为 Form1 的窗体上有两个名称分别为 Cmd1 和 Cmd2 的命令按钮 ;一个名称为 Lab1 的标 签控件 ;一个名称为 Tmr1 计时器控件。 程序运行后，在命令按钮 Cmd1 中显示为 “ 开始 ”; 在命令按钮 Cmd2 中显示为 “ 停 止 ”; 标签中字号大小为 18 号、字体为粗体、显示为 “ 欢迎光临 ”( 标签的 AutoSize 属性 为 True);计时器的 Interval 属性设置为 100， Enabled 属性

15、设置为 False。 此时如果单击 “ 开始 ” 命令按钮，则该按钮变为禁用，标题变为 “ 继续 ” ，同时标签 自左至右移动 (每个时间间隔移动 50)，如图 51-4 所示。当标签移动出窗体右边界后，自 动从左边界开始向右移动 ;如果单击 “ 停止 ” 命令按钮，则该按钮变为禁用， “ 继续 ” 命 令按钮变为有效，同时标签停止移动 ;再次单击 “ 继续 ” 命令按钮后，标签继续移动。本 程序不完整，请补充完整，并能正确运行。 要求：去掉程序中的注释 符 “” ，把程序中的问号 “?” 改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文

16、件。 三、综合应用题 在考生文件夹下有一个工程文件 vbsj5.vbp，相应的窗体文件为 vbsj5.frm。在窗体Form1 上有两个名称分别为 Cmd1和 Cmd2的命令按钮，它们的标题分别为 “ 写入文件 ” 和“ 读出 文件 ” ，如图 51-5所示。 其中 “ 文件写入 ” 命令按钮事件过程用来建立一个通讯录，以随机存取方式保存到文 件 dw1.dat 中 ;而 “ 文件读出 ” 命令按钮事件过程用来读出文件 dw1.dat 中的每个记录，并 在窗体上显示出来。 通讯录中的每个记录由 3个字段组成：姓名 (Name)、电话 (Tel)和邮政编码 (Pos)。 各字段的类型和长度为：

17、姓名 (Name)：字符串 15 电话 (Tel)：字符串 15 邮政编码(Pos)：长整型 (Long) 程序运行后，如果单击 “ 文件写入 ” 命令按钮，则可以随机存取方式打开文件 dw1.dat， 并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答 “Y” (或 “y”) 则输入新记录，回答 “N”( 或 “n”) 则停止输入 ;如果单击 “ 文件读出 ” 命 令按钮，则可以随机存取方式打开文件 dw1.dat，读出文件中的全部记录，并在窗体上显 示出来。该程序不完整，请把它补充完整。 要求： 去掉程序中的注释符 “” ，把程序中的问号 “?” 改为正确的内容，

18、使其能正确运行，但不能修改程序中的其他部分。 文件 dw1.dat 中已有 3个记录，请运行程序，单击 “ 文件写入 ” 命令按钮，向文件dw1.dat 中添加以下 2个记录 (全部采用西文方式 )，如下所示。 Tom (010)12345678 100000 Jim (010)87654321 100001 运行程序，单击 “ 文件读出 ” 命令按钮，在窗体上显示全部记录。 用原来的文件名保存工程文件和窗体文件。 试题答案及详解 一、基本操作题 第 1 小题 【审题分析】本题只需按要求在窗体上画出滚动条并设置其属性，并在滚动条的 107 ?3? http:/club.topsa ? Cha

19、nge 事件过程中执行语句： Form1.Print Hsb1.Value。 【操作步骤】 步骤 1：新建一个 “标准 EXE“工程，在窗体 Form1 中画一个水平滚动条，其属性及 其值见表 51-1。 表 51-1 步骤 2：在代码编辑窗口中，编写水平滚动条的 Change 事件过程。 参考代码： Private Sub Hsb1_Change() Form1.Print Hsb1.Value End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【审题分析】本题只需按要求在窗体上画出控件并设置其属性，并在按钮的 Click 事件过程中用图片框的 Print 语句输出 “这是一个图片框 “。 【操作步骤】 步骤 1：新建一个 “标准 EXE“工程，在窗体 Form1 中画一个图片框和一个命令按钮， 其