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

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

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