2014年全国计算机二级VB上机考试试题一

　　二、简单应用题

　　第 1 小题

　　【审题分析】根据题目要求，要在程序运行时能每隔 1 秒，标签中的数字加 1，需将计时器的 Interval 属性值设置为 1000 毫秒，Enabled 属性值设置为 True，在计时器的 Timer 事件过程中将标签中的数值加 1。

　　105

　　′ó?ò??ì3?????úμè????ê?ר?? http://club.topsage.com/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：按要求将文件保存至考生文件夹中。

　　编辑推荐：

　　2014年上半年计算机等级考试报名时间及入口专题

　　各地2014年计算机等级考试费用汇总

　　2014年计算机等级考试时间