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

　　二、简单应用题

　　第 1 小题

　　MousePointer 属性的可选设置值及含义见表 56-3。

　　【审题分析】根据题目要求，要使鼠标指针移动到标签数组各元素上时，鼠标指针的形状变成各控件元素的标题所代表的鼠标指针形状，就需在标签数组的 MouseMove 事件过程中，根据鼠标当前所在标签数组元素的不同，将窗体的 MousePointer 属性设置为对应值。题目源程序使用 Select Case 语句来对标签数组不同索引号(即 Index 属性值)进行分别处理。要在鼠标指针离开控件元素时，鼠标指针又变成正常情况下的箭头形状，需在窗体的MouseMove 事件过程中，设置窗体的 MousePointer 属性值为 0。

　　【操作步骤】

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

　　参考代码：

　　Form1.MousePointer = 0

　　Select Case Index

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

　　第 2 小题

　　【知识点播】+可用于字符串的运算，用于连接两个字符串。

　　【审题分析】根据题目要求，本题程序设计思路：在确定按钮的 Click 事件过程中分别以 Opt1 和 Opt2 是否选中作为 If 语句的条件，当 Opt1 被选中时，将两个文本框中的内容通过一个中间变 进行交换;当 Opt2 被选中将两个文本框中的内容连接进来。

　　【操作步骤】

　　步骤 1：打开考生文件夹下的本题工程文件 vbs4.vbp。

　　步骤 2：在窗体 Form1 中加入两个文本框、一个标签、两个单选按钮和一个命令按钮，分别设置它们的相关属性，属性及其值见表 56-4。

　　步骤 3：打开代码编辑窗口输入如下代码：

　　参考代码：

　　Private Sub Cmd1_Click()

　　Dim str As String

　　If Opt1.Value = True Then

　　str = Txt1.Text

　　Txt1.Text = Txt2.Text

　　Txt2.Text = str

　　Lab1.Caption = 交换成功

　　End If

　　If Opt2.Value = True Then

　　Lab1.Caption = Txt1.Text + Txt2.Text

　　End If

　　End Sub

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

　　【考试误区】在一个容器中的多个单选按钮只能有一个被选中，由此分出不同分支，理清思路是关键。

　　编辑推荐：

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

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

　　2014年计算机等级考试时间