2013年計(jì)算機(jī)二級(jí)VB上機(jī)模擬試題及答案（3）

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

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

　　**********************************************************************

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

　　(1)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)為Frame1，標(biāo)題為“目的地”的框架，在框架中添加三個(gè)復(fù)選框，名稱(chēng)分別為Check1、Check2、Check3，其標(biāo)題分別是“上海”、“廣州”、“巴黎”，其中“上�！睘檫x中狀態(tài)，“廣州”為未選狀態(tài)，“巴黎”為灰色狀態(tài)，如圖所示。請(qǐng)畫(huà)控件并設(shè)置相應(yīng)屬性。

　　注意：

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

　　解題思路：

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

　　在該窗體上畫(huà)一個(gè)框架控件，通過(guò)其屬性窗口將名稱(chēng)設(shè)為Frame1，標(biāo)題(Caption屬性)設(shè)為“目的地”。

　　在F1框架中畫(huà)三個(gè)復(fù)選框控件，通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為Check1、Check2、Check3，標(biāo)題(Caption屬性)

　　分別設(shè)為“上�！薄ⅰ皬V州”、“巴黎”，“上�！钡腣alue屬性設(shè)為1,“巴黎”的Value屬性設(shè)為2。

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt1.vbp、sjt1.frm、sjt1.vbw請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt1.vbp文件并運(yùn)行。

　　**********************************************************************

　　(2)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)為Picture1的圖片框， 其寬和高分別為1700、1900。請(qǐng)編寫(xiě)適當(dāng)事件過(guò)程，使得在運(yùn)行時(shí)，單擊圖片框，則裝入考生目錄下的圖形文件pic1.bmp，如圖所示。單擊窗體則圖片框中的圖形消失。要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。

　　注意：

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

　　解題思路：

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

　　在該窗體上畫(huà)一個(gè)圖片框，通過(guò)其屬性窗口將名稱(chēng)設(shè)為Picture1，寬度(Width屬性)設(shè)為1700，高度(Height屬性)設(shè)為1900。

　　單擊圖片框(即運(yùn)行Click事件過(guò)程)，在Click事件過(guò)程中加入語(yǔ)句：Picture1.Picture =LoadPicture("pic1.bmp")，即將考生目錄下的圖形文件pic1.bmp裝入圖片框中。單擊窗體(即運(yùn)行Click事件過(guò)程)，在Click事件過(guò)程中加入語(yǔ)句：Picture1.Picture = LoadPicture("")，即圖片框中的圖形消失。