三、综合应用题

　　【考点分析】本题考点有：文本框的Visible和Text属性、菜单编辑器的使用(名称、内缩符号)、菜单项的Enabled属性、If选择判断语句、For循环语句以及焦点触发的GotFocus事件过程。

　　【解题思路】本题中隐藏的文本框Text3的功能相当：f剪贴板。在文本框(Textl或Text2)获得焦点触发的GotFo-CUS事件过程中，用窗体变量which记录下该文本框序号(1或2)。在“编辑”菜单的Click事件过程中，首先根据which的不同值来判断相应文本框(Textl或Text2.)的内容是否为空，如果内容为空则设置“剪切”和“复制”菜单项不可用。否则设置“剪切”和“复制”菜单项可用;其次判断Text3文本框的内容是否为空，如果内容为空则设置“粘贴”菜单项不可用，否则设置“粘贴”菜单项可用。

　　在“复制”命令的单击事件过程中，根据which的值不同，将相应文本框(Textl或Text2)中的内容复制到Text3文本框中。在“剪切”命令的单击事件过程中除应执行与“复制”命令相同的语句外，还应执行清除当前文本框中内容的语句。在“粘贴”命令的单击事件过程中，也要根据which值的不同，将Text3文本框中的内容粘贴到文本框中的原内容之后。

　　【操作步骤】

　　步骤1：打开本题工程文件，将Text3的Visible属性设置为False，然后按照题目要求建立菜单并设置其属性，如图3.20所示。

　　菜单属性如表3.12所示。

　　步骤2：打开代码编辑窗口，去掉程序中的注释符“´”，

　　将问号改为正确的内容。

　　参考答案(阴影部分是需考生填入的内容)

　　DimwhichAsInteger

　　PrivateSubcopy_Click()´复制按钮

　　Ifwhich=1Then。当焦点在Textl中，将

　　Textl中的内容复制给Text3

　　Text3.Text=Textl.Text

　　ElseIfwhich=2Then’同理，焦点在Text2

　　中，将Text2中的内容复制给Text3

　　Text3.Text=Text2.Text

　　EndIf

　　EndSub

　　PrivateSubcutClick()´剪切按钮

　　Ifwhich=1Then‘当焦点在Textl中，则将内容

　　复制给Text3，并清空Textl内容

　　Text3.Text=Textl.Text

　　Textl.Text=””

　　ElseIfwhich=2Then´同上

　　Text3.Text=Text2.Text

　　Text2.Text=””

　　EndIf

　　EndSub

　　PrivateSubeditClick()´编辑

　　Ifwhich=__________Then

　　IfTextl.Text=””Then

　　Cut.Enabled=FalSe

　　Copy.Enabled=False

　　E1Se

　　Cut.Enabled=True

　　Copy.Enabled=True

　　EndIf

　　ElseIfwhich=__________Then

　　IfText2.Text=""Then

　　Cut.Enabled=FalSe

　　Copy.Enabled=FalSe

　　E1Se

　　Cut.Enabled=True

　　Copy.Enabled=True

　　EndIf

　　EndIf

　　IfText3.Text=""Then

　　PaSte.Enabled=FalSe

　　E1Se

　　PaSte.Enabled=True

　　EndIf

　　EndSub

　　PrivateSubpasteCliCk()´粘贴按钮

　　Ifwhich=1Thenl当焦点在Textl中则将

　　Text3的内容追加到Textl文件末尾

　　Textl.Text=__________

　　E1seIfwhich=2Then´同上

　　Text2.Text=__________

　　EndIf

　　EndSub

　　PrivateSubTextlGotFoCUS()´本过程的作用是当

　　焦点在Textl中时，which=1

　　which=1

　　EndSub

　　PrivateSubText2GotFocus()´本过程的作用是当

　　焦点在Text2中时，which=2

　　which=2

　　EndSub

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　【易错提示】对于which值的判断，贯穿整个程序，因此要明白为什么要设置which值来进行判断。

长按二维码关注即可获得等考资料

2016各科最新预测试卷

等考历年真题及答案

2016等考成绩查询时间

2016等考各科通关技巧

微信搜索"考试吧"获取更多考试资讯、备考资料

　　相关推荐：

　　各地2016年全国计算机等级考试报名时间汇总

　　各地2016年计算机等级考试准考证打印时间汇总

　　各地2016年全国计算机等级考试费用汇总

　　2016年计算机等级考试备考冲刺专题

　　考试吧特别策划：2016年计算机等级考试报考指南