2014全国计算机二级VB上机模拟题：简单应用题2_第2页

　　【审题分析】根据题目要求，要在程序运行时能每隔 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：按要求将文件保存至考生文件夹中。