2009年9月計(jì)算機(jī)等考二級(jí)VB模擬題及解析(4)

　　(6) 在窗體上畫一個(gè)名稱為Text1的文本框，然后畫3個(gè)單選按鈕，并用這3個(gè)單選按鈕建立一個(gè)控件數(shù)組，名數(shù)為Option1。程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換，如圖所示。請(qǐng)?zhí)羁铡?/P>

　　Private Sub Option1_Click(Index As Integer)

　　Select Case 【8】

　　Case 0

　　a="宋體"

　　Case 1

　　a="黑體"

　　Case 2

　　a="楷體_GB2312"

　　End Select

　　Text1 【9】 =a

　　End Sub

　　正確答案: 1.(Index) 2.(FontName)

　　(7) 在窗體上畫兩個(gè)組合框，其名稱分別為Combo1、Combo2，然后畫兩個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1、Label2，如圖所示。程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來(lái)。請(qǐng)?zhí)羁铡?/P>

　　Private Sub Combo1_Click()

　　Call ShowItem(Combo1,Label1)

　　End Sub

　　Private Sub Combo2_Click()

　　Call ShowItem(Combo2,Label2)

　　End Sub

　　Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

　　【10】 Caption= 【11】 Text

　　End Sub

　　正確答案: 1.(tmpLabel) 2.(tmpCombo)