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

　　二、简单应用题

　　（1）在考生文件夹中有工程文件vbsj3.vbp及窗体文件vbsj3.frm。在名为Form1的窗体 上有一个名为Lab1的标签数组，该数组有4个控件元素，它们的标题分别是Wait、Edit、 Aix和Move，如图56-3所示。

　　在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元 素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形 状。本程序不完整，请补充完整，并能正确运行。

　　要求：去掉程序中的注释符“’”，把程序中的问号“？”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

　　（2）在考生文件夹中有一个工程文件 vbsj4.vbp 及其窗体文件 vbsj4.frm。请在名为 Form1 的窗体上绘制两个名称分别为 Txt1 和 Txt2 的文本框，文本框的内容分别设置为“计 算机考试”、“Visual Basic”；然后绘制一个名称为 Labl 的标签，其高度为 300，宽度为 2500； 再绘制两个名称分别为 Opt1 和 Opt2 的单选按钮，它们的标题分别为“交换”和“连接”； 最后再绘制一个名称为 Cmd1 的命令按钮，其标题为“确定”。

　　编写适当的事件程序。使得程序运行后，如果选中“交换”单选按钮并单击“确定”按钮，则 Txt1 文本框中内容与 Txt2 文本框中内容进行交换，并在标签处显示“交换完成”；如果选中“连接”单选按钮并单击“确定”按钮后，则把交换后的 Txt1 和 Txt2 的内容连接起来，并在标签处显示连接的内容，如图 56-4 所示。保存时，工程文件名为 vbsj4.vbp，窗体文件名为 vbsj4.frm。

　　注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击“确定”按钮。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。

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

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