注意：下面出現的“考生文件夾”均為%USER%

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

　　要求：

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

　　2)請編寫適當的程序完成以下功能：當選擇列表框中的一項和單選按鈕Option1，然后單擊“確定”命令按鈕，則文本框中顯示“XXX筆試”; 當選擇列表框中的一項和單選按鈕Option2，然后單擊“確定”命令按鈕，則文本框中顯示“XXX上機”。其中“XXX”是在列表框中所選擇的項目。

　　注意：

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

　　解題思路：

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

　　由于所提供的窗體程序不完整，單擊“確定”命令按鈕(即運行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

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

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

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

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

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

　　在窗體上有一個命令按鈕，其名稱為Command1，標題為“計算并輸出”。程序運行后，如果單擊命令按鈕，程序將計算500以內兩個數之間(包括開頭和結尾的數)所有連續數的和為1250的正整數， 并在窗體上顯示出來。這樣的數有多組， 程序輸出每組開頭和結尾的正整數，并用“～”連接起來，如圖所示。該程序不完整，請把它補充完整。

　　要求：

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

　　解題思路：

　　啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應的窗體文件名為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

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

　　相關推薦：

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

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

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