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