2012年計算機二級VB上機試題及解題思路第32套

　　2. 簡單應用(2小題，每題20分，計40分)

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

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

　　解題思路：

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

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

　　1) 將語句

　　'While (k < List2.?)

　　改為

　　While (k < List2.ListCount)

　　2) 將語句

　　'If ?.Selected(k) = True Then

　　改為

　　If List2.Selected(k) = True Then

　　3) 將語句

　　'List2.RemoveItem ?

　　改為

　　List2.RemoveItem k

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

　　1) 將語句

　　'List1.RemoveItem List1.?

　　改為

　　List1.RemoveItem List1.ListIndex

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

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

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

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

　　注意：

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

　　解題思路：

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

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

　　單擊“計算”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub C1_Click()

　　Dim k As Integer

　　k = 0

　　'判斷選擇了哪個單選按鈕

　　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

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

　　相關(guān)推薦：

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

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

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