2012年最新计算机等级考试二级VB上机试题及解析.docVIP

2012年最新VB上机操作题库及解析 第 50 套 试题答案及详解 一、基本操作题 第 1 小题 【审题分析】本题需在命令按钮的单击事件过程中，通过修改文本框的 FontName 属 性值为楷体_GB2312来改变文本框中文本的字体。 【操作步骤】 步骤 1：新建一个标准 EXE工程，按表 50-1 在窗体中画出控件并设置其相关属性。 表 50-1 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub Cmd1_Click() Txt1.FontName = 楷体_GB2312 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【审题分析】要使命令按钮位于窗体左上角需将其 Top 属性值和 Left 属性值设置为 0； 要在单击一次窗体后，命令按钮同时向右、向下移动 100，需在窗体的单击事件过程中， 设置命令按钮的 Top 属性值和 Left 属性值各增加 100。 【操作步骤】 步骤 1：新建一个标准 EXE工程，按表 50-2 在窗体中画出控件并设置其相关属 性。 表 50-2 步骤 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?????úμè????ê?ר?? /forum-49-1.html ê??ˉ??àí 性。 【操作步骤】 步骤 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 记录下选中单选按钮的索引号，即 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 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 在窗体中画出控件并设置其相关属 性。 表 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 E