二、基本操作題

　　(1)通用對話框(CommonDialog)提供諸如打開文件、保存文件、設置打印選項、選擇顏色、設置字體、顯示幫助等撰作的一組標準對話框，通用對話框顯示這些對話框對應的方法分別為ShowOpen、ShowSave、ShowPrinter、ShowColor、ShowFont、ShowHelp。該控件運行時不可見。通用對話框的Action屬性也可用于設置被打開對話框的類型。

　　根據題意，新建“標準EXE”工程，一個命令按鈕和一個文件對話框控件添加到窗體中，CommonDialog 控件需要選擇“工程”一“部件”命令，或在左側工具箱中單擊鼠標右鍵，選擇“部件”菜單，打開“部件”對話框，將Microsoft Common Dialog Control 6.0前面的復選按鈕勾上，單擊“確定”按鈕，則添加成功，再同其他控件一樣添加到窗體上，其名稱為CommonDialog1。命令按鈕的名稱為Command1、Caption屬性為“打開文件”。雙擊Command1進入代碼窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　CommonDialog1.ShowOpen ’打開CommonDialog

　　End Sub

　　單擊 按鈕運行程序，并按要求保存。

　　(2)MsgBox()函數用于顯示提示信息，并可返回一個代表用戶點擊了哪個按鈕的Integer類型值，其常用語法為：MsgBox(prompt[-，buttons3[，title])。其中，prompt參數為消息框的提示信息;buttons參數用于控制消息框中按鈕的數目、形式及消息框圖標的樣式;title參數為消息框標題欄上顯示的內容。

　　根據題意，新建“標準EXE”工程，將一個List控件添加到窗體中，其名稱為List1、List屬性中添加“I tem1”、“Item2”、“Item3”和“Item4”。雙擊List1進入代碼編寫窗口補充后的代碼如下：

　　Private Sub List1_DblClick()

　　Dim a As Integer

　　a=MsgBox("是否刪除"，vbYesNo)

　　’彈出提示對話框

　　If a=6 Then’6表示選擇“是”

　　List1.RemoveItem List1.ListIndex’刪除選中項

　　Entl If

　　End Sub

　　單擊 按鈕運行程序，并按要求保存。

　　相關推薦：

　　2014年全國計算機二級VB上機考試試題匯總

　　考試吧考后首發2014年3月計算機等考真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題