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

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

　　(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp，窗體上有兩個(gè)列表框，名稱分別為L(zhǎng)ist1、List2，在List2中已經(jīng)預(yù)設(shè)了內(nèi)容;還有兩個(gè)命令按鈕， 名稱分別為C1、C2，標(biāo)題分別為“添加”、“清除”。如圖所示。程序的功能是在運(yùn)行時(shí)，如果選中右邊列標(biāo)框中的一個(gè)列表項(xiàng)，單擊“添加”按鈕，則把該項(xiàng)移到左邊的列表框中;若選中左邊列表框中的一個(gè)列表項(xiàng)，單擊“清除”按鈕，則把該項(xiàng)移回右邊的列表框中。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。 但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。

　　解題思路：

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

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

　　1) 將語(yǔ)句

　　'While (k < List2.?)

　　改為

　　While (k < List2.ListCount)

　　2) 將語(yǔ)句

　　'If ?.Selected(k) = True Then

　　改為

　　If List2.Selected(k) = True Then

　　3) 將語(yǔ)句

　　'List2.RemoveItem ?

　　改為

　　List2.RemoveItem k

　　在“清除”按鈕的Private Sub C2_Click()事件過(guò)程中，有一處地方需要修改。

　　1) 將語(yǔ)句

　　'List1.RemoveItem List1.?

　　改為

　　List1.RemoveItem List1.ListIndex

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

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

　　(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp，請(qǐng)?jiān)贔orm1窗體上建立一個(gè)名稱為Op1的單選按鈕數(shù)組，含有三個(gè)單選按鈕，其標(biāo)題分別為“10!”、“11!”、“12!”，Index屬性分別為0、1、2;再畫一個(gè)名稱為 C1的命令按鈕，標(biāo)題為“計(jì)算”;畫一個(gè)名稱為Text1的文本框，如圖所示。

　　程序的功能是在選定一個(gè)單選按鈕并單擊“計(jì)算”按鈕后， 可以計(jì)算出相應(yīng)的階乘值，在Text1中顯示該階乘值。請(qǐng)畫出上述控件并編寫程序。

　　注意：

　　考生不得修改工程中已經(jīng)存在的內(nèi)容， 在結(jié)束程序運(yùn)行之前，必須進(jìn)行一次計(jì)算。 必須通過(guò)單擊窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體控件不完整，需畫一個(gè)單選按鈕控件，通過(guò)對(duì)單選按鈕控件的復(fù)制產(chǎn)生單選按鈕控件數(shù)組，共有三個(gè)單選按鈕，通過(guò)屬性窗口將名稱設(shè)為Op1，Index屬性分別設(shè)為0、1、2，標(biāo)題(Caption屬性)分別設(shè)為“10!”、“11!”、“12!”。畫一個(gè)命令按鈕控件，通過(guò)屬性窗口將名稱設(shè)為C1，標(biāo)題(Caption屬性)設(shè)為“計(jì)算”。畫一個(gè)文本框控件，通過(guò)屬性窗口將名稱設(shè)為Text1。

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

　　Private Sub C1_Click()

　　Dim k As Integer

　　k = 0

　　'判斷選擇了哪個(gè)單選按鈕

　　While Not Op1(k).Value And k < 3

　　k = k + 1

　　Wend

　　If k < 3 Then

　　Text1.Text = calculat(Val(Left$(Op1(k).Caption, 2)))

　　End If

　　End Sub

　　函數(shù)calculat()是求階乘的函數(shù)，具體內(nèi)容：

　　Function calculat(n As Integer)

　　Dim k As Integer, t As Long

　　t = 1

　　For k = 2 To n

　　t = t * k

　　Next k

　　calculat = t

　　End Function

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

　　請(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í)間及入口匯總