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

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

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

　　(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp，窗體上已經(jīng)有兩個(gè)文本框，名稱分別為Text1、Text2;和一個(gè)命令按鈕，名稱為C1，標(biāo)題為“確定”;請畫兩個(gè)單選按鈕，名稱分別為Op1、Op2，標(biāo)題分別為“男生”、“女生”;再畫兩個(gè)復(fù)選框，名稱分別為Ch1、Ch2，標(biāo)題分別為“體育”、“音樂”。請編寫適當(dāng)?shù)氖录�過程，使得在運(yùn)行時(shí)，單擊“確定”按鈕后實(shí)現(xiàn)下面的操作：

　　1)根據(jù)選中的單選按鈕，在Text1中顯示“我是男生”或“我是女生”。

　　2)根據(jù)選中的復(fù)選框，在Text2中顯示“我的愛好是體育”或“我的愛好是音樂”或“我的愛好是體育音樂”。如圖所示。

　　注意：

　　不得修改已經(jīng)給出的程序和已有控件的屬性。在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕和至少一個(gè)復(fù)選框，并單擊“確定”按鈕。必須使用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。

　　解題思路：

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

　　由于所提供的窗體控件不完整，需在該窗體上畫二個(gè)單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Op1、Op2，標(biāo)題(Caption屬性)分別設(shè)為“男生”、“女生”。再畫二個(gè)復(fù)選框控件，通過其屬性窗口將名稱分別設(shè)為Ch1、Ch2，標(biāo)題(Caption屬性)分別設(shè)為“體育”、“音樂”。

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

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

　　Private Sub C1_Click()

　　Dim a As String

　　a = "我是"

　　If Op1.Value Then

　　Text1.Text = a & Op1.Caption

　　Else

　　Text1.Text = a & Op2.Caption

　　End If

　　a = "我的愛好是"

　　If Ch1.Value = 1 Then

　　Text2.Text = a & Ch1.Caption

　　a = Text2.Text

　　End If

　　If Ch2.Value = 1 Then

　　Text2.Text = a & Ch2.Caption

　　End If

　　End Sub

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

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

　　(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp。窗體上有一個(gè)名稱為List1的列表框，名稱為Timer1 的計(jì)時(shí)器，名稱為Label1的標(biāo)簽，如圖所示。請通過屬性窗口向列表框添加四個(gè)項(xiàng)目，分別是：“第一項(xiàng)”、“第二項(xiàng)”、“第三項(xiàng)”、“第四項(xiàng)”。程序運(yùn)行后，將計(jì)時(shí)器的時(shí)間間隔設(shè)置為1秒鐘，每一秒鐘從列表框中取出一個(gè)項(xiàng)目顯示在Label1的標(biāo)簽中，首先顯示“第一項(xiàng)”，然后，依次顯示“第二項(xiàng)”、“第三項(xiàng)”、“第四項(xiàng)”，如此循環(huán)。

　　在給出的窗體文件中已經(jīng)有了全部控件和程序，但不完整，請?zhí)砑覮ist1中的項(xiàng)目，去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　注意：

　　考生不得修改工程中已經(jīng)存在的內(nèi)容和控件屬性， 最后把修改后的文件按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體控件不完整，需在列表框中添加四個(gè)項(xiàng)目，通過其屬性窗口的List屬性輸入“第一項(xiàng)”、“第二項(xiàng)”、“第三項(xiàng)”、“第四項(xiàng)”。

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

　　1) 將語句

　　'i = ?

　　改為

　　i = 0

　　2) 將語句

　　'Timer1.Interval = ?

　　改為

　　Timer1.Interval = 1000

　　在計(jì)時(shí)器的Private Sub Timer1_Timer()事件過程中，有一處地方需要修改。

　　1) 將語句

　　'Label1.Caption = ?

　　改為

　　Label1.Caption = List1.List(i)

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

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

　　相關(guān)推薦：

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

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

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