首页 > 考试 > 等级考试 > 二级 > Visual Basic >

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

2014-01-10

  (1)在名称为Form1的窗体中绘制一个名称为Lab1的标签,其标题为“0”,BorderStyle属性为1;再添加一个名称为Tmr1的计时器。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,每隔1秒钟标

  (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?????úμè????ê?ר?? https://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:按要求将文件保存至考生文件夹中。

相关文章
最新文章
热点推荐