| 第 1 頁(yè)：?jiǎn)芜x題 |
| 第 5 頁(yè)：基本操作題 |
| 第 6 頁(yè)：簡(jiǎn)單應(yīng)用題 |
| 第 7 頁(yè)：綜合應(yīng)用題 |
二、基本操作題
41(1)在窗體Form1上畫一個(gè)命令按鈕，名稱為Command1，標(biāo)題為"打開文件"，在窗體上添加適當(dāng)?shù)目丶⒕帉戇m當(dāng)?shù)某绦虼a，要求程序運(yùn)行時(shí)，單擊"打開文件"命令按鈕，可以彈出打開文件對(duì)話框。程序運(yùn)行時(shí)的窗體界面如圖37-1所示。
圖37-1
注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj1.frm，工程文件名為sj1.vbp。
(2)在窗體Form1上畫一個(gè)列表框，名稱為L(zhǎng)ist1，有"Item1"、"Item2"、"Item3"和"Item4"四個(gè)表項(xiàng)。要求編寫適當(dāng)?shù)某绦虼a，當(dāng)雙擊列表中某一項(xiàng)時(shí)，彈出一個(gè)對(duì)話框提示"是否刪除"。對(duì)話框中只有"是"與"否"兩個(gè)選擇按鈕，單擊按鈕，則繼續(xù)當(dāng)前的操作。程序運(yùn)行時(shí)的窗體界面如圖37-2所示。
圖37-2
注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj2.frm，工程文件名為sj2.vbp。
參考解析：
(1)通用對(duì)話框(CommonDialog)提供諸如打開文件、保存文件、設(shè)置打印選項(xiàng)、選擇顏色、設(shè)置字體、顯示幫助等操作的一組標(biāo)準(zhǔn)對(duì)話框，通用對(duì)話框顯示這些對(duì)話框?qū)?yīng)的方法分別為ShowOpen、ShowSave、ShowPrinter、ShowColor、ShowFont、ShowHelp。該控件運(yùn)行時(shí)不可見(jiàn)。通用對(duì)話框的Action屬性也可用于設(shè)置被打開對(duì)話框的類型。
根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，一個(gè)命令按鈕和一個(gè)文件對(duì)話框控件添加到窗體中，CommonDialog控件需要選擇“工程”→“部件”命令，或在左側(cè)工箱中單擊鼠標(biāo)右鍵，選擇“部件”菜單，打開“部件”對(duì)話框，將Microsoft Common Dialog Control 6.0前面的復(fù)選按鈕勾上，單擊“確定”按鈕，則添加成功，再同其他控件一樣添加到窗體上，其名稱為CommonDialog1。命令按鈕的名稱為Command1，Caption屬性為“打開文件”。雙擊Command1進(jìn)入代碼窗口，編寫如下代碼：
Private Sub Command1_Click()
CommonDialog1.ShowOpen '打開CommonDialog
End Sub
單擊
按鈕運(yùn)行程序，并按要求保存。
(2)MsgBox()函數(shù)用于顯示提示信息，并可返回一個(gè)代表用戶點(diǎn)擊了哪個(gè)按鈕的Integer類型值，其常用語(yǔ)法為：MsgBox(prompt[,buttons][,title])。其中，prompt參數(shù)為消息框的提示信息;buttons參數(shù)用于控制消息框中按鈕的數(shù)目、形式及消息框圖標(biāo)的樣式;title參數(shù)為消息框標(biāo)題欄上顯示的內(nèi)容。
根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)List控件添加到窗體中，其名稱為L(zhǎng)ist1、List屬性中添加“Item1”、“Item2”、“Item3”和“Item4”。雙擊List1進(jìn)入代碼編寫窗口補(bǔ)充后的代碼如下：
Private Sub List1_DblClick()
Dim a As Integer
a = MsgBox("是否刪除", vbYesNo) '彈出提示對(duì)話框
If a = 6 Then '6表示選擇“是”
List1.RemoveItem List1.ListIndex '刪除選中項(xiàng)
End If
End Sub
單擊按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2015年計(jì)算機(jī)等級(jí)考試時(shí)間安排(各地略有不同)
2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
