2012年计算机二级VB上机试题及解题思路第33套

　　3. 综合应用(1小题，计30分)

　　注意：下面出现的“考生文件夹”均为%USER%

　　在考生文件夹下有一个工程文件sjt5.vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及程序。请完成以下工作：

　　1)在属性窗口中修改 Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用。窗体如图所示;

　　2)建立下拉式菜单，如下表所示;

　　3)窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。以便实现以下功能： 当光标所在的文本框中无内容时，“剪切”、“复制”不可用，否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容，则“粘贴”不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。

　　注意：

　　不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

　　由于所提供的窗体控件不完整，通过其属性窗口将Text3的Visible属性设为True。通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“编辑”，名称处输入Edit，在该菜单下有三个子菜单，在菜单编辑器的标题处分别输入“剪切”、“复制”、“粘贴”，名称处分别输入Cut、Copy和Paste。

　　由于所提供的窗体程序不完整，在“编辑”主菜单的Private Sub Edit_Click()事件过程中，有二处地方需要修改。

　　1) 将语句

　　'If which = ? Then

　　改为

　　If which = 1 Then

　　2) 将语句

　　'ElseIf which = ? Then

　　改为

　　ElseIf which = 2 Then

　　在“粘贴”子菜单的Private Sub Paste_Click()事件过程中，有二处地方需要修改。

　　1) 将语句

　　'Text1.Text = ?

　　改为

　　Text1.Text = Text1 + Text3

　　2) 将语句

　　'Text2.Text = ?

　　改为

　　Text2.Text = Text2 + Text3

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。

　　相关推荐：

　　2012年计算机等考四级数据库工程师备考笔记汇总

　　2012年计算机等级考试二级VB重点知识汇总

　　2012年下半年计算机等级考试报名时间及入口汇总