三、綜合應(yīng)用題

　　【考點分析】本題考點有：文本框的Visible和Text屬性、菜單編輯器的使用(名稱、內(nèi)縮符號)、菜單項的Enabled屬性、If選擇判斷語句、For循環(huán)語句以及焦點觸發(fā)的GotFocus事件過程。

　　【解題思路】本題中隱藏的文本框Text3的功能相當(dāng)：f剪貼板。在文本框(Textl或Text2)獲得焦點觸發(fā)的GotFo-CUS事件過程中，用窗體變量which記錄下該文本框序號(1或2)。在“編輯”菜單的Click事件過程中，首先根據(jù)which的不同值來判斷相應(yīng)文本框(Textl或Text2.)的內(nèi)容是否為空，如果內(nèi)容為空則設(shè)置“剪切”和“復(fù)制”菜單項不可用。否則設(shè)置“剪切”和“復(fù)制”菜單項可用;其次判斷Text3文本框的內(nèi)容是否為空，如果內(nèi)容為空則設(shè)置“粘貼”菜單項不可用，否則設(shè)置“粘貼”菜單項可用。

　　在“復(fù)制”命令的單擊事件過程中，根據(jù)which的值不同，將相應(yīng)文本框(Textl或Text2)中的內(nèi)容復(fù)制到Text3文本框中。在“剪切”命令的單擊事件過程中除應(yīng)執(zhí)行與“復(fù)制”命令相同的語句外，還應(yīng)執(zhí)行清除當(dāng)前文本框中內(nèi)容的語句。在“粘貼”命令的單擊事件過程中，也要根據(jù)which值的不同，將Text3文本框中的內(nèi)容粘貼到文本框中的原內(nèi)容之后。

　　【操作步驟】

　　步驟1：打開本題工程文件，將Text3的Visible屬性設(shè)置為False，然后按照題目要求建立菜單并設(shè)置其屬性，如圖3.20所示。

　　菜單屬性如表3.12所示。

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符“´”，

　　將問號改為正確的內(nèi)容。

　　參考答案(陰影部分是需考生填入的內(nèi)容)

　　DimwhichAsInteger

　　PrivateSubcopy_Click()´復(fù)制按鈕

　　Ifwhich=1Then。當(dāng)焦點在Textl中，將

　　Textl中的內(nèi)容復(fù)制給Text3

　　Text3.Text=Textl.Text

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

　　中，將Text2中的內(nèi)容復(fù)制給Text3

　　Text3.Text=Text2.Text

　　EndIf

　　EndSub

　　PrivateSubcutClick()´剪切按鈕

　　Ifwhich=1Then‘當(dāng)焦點在Textl中，則將內(nèi)容

　　復(fù)制給Text3，并清空Textl內(nèi)容

　　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當(dāng)焦點在Textl中則將

　　Text3的內(nèi)容追加到Textl文件末尾

　　Textl.Text=__________

　　E1seIfwhich=2Then´同上

　　Text2.Text=__________

　　EndIf

　　EndSub

　　PrivateSubTextlGotFoCUS()´本過程的作用是當(dāng)

　　焦點在Textl中時，which=1

　　which=1

　　EndSub

　　PrivateSubText2GotFocus()´本過程的作用是當(dāng)

　　焦點在Text2中時，which=2

　　which=2

　　EndSub

　　步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。

　　【易錯提示】對于which值的判斷，貫穿整個程序，因此要明白為什么要設(shè)置which值來進行判斷。

長按二維碼關(guān)注即可獲得等考資料

2016各科最新預(yù)測試卷

等考歷年真題及答案

2016等考成績查詢時間

2016等考各科通關(guān)技巧

微信搜索"考試吧"獲取更多考試資訊、備考資料

　　相關(guān)推薦：

　　各地2016年全國計算機等級考試報名時間匯總

　　各地2016年計算機等級考試準考證打印時間匯總

　　各地2016年全國計算機等級考試費用匯總

　　2016年計算機等級考試備考沖刺專題

　　考試吧特別策劃：2016年計算機等級考試報考指南