2012年計(jì)算機(jī)二級VB上機(jī)試題及解題思路第八套

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

　　(1)在考生文件夾下有一個工程文件sjt3.vbp，相應(yīng)的窗體文件為sjt3.frm，包含了所有控件和部分程序，如圖所示。

　　要求：

　　1)利用屬性窗口向列表框添加四個項(xiàng)目： Visual Basic，Turbo C，C++，Java;

　　2)請編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽寒?dāng)選擇列表框中的一項(xiàng)和單選按鈕Option1，然后單擊“確定”命令按鈕，則文本框中顯示“XXX筆試”; 當(dāng)選擇列表框中的一項(xiàng)和單選按鈕Option2，然后單擊“確定”命令按鈕，則文本框中顯示“XXX上機(jī)”。其中“XXX”是在列表框中所選擇的項(xiàng)目。

　　注意：

　　考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運(yùn)行之前，必須至少要進(jìn)行一次選擇操作(包括列表框和單選按鈕)，否則不得分。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。由于所提供的窗體控件不完整，向列表框控件添加項(xiàng)目(List屬性)，添加的項(xiàng)目分別為Visual Basic，Turbo C，C++，Java，每個項(xiàng)目為一行。

　　由于所提供的窗體程序不完整，單擊“確定”命令按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中

　　加入語句：

　　Private Sub Command1_Click()

　　If Option1.Value And List1.Text <> "" Then

　　Text1.Text = List1.Text & Option1.Caption

　　Else

　　If Option2.Value And List1.Text <> "" Then

　　Text1.Text = List1.Text & Option2.Caption

　　End If

　　End If

　　End Sub

　　另外需注意：在結(jié)束程序運(yùn)行之前，必須至少要進(jìn)行一次選擇操作(包括列表框和單選按鈕)，退出程序時需單擊窗體右上角的關(guān)閉按鈕，這樣就運(yùn)行了Private Sub Form_Unload(Cancel As Integer)事件過程。

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

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

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

　　(2)在考生文件夾下有一個工程文件sjt4.vbp，相應(yīng)的窗體文件為sjt4.frm。

　　在窗體上有一個命令按鈕，其名稱為Command1，標(biāo)題為“計(jì)算并輸出”。程序運(yùn)行后，如果單擊命令按鈕，程序?qū)⒂?jì)算500以內(nèi)兩個數(shù)之間(包括開頭和結(jié)尾的數(shù))所有連續(xù)數(shù)的和為1250的正整數(shù)， 并在窗體上顯示出來。這樣的數(shù)有多組， 程序輸出每組開頭和結(jié)尾的正整數(shù)，并用“～”連接起來，如圖所示。該程序不完整，請把它補(bǔ)充完整。

　　要求：

　　去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容， 使其能正確運(yùn)行，但不能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。由于所提供的窗體程序不完整，在窗體的Private Sub Command1_Click()事件過程中，有三處地方需要修改。

　　1) 將語句

　　'iSum = ?

　　改為

　　iSum = 0

　　2) 將語句

　　'iSum = ?

　　改為

　　iSum = iSum + j

　　3) 將語句

　　'If iSum = ? Then

　　改為

　　If iSum = 1250 Then

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

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

　　相關(guān)推薦：

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

　　2012年計(jì)算機(jī)等級考試二級VB重點(diǎn)知識匯總

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