| 第 1 頁：基本操作題 |
| 第 2 頁：簡單應(yīng)用題 |
| 第 3 頁：綜合應(yīng)用題 |
| 第 4 頁：參考答案 |
三、綜合應(yīng)用題
【考點(diǎn)分析】本題考點(diǎn)有：文本框的Visible和Text屬性、菜單編輯器的使用(名稱、內(nèi)縮符號(hào))、菜單項(xiàng)的Enabled屬性、If選擇判斷語句、For循環(huán)語句以及焦點(diǎn)觸發(fā)的GotFocus事件過程。
【解題思路】本題中隱藏的文本框Text3的功能相當(dāng)：f剪貼板。在文本框(Textl或Text2)獲得焦點(diǎn)觸發(fā)的GotFo-CUS事件過程中，用窗體變量which記錄下該文本框序號(hào)(1或2)。在“編輯”菜單的Click事件過程中，首先根據(jù)which的不同值來判斷相應(yīng)文本框(Textl或Text2.)的內(nèi)容是否為空，如果內(nèi)容為空則設(shè)置“剪切”和“復(fù)制”菜單項(xiàng)不可用。否則設(shè)置“剪切”和“復(fù)制”菜單項(xiàng)可用;其次判斷Text3文本框的內(nèi)容是否為空，如果內(nèi)容為空則設(shè)置“粘貼”菜單項(xiàng)不可用，否則設(shè)置“粘貼”菜單項(xiàng)可用。
在“復(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：打開代碼編輯窗口，去掉程序中的注釋符“´”，
將問號(hào)改為正確的內(nèi)容。
參考答案(陰影部分是需考生填入的內(nèi)容)
DimwhichAsInteger
PrivateSubcopy_Click()´復(fù)制按鈕
Ifwhich=1Then。當(dāng)焦點(diǎn)在Textl中，將
Textl中的內(nèi)容復(fù)制給Text3
Text3.Text=Textl.Text
ElseIfwhich=2Then’同理，焦點(diǎn)在Text2
中，將Text2中的內(nèi)容復(fù)制給Text3
Text3.Text=Text2.Text
EndIf
EndSub
PrivateSubcutClick()´剪切按鈕
Ifwhich=1Then‘當(dāng)焦點(diǎn)在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)焦點(diǎn)在Textl中則將
Text3的內(nèi)容追加到Textl文件末尾
Textl.Text=__________
E1seIfwhich=2Then´同上
Text2.Text=__________
EndIf
EndSub
PrivateSubTextlGotFoCUS()´本過程的作用是當(dāng)
焦點(diǎn)在Textl中時(shí)，which=1
which=1
EndSub
PrivateSubText2GotFocus()´本過程的作用是當(dāng)
焦點(diǎn)在Text2中時(shí)，which=2
which=2
EndSub
步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。
【易錯(cuò)提示】對(duì)于which值的判斷，貫穿整個(gè)程序，因此要明白為什么要設(shè)置which值來進(jìn)行判斷。
微信搜索"考試吧"獲取更多考試資訊、備考資料
相關(guān)推薦：
各地2016年全國計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總
各地2016年計(jì)算機(jī)等級(jí)考試準(zhǔn)考證打印時(shí)間匯總
各地2016年全國計(jì)算機(jī)等級(jí)考試費(fèi)用匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
