2012年計(jì)算機(jī)二級VB上機(jī)試題及解題思路第十八套

　　


　　1. 基本操作(2小題，每小題15分，共計(jì)30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　請根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。

　　(1)在 Form1的窗體上畫一個(gè)名稱為 Text1的文本框，然后建立一個(gè)主菜單，標(biāo)題為“操作”，名稱為Op，該菜單有兩個(gè)子菜單，其標(biāo)題分別為“顯示”和“清除”，名稱分別為 Dis和Clea，編寫適當(dāng)?shù)氖录�過程。程序運(yùn)行后，如果單擊“操作”菜單中的“顯示”命令，則在文本框顯示“等級考試”;如果單擊“清除”命令，則清除文本框中顯示的內(nèi)容。程序的運(yùn)行情況如圖所示。

　　*注意：

　　存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。

　　在該窗體上畫一個(gè)文本框控件，通過其屬性窗口將名稱設(shè)為Text1。通過菜單編輯器建立一個(gè)主菜單，在菜單編輯器的標(biāo)題處輸入“操作”，名稱處輸入Op，在該菜單下有二個(gè)子菜單，在菜單編輯器的標(biāo)題處分別輸入“顯示”和“清除”，名稱處分別輸入Dis和Clea。

　　單擊“操作”菜單中的“顯示”命令(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Dis_Click()

　　Text1.Text = "等級考試"

　　End Sub

　　單擊“操作”菜單中的“清除”命令(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Clea_Click()

　　Text1.Text = ""

　　End Sub

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

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt1.vbp文件并運(yùn)行。

　　(2)在Form1 的窗體上畫一個(gè)文本框，名稱為 Text1，Text屬性為空白。再畫一個(gè)列表框，名稱為L1，通過屬性窗口向列表框中添加 4個(gè)項(xiàng)目，分別為“AAAA”、“BBBB”、“CCCC”和“DDDD”，編寫適當(dāng)?shù)氖录�過程。程序運(yùn)行后，在文本框中輸入一個(gè)字符串，如果雙擊列表框中的任一項(xiàng)，則把文本框中的字符串添加到列表框中。程序的運(yùn)行情況如圖所示。

　　*注意：

　　存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm

　　解題思路：

　　啟動Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。

　　在該窗體上畫一個(gè)文本框，通過其屬性窗口將名稱設(shè)為Text1，文本框中的初始內(nèi)容(Text屬性)設(shè)為空白，即沒有任何內(nèi)容。畫一個(gè)列表框，通過其屬性窗口將名稱設(shè)為L1，向列表框中添加項(xiàng)目(List屬性)，添加的項(xiàng)目分別為“AAAA”、“BBBB”、“CCCC”和“DDDD”，每個(gè)項(xiàng)目為一行。

　　雙擊列表框中的任一項(xiàng)(即運(yùn)行DblClick事件過程)，在DblClick事件過程中加入語句：

　　L1.AddItem Text1.Text。

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt2.vbp文件并運(yùn)行。

　　相關(guān)推薦：

　　2012年計(jì)算機(jī)等考四級數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計(jì)算機(jī)等級考試二級VB重點(diǎn)知識匯總

　　2012年下半年計(jì)算機(jī)等級考試報(bào)名時(shí)間及入口匯總