2014全国计算机二级VB上机试题及答案：简单应用题2

　　（1）在名称为 Form1 的窗体中绘制一个名称为 Lab1 的标签，其标题为“0”，BorderStyle 属性为 1；再添加一个名称为 Tmr1 的计时器。请设置适当的控件属性，并编写适当的事 件过程，使得在运行时，每隔 1 秒钟标签中的数字加 1。程序运行时效果如图 50-3 所示。 

　　注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为

　　vbsj3.vbp，窗体文件名为 vbsj3.frm。

　　（2）在考生文件夹中有一个工程文件 vbsj4.vbp 及窗体文件 vbsj4.frm。在名称为 Form1 的窗体上有一个名称为 Cmd1 的命令按钮，其标题为“下一个”。要求在窗体上建立一个单选按钮数组 Opt1，含 4 个单选按钮，标题分别为“A”、“B”、“C”和“D”，初始状态 下，“A”为选中状态。程序运行效果如图 50-4 所示。

　　要求程序运行时，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第 1 个单选按钮。 窗体文件中已经给出了命令按钮的 Click 事件过程，但不完整，请去掉程序中的注释 符“’”，把程序中的问号“？”改为正确的内容。 注意：不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

　　第 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：按要求将文件保存至考生文件夹中。