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

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

　　(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp。窗體上有一個(gè)標(biāo)題為“得分”的框架，在框架中有一個(gè)名稱為T(mén)ext1的文本框數(shù)組，含六個(gè)元素; 文本框Text2用來(lái)輸入難度系數(shù)。程序運(yùn)行時(shí)，在左邊的六個(gè)文本框中輸入6個(gè)得分，輸入難度系數(shù)后，單擊“計(jì)算分?jǐn)?shù)”按鈕，則可計(jì)算出最后得分并在文本框Text3中顯示(如圖所示)。

　　計(jì)算方法：

　　去掉1個(gè)最高得分和1個(gè)最低得分，求剩下得分的平均分，再乘以3， 再乘以難度系數(shù)。最后結(jié)果保留到第2位小數(shù)，不四舍五入。

　　注意：

　　文件中已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的 ? 改為正確的內(nèi)容。考生不能修改程序中的其他部分和各控件的屬性。最后把修改后的文件按原文件名存盤(pán)。

　　解題思路：

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

　　由于所提供的窗體程序不完整，在“計(jì)算分?jǐn)?shù)”按鈕的Private Sub Command1_Click()事件過(guò)程中，有四處地方需要修改。

　　1) 將語(yǔ)句

　　'For k = 1 To ?

　　改為

　　For k = 1 To 5

　　2) 將語(yǔ)句

　　☆國(guó)家教育部考試中心題庫(kù)☆ 172

　　'If ? < Val(Text1(k).Text) Then

　　改為

　　If a < Val(Text1(k).Text) Then

　　3) 將語(yǔ)句

　　's = (s - a - b) / ?

　　改為

　　s = (s - a - b) / 4

　　4) 將語(yǔ)句

　　's = ? * 3 * Val(Text2.Text)

　　改為

　　s = s * 3 * Val(Text2.Text)

　　5) 將語(yǔ)句

　　'? = Int(s * 100) / 100

　　改為

　　Text3 = Int(s * 100) / 100

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

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

　　(2)在考生目錄下有一個(gè)工程文件sjt4.vbp。 窗體上的控件如圖所示。程序運(yùn)行時(shí)，若選中“階乘”單選按鈕，則“1000”、“2000”菜單項(xiàng)不可用(如圖所示)，若選中“累加”單選按鈕，則“10”、“12”菜單項(xiàng)不可用。選中菜單中的一個(gè)菜單項(xiàng)后，單擊“計(jì)算”按鈕，則相應(yīng)的計(jì)算結(jié)果顯示在文本框中(例如：選中“階乘”和“10”，則計(jì)算10!，選中“累加”和“2000”，則計(jì)算1+2+3+ … +2000)。 單擊“存盤(pán)”按鈕則把文本框中的結(jié)果保存到考生目錄下的out4.dat文件中。

　　要求：

　　編寫(xiě)“計(jì)算”按鈕的Click事件過(guò)程。

　　注意：

　　不得修改已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須用“存盤(pán)”按鈕存儲(chǔ)計(jì)算結(jié)果，否則無(wú)成績(jī)。最后，程序按原文件名存盤(pán)。

　　解題思路：

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

　　由于所提供的窗體程序不完整，需添加事件過(guò)程。

　　單擊“計(jì)算”按鈕(即運(yùn)行Click事件過(guò)程)，在該Click事件過(guò)程中加入語(yǔ)句：

　　Private Sub Command1_Click()

　　If Option1.Value = True Then

　　s = 1

　　For k = 1 To n

　　s = s * k

　　Next

　　End If

　　If Option2.Value = True Then

　　s = 0

　　For k = 1 To n

　　s = s + k

　　Next

　　End If

　　Text1 = s

　　End Sub

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

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)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í)間及入口匯總