2012年計算機二級VB上機試題及解題思路第45套

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

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

　　請根據(jù)以下各小題的要求設計Visual Basic應用程序(包括界面和代碼)。

　　(1)在名稱為Form1的窗體上畫一個名稱為Frame1、標題為“框架”的框架，在框架內(nèi)添加兩個名稱分別為Option1、Option2 的單選按鈕，其標題分別為“第一項”、“第二項” 。要求通過設置控件的屬性將“第二項”設置為被選中，框架為不可用。運行程序后的窗體如圖所示。

　　注意：

　　存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。

　　解題思路：

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

　　在該窗體上畫一個框架控件，通過其屬性窗口將名稱設為Frame1，標題(Caption屬性)設為“框架”，Enabled屬性設為False。在F1框架中畫二個單選按鈕控件，通過其屬性窗口將名稱分別設為Option1、Option2，標題(Caption屬性)分別設為“第一項”、“第二項”，“第二項”的Value屬性設為True。

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

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt1.vbp文件并運行。

　　(2)在名稱為Form1的窗體上畫一個名稱為Drive1的驅(qū)動器列表框，一個名稱為Dir1的目錄列表框，一個名稱為File1的文件列表框，名稱為Label1、標題為“文件名”的標簽和名稱為Label2、BorderStyle為 1的標簽。窗體的標題設置為“文件系統(tǒng)控件”，如圖所示。 請編寫適當?shù)某绦�，使得這三個文件系統(tǒng)控件可以同步變化， 即當驅(qū)動器列表框中顯示的內(nèi)容發(fā)生變化時，目錄列表框和文件列表框中顯示的內(nèi)容同時發(fā)生變化。 單擊文件列表框時，將選中的文件名顯示在Label2中。

　　注意：

　　要求程序中不得使用變量，事件過程中只能寫一條語句。

　　存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。

　　解題思路：

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

　　在該窗體上畫一個驅(qū)動器列表框控件，通過其屬性窗口將名稱設為Drive1。畫一個目錄列表框控件，通過其屬性窗口將名稱設為Dir1。畫一個文件列表框控件，通過其屬性窗口將名稱設為File1。畫一個標簽控件，通過其屬性窗口將名稱設為Label1，標題(Caption屬性)設為“文件名”。畫一個標簽控件，通過其屬性窗口將名稱設為Label2，BorderStyle屬性設為1。激活Form1窗體，通過其屬性窗口將標題(Caption屬性)設為“文件系統(tǒng)控件”。

　　當目錄列表框的內(nèi)容發(fā)生變化時(即運行Change事件過程)，在該Change事件過程中加入語句：

　　Private Sub Dir1_Change()

　　Form1.File1.Path = Form1.Dir1

　　End Sub

　　當驅(qū)動器列表框的內(nèi)容發(fā)生變化時(即運行Change事件過程)，在該Change事件過程中加入語句：

　　Private Sub Drive1_Change()

　　Dir1 = Drive1

　　End Sub

　　單擊文件列表框(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub File1_Click()

　　Label2 = File1.FileName

　　End Sub

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

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt2.vbp文件并運行。

　　相關推薦：

　　2012年計算機等考四級數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總