2013年計(jì)算機(jī)二級VB上機(jī)模擬題及答案三

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

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

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

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

　　注意：

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

　　解題思路：

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

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

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

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

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

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

　　(2)在名稱為Form1的窗體中建立一個(gè)彈出式菜單(程序運(yùn)行時(shí)不顯示)，名 稱為file， 含兩個(gè)菜單項(xiàng)，其名稱分別為open、save，標(biāo)題分別為“打開”、“存盤”。編寫適當(dāng)?shù)氖录�過程。程序運(yùn)行后，如果用鼠標(biāo)右鍵

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

　　注意：

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

　　解題思路：

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

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

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

　　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

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

　　2. 簡單應(yīng)用(2小題，每題20分，計(jì)40分)

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

　　*

　　(1)在考生目錄下有一個(gè)工程文件sjt3.vbp，窗體上有一個(gè)組合框Combo1，其 中已經(jīng)預(yù)設(shè)了內(nèi)容;還有一個(gè)文本框Text1和三個(gè)命令按鈕，名稱分別為Command1、Command2、Command3，標(biāo)題分別為“修改”、“確定”、“添加”。程序運(yùn)行時(shí)，“確定”按鈕不可用，如圖所示。

　　程序的功能是：在運(yùn)行時(shí)，如果選中組合框中的一個(gè)列表項(xiàng)，單擊“修改”按鈕，則把該項(xiàng)復(fù)制到Text1中(可在Text1中修改)，并使“確定”按鈕可用;若單擊“確定”按鈕， 則把修改后的Text1中的內(nèi)容替換組合框

　　中該列表項(xiàng)的原有內(nèi)容，同時(shí)使“確定”按鈕不可用;若單擊“添加”按鈕，則把在Text1中的內(nèi)容添加到組合框中。所提供的窗體文件已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的 ? 改為正確的內(nèi)容。但不能修改程序中的其他部分， 也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。

　　由于所提供的窗體控件不完整，通過屬性窗口將“確定”按鈕的Enabled屬性設(shè)為False。

　　由于所提供的窗體程序不完整，在“修改”按鈕的Private Sub Command1_Click()事件過程中，有一處地方需要修改。

　　1) 將語句

　　’Command2. ? = True

　　改為

　　Command2.Enabled = True

　　在“確定”按鈕的Private Sub Command2_Click()事件過程中，有一處地方需要修改。

　　1) 將語句

　　’Combo1.List( ? ) = Text1

　　改為

　　Combo1.List(Combo1.ListIndex) = Text1

　　在“添加”按鈕的Private Sub Command3_Click()事件過程中，有一處地方需要修改。

　　1) 將語句

　　’? Text1

　　改為

　　Combo1.AddItem Text1

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

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

　　(2)在考生目錄下有一個(gè)工程文件sjt4.vbp，窗體中的兩個(gè)滾動條分別表示紅 燈亮和綠燈亮的時(shí)間(秒)，移動滾動框可以調(diào)節(jié)時(shí)間，調(diào)節(jié)范圍為1-10 秒。剛運(yùn)行時(shí)，紅燈亮。單擊“開始”按鈕則開始切換：紅燈到時(shí)后自動 變?yōu)辄S燈，1秒后變?yōu)榫G燈;綠燈到時(shí)后自動變?yōu)辄S燈，1秒后變?yōu)榧t燈， 如此切換(如圖所示)。 所提供的窗體文件已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　提示：

　　在三個(gè)圖片框picture1、picture2、picture3中分別放置了紅燈亮、綠 燈亮、黃燈亮的圖標(biāo)，并重疊在一起，當(dāng)要使某個(gè)燈亮?xí)r，就使相應(yīng)的 圖片框可見，而其他圖片框不可見，并保持規(guī)定的時(shí)間，時(shí)間到就切換為另一個(gè)圖片框可見，其他圖片框不可見。

　　注意：

　　考生不得修改工程中已經(jīng)存在的內(nèi)容和控件屬性，最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。

　　由于所提供的窗體程序不完整，在命令按鈕的Private Sub Command1_Click()中，有二處地方需要修改。

　　1) 將語句

　　’? = HScroll1.Value

　　改為

　　red = HScroll1.Value

　　2) 將語句

　　’Timer1.Enabled = ?

　　改為

　　Timer1.Enabled = True

　　由于所提供的窗體程序不完整，在計(jì)時(shí)器的Private Sub Timer1_Timer()中，有二處地方需要修改。

　　1) 將語句

　　’? .Visible = False

　　改為

　　Picture1.Visible = False

　　2) 將語句

　　’green = ?

　　改為

　　green = green - 1

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

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運(yùn)行�！�