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

　　(1)在考生目錄下有一個(gè)工程文件sjt3.vbp，窗體上有一個(gè)單選按鈕數(shù)組，含三個(gè)單選按鈕，均沒有標(biāo)題，請利用屬性窗口，為單選按鈕依次添加標(biāo)題為“北京”、“上海”、“廣州”;再添加一個(gè)標(biāo)題為“顯示”的命令按鈕，如圖所示。程序的功能是在運(yùn)行時(shí)，如果選中一個(gè)單選按鈕后，單擊“顯示”按鈕，則根據(jù)單選按鈕的選中情況，在窗體上顯示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是廣州”。要求：

　　1) 依次添加單選按鈕標(biāo)題為“北京”、“上海”、“廣州”;設(shè)初始選中的是“廣州”，添加命令按鈕標(biāo)題為“顯示”。

　　2) 去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的其他屬性。

　　最后把修改后的文件按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體控件不完整，通過單選按鈕屬性窗口將標(biāo)題(Caption屬性)分別設(shè)為“北京”、“上海”、“廣州”，把“廣州”單選按鈕的Value屬性設(shè)為True。通過命令按鈕屬性窗口將標(biāo)題(Caption屬性)設(shè)為“顯示”。

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

　　1) 將語句

　　'For i = ? To ?

　　改為

　　For i = 0 To 2

　　2) 將語句

　　'If Op1(i).? = True Then

　　改為

　　If Op1(i).Value = True Then

　　3) 將語句

　　'Print "我的出生地是" + Op1(i).?

　　改為

　　Print "我的出生地是" + Op1(i).Caption

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

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

　　(2)在考生目錄下有一個(gè)工程文件sjt4.vbp，請?jiān)贔orm1窗體中畫三個(gè)標(biāo)簽，名稱分別為B1、B2、L1，標(biāo)題分別為“字號(hào)”、“字體”、“計(jì)算機(jī)等級考試”，其中L1的高為 500，寬為3000;再在B1、B2標(biāo)簽的下面畫兩個(gè)組合框，名稱分別為Cb1、Cb2，并為Cb1添加項(xiàng)目：“10”、“15”、“20”，為Cb2 添加項(xiàng)目：“黑體”、“隸書”、“宋體”。請編寫適當(dāng)?shù)氖录�過程，使得在運(yùn)行時(shí)，當(dāng)在Cb1中選一個(gè)字號(hào)、在Cb2中選一個(gè)字體，標(biāo)簽L1中的文字立即變?yōu)檫x定的字號(hào)和字體。如圖所示。

　　注意：

　　考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須選擇一個(gè)字號(hào)和字體。必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，按原文件名存盤，程序中不能使用任何變量。

　　解題思路：

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

　　由于所提供的窗體控件不完整，需在該窗體上畫三個(gè)標(biāo)簽控件，通過其屬性窗口將名稱分別設(shè)為B1、B2、L1，標(biāo)題(Caption屬性)分別設(shè)為“字號(hào)”、“字體”、“計(jì)算機(jī)等級考試”，并對L1標(biāo)簽的高(Height屬性)設(shè)為500，寬(Width屬性)設(shè)為3000。再畫二個(gè)組合框控件，通過其屬性窗口將名稱分別設(shè)為Cb1、Cb2，并對Cb1項(xiàng)目(List屬性)添加“10”、“15”、“20”內(nèi)容，對Cb2項(xiàng)目(List屬性)添加“黑體”、“隸書”、“宋體”內(nèi)容。

　　Cb1選擇字號(hào)(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Cb1_Click()

　　L1.Font.Size = Cb1.Text

　　End Sub

　　Cb2選擇字體(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Cb2_Click()

　　L1.Font = Cb2.Text

　　End Sub

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

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

　　相關(guān)推薦：

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

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

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