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

　　试题答案及详解

　　一、基本操作题

　　第 1 小题

　　【审题分析】要实现本题所要求的功能应在"左端"、"居中"和"右端"3 个命令按钮的单击事件过程中，设置水平滚动条的 Value 属性值分别与其 Min 属性值、Max 属性值及 Max/2 值一致。

　　【操作步骤】

　　步骤 1：新建一个"标准 EXE"工程，按表 55-1 在窗体中画出控件并设置其相关属性。

　　表 55-1

　　步骤 2：在代码编辑窗口，编写 3 个按钮的单击事件过程。

　　步骤 3：按要求将文件保存至考生文件夹中。

　　【特别提示】如果水平滚动条的 Min 属性值不为 0 时，居中时应设置 Value 属性值为(Max+Min)/2。

　　第 2 小题

　　【审题分析】要实现本题中的功能，应在"体育"按钮的 Click 事件过程中，用 Print语句在窗体上输出"我喜欢体育"，在"美术"按钮的 Click 事件过程中，用 Print 语句在窗体上输出"我喜欢美术"。

　　【操作步骤】

　　步骤 1：新建一个"标准 EXE"工程，在窗体 Form1 中加入两个命令按钮，分别设置它们的相关属性，其属性及其值见表 55-2。

　　表 55-2

　　步骤 2：单击窗体 Form1 中的"体育"按钮，在打开的代码编辑窗口中，输入代码：Print "我喜欢体育"。

　　步骤 3：单击代码编辑窗口中的对象下拉列表框，从中选择 Cmd2，在其 Click 事件过程中输入代码：Print "我喜欢美术"。

　　步骤 4：按要求将文件保存至考生文件夹中。

　　二、简单应用题

　　第 1 小题

　　【审题分析】本题其实就是编写"确定"按钮的单击事件过程。设计思路：由于单选按钮数组选择的惟一性，可用一个 If?Then?Else 语句对可能出现的两种情况(Opt1 或Opt2 被选中)分别进行处理，为 Txt1 的 FontName 属性设置不同值;对于两个复选框可用两个 If?Then?Else 语句依次对其选中情况进行处理，若选中则将对应的 FontUnderline属性值或 FontItalic 属性值设置为 True，否则设置为 False。

　　【操作步骤】

　　步骤 1：打开考生文件下的本题工程文件 vbs3.vbp，在第一个框架中画两个单选按钮和第二个框架中画两个复选框，其属性及其值见表 55-3。

　　表 55-3

　　步骤 2：打开代码编辑窗口，编写"确定"按钮的 Click 事件过程，代码如下。

　　参考代码：

　　Private Sub Cmd1_Click()

　　If Opt1.Value = True Then

　　Txt1.FontName = "宋体"

　　Else

　　Txt1.FontName = "隶书"

　　118

　　End If

　　If Chk1.Value = 1 Then

　　Txt1.FontUnderline = True

　　Else

　　Txt1.FontUnderline = False

　　End If

　　If Chk2.Value = 1 Then

　　Txt1.FontItalic = True

　　Else

　　Txt1.FontItalic = False

　　End If

　　End Sub

　　步骤 3：按要求将文件保存至考生文件夹中。

　　第 2 小题

　　【审题分析】本题利用计时器来控制红、黄、绿灯间的循环切换。在"开始"按钮的单击事件过程中，将根据两个水平滚动条的 Value 属性值，来分别设定红灯和绿灯亮的时间数(用变 red 和 green 记录)。在每次触发的计时器 Timer 事件时，首先判断当前红灯是否亮(即 PicR 是否显示)，若红灯亮则将设定的红灯时间 red 减 1，并再次判断 red 的值是否为 0，若为 0 则红灯灭黄灯亮(即 PicR 不显示，PicY 显示);如果当前是黄灯亮(即PicY 显示)，则黄灯灭(即 PicY 不显示)，此时若 red 为 0，则绿灯亮(即 PicG 显示)且重新设定 red，否则红灯亮(即 PicR 显示)且重新设定 green;如果当前是绿灯亮(即 PicG显示)，则将设定的绿灯时间 green 减 1，并再次判断 green 的值是否为 0，若为 0 则绿灯灭黄灯亮(即 PicG 不显示，PicY 显示)。

　　【操作步骤】

　　步骤 1：打开考生文件中的本题工程文件 vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"?"改为正确的内容。

　　参考代码：

　　red = Hsb1.Value

　　Tmr1.Enabled = True

　　PicR.Visible = False

　　green = green-1

　　步骤 2：按要求将文件保存至考生文件夹中。

　　编辑推荐：

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

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

　　2014年计算机等级考试时间