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

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

　　在窗體上有一個名稱為Command1、標題為“計算”的命令按鈕;兩個水平滾動條， 名稱分別為Hscroll1和Hscroll2，其Max屬性均為100，Min屬性均為1; 四個標簽，名稱分別為Label1、Label2、Label3和Label4，標題分別為“運算數1”、“運算數2”、“運算結果”和空白;此外還有一個包含四個單選按鈕的控件數組， 名稱為Option1，標題分別為“+”、“-”、“*”和“/”， 如圖1所示。程序運行后，移動兩個滾動條中的滾動框，用滾動條的當前值作為運算數，如果選中一個單選鈕，然后單擊命令按鈕，相應的計算結果將顯示在Label4中， 程序運行情況如圖2所示。這個程序不完整，請把它補充完整，并能正確運行。

　　要求：

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

　　解題思路：

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

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

　　1) 將語句

　　'If ? = True Then

　　改為

　　If Option1(i) = True Then

　　2) 將語句

　　'Select Case ?

　　改為

　　Select Case opt

　　3) 將語句

　　'? = Str(HScroll1.Value) & " " & opt & Str(HScroll2.Value) & " =" & Str(Result)

　　改為

　　Label4 = Str(HScroll1.Value) & " " & opt & Str(HScroll2.Value) & " =" & Str(Result)

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

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

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

　　(2)在考生文件夾下有一個工程文件sjt4.vbp，相應的窗體文件為sjt4.frm。在窗體上有一個命令按鈕， 其名稱為Command1，標題為“輸入/顯示”;此外還有一個文本框，其名稱為Text1，初始內容為空白。程序的功能是，程序運行后，單擊命令按鈕，顯示輸入對話框，在對話框中輸入某個月份的數值(1～12)， 然后單擊“確定”按鈕，即可在文本框中輸出該月份

　　所在的季節。例如輸入5，將輸出“5月份是夏季”，如圖所示。該程序不完整，請把它補充完整。

　　要求：

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

　　解題思路：

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

　　1) 將語句

　　'Loop Until ? And n < 13

　　改為

　　Loop Until n > 0 And n < 13

　　2) 將語句

　　'Select Case ?

　　改為

　　Select Case n

　　3) 將語句

　　'Select Case ?

　　改為

　　Select Case m

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

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

　　相關推薦：

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

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

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