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

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

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

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

　　(1)在名稱(chēng)為Form1的窗體上用名稱(chēng)為Shape1的控件畫(huà)一個(gè)圓，其直徑為1500 (即寬、高均為1500 )，并設(shè)置適當(dāng)屬性，使窗口標(biāo)題為“圓”，窗體 標(biāo)題欄上不顯示最大化和最小化按鈕(如圖所示)。

　　注意：

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

　　解題思路：

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

　　在該窗體上用Shape圖形控件畫(huà)一個(gè)園，通過(guò)其屬性窗口將名稱(chēng)設(shè)為Shape1，高(Height屬性)設(shè)為1500，

　　寬(Width屬性)設(shè)為1500，Shape屬性設(shè)為3。激活Form1窗體，通過(guò)其屬性窗口將標(biāo)題(Caption屬性)設(shè)為“圓”，

　　最大化按鈕(MaxButton屬性)設(shè)為False，最小化按鈕(MinButton屬性)設(shè)為False。

　　參考文件：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的窗體中建立一個(gè)彈出式菜單(程序運(yùn)行時(shí)不顯示)，名 稱(chēng)為file， 含兩個(gè)菜單項(xiàng)，其名稱(chēng)分別為open、save，標(biāo)題分別為“打開(kāi)”、“存盤(pán)”。編寫(xiě)適當(dāng)?shù)氖录�過(guò)程。程序運(yùn)行后，如果用鼠標(biāo)右鍵

　　單擊窗體，則彈出此菜單(如圖所示)。

　　注意：

　　程序中不能使用變量。保存時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm

　　解題思路：

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

　　在該窗體上通過(guò)菜單編輯器建立一個(gè)主菜單，在菜單編輯器的標(biāo)題處為空，名稱(chēng)處輸入file，將“可見(jiàn)”單選按鈕設(shè)為不選狀態(tài)。在該菜單下有二個(gè)子菜單，在菜單編輯器的標(biāo)題處分別輸入“打開(kāi)”、“存盤(pán)”，名稱(chēng)處分別輸入open、save。

　　鼠標(biāo)右鍵單擊窗體(即運(yùn)行MouseDown事件過(guò)程)，在該MouseDown事件過(guò)程中加入語(yǔ)句：

　　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　If Button = 2 Then

　　PopupMenu file

　　End If

　　End Sub

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

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