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

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

　　(1)在考生文件夾下有一個工程文件sjt3.vbp，其窗體上有一個名稱為 Text1的文本框;一個名稱為 L1 的列表框;一個命令按鈕，名稱為 C1 ，標(biāo)題為“添加”(如圖所示)。程序的功能是，在運(yùn)行時，如果在文本框中輸入一行內(nèi)容并單擊“添加”按鈕，則把文本框中的內(nèi)容作為列表項添加到列表中。如果單擊列表中的某一項，則立即從列表中刪除該項。

　　要求：去掉程序中的注釋符，把程序中的 ? 改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原來的文件名存盤。

　　解題思路：

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

　　1) 將語句

　　'L1.AddItem ?

　　8

　　改為

　　L1.AddItem Text1

　　在列表框的Private Sub L1_Click()事件過程中，有一處地方需要修改。

　　1) 將語句

　　'L1.RemoveItem ?

　　改為

　　L1.RemoveItem L1.ListIndex

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

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

　　(2)在考生文件夾下有一個工程文件sjt4.vbp，請在窗體上畫一個文本框，名稱為 Text1;畫一個命令按鈕，名稱為C1，標(biāo)題為“確定”;再畫三個單選按鈕，名稱分別為 Op1、Op2、Op3，標(biāo)題分別為“飛機(jī)”、“火車”、“汽車”(如圖所示)。請編寫適當(dāng)?shù)氖录�過程，使得在運(yùn)行時，選中一個單選按鈕并單擊“確定”按鈕后，按照下表在文本框中顯示相應(yīng)內(nèi)容。

　　注意：不得修改已經(jīng)給出的程序。退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運(yùn)行之前，必須選中一個單選按鈕，并單擊“確定”按鈕。否則可能無成績。

　　解題思路：

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

　　由于所提供的窗體控件不完整，需在該窗體上畫一個文本框控件，通過屬性窗口將名稱設(shè)為Text1。畫一個文本框控件，通過屬性窗口將名稱設(shè)為C1，標(biāo)題(Caption屬性)設(shè)為“確定”。畫三個單選按鈕控件，通過屬性窗口將名稱分別設(shè)為 Op1、Op2、Op3，標(biāo)題(Caption屬性)分別設(shè)為“飛機(jī)”、“火車”、“汽車”。

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

　　單擊“確定”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub C1_Click()

　　If Op1.Value Then

　　Text1.Text = "需要1小時"

　　ElseIf Op2.Value Then

　　Text1.Text = "需要10小時"

　　ElseIf Op3.Value Then

　　Text1.Text = "需要15小時"

　　End If

　　End Sub

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

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

　　相關(guān)推薦：

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

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

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