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

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

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

　　在窗體上有一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕;兩個(gè)水平滾動(dòng)條， 名稱分別為Hscroll1和Hscroll2，其Max屬性均為100，Min屬性均為1; 四個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1、Label2、Label3和Label4，標(biāo)題分別為“運(yùn)算數(shù)1”、“運(yùn)算數(shù)2”、“運(yùn)算結(jié)果”和空白;此外還有一個(gè)包含四個(gè)單選按鈕的控件數(shù)組， 名稱為Option1，標(biāo)題分別為“+”、“-”、“*”和“/”， 如圖1所示。程序運(yùn)行后，移動(dòng)兩個(gè)滾動(dòng)條中的滾動(dòng)框，用滾動(dòng)條的當(dāng)前值作為運(yùn)算數(shù)，如果選中一個(gè)單選鈕，然后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果將顯示在Label4中， 程序運(yùn)行情況如圖2所示。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。

　　要求：

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

　　解題思路：

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

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

　　1) 將語(yǔ)句

　　'If ? = True Then

　　改為

　　If Option1(i) = True Then

　　2) 將語(yǔ)句

　　'Select Case ?

　　改為

　　Select Case opt

　　3) 將語(yǔ)句

　　'? = 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

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

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

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

　　所在的季節(jié)。例如輸入5，將輸出“5月份是夏季”，如圖所示。該程序不完整，請(qǐng)把它補(bǔ)充完整。

　　要求：

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

　　解題思路：

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

　　1) 將語(yǔ)句

　　'Loop Until ? And n < 13

　　改為

　　Loop Until n > 0 And n < 13

　　2) 將語(yǔ)句

　　'Select Case ?

　　改為

　　Select Case n

　　3) 將語(yǔ)句

　　'Select Case ?

　　改為

　　Select Case m

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

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

　　相關(guān)推薦：

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

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

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