[問(wèn)答題] 有一個(gè)工程文件ylc6.vbp。請(qǐng)?jiān)诖绑w上畫一個(gè)文本框，其名稱為Text1；畫一個(gè)命令按鈕，名稱為Command1，標(biāo)題為“確定”。再畫5個(gè)單選按鈕，名稱分別為option1、Option2、 Option3、Option4和Option5，標(biāo)題分別為“飛機(jī)”、“火車”、“汽車”、“自行車”和“步行”，如圖26所示。

編寫適當(dāng)事件過(guò)程。選中一個(gè)單選按鈕，并單擊“確定”按鈕，按照表3-1在文本框中顯示相應(yīng)的內(nèi)容。

提供Command1對(duì)象的Click事件源代碼如下，請(qǐng)補(bǔ)充完整。

Private Sub Command1_Click()

If Then

Text1.Text="需要1小時(shí)"

End If

If Then

Text1. Text="需要10小時(shí)"

End If

If Then

Text1. Text="需要20小時(shí)"

End If

If Then

Text1. Text="需要100小時(shí)"

End If

If Then

Text1.Text ="需要500小時(shí)"

End If

End Sub

注意：不得修改已經(jīng)給出的程序。在結(jié)束程序運(yùn)行之前，必須選擇進(jìn)行上面的一種操作．退出程序時(shí)必須通過(guò)單擊窗體右上角的關(guān)閉按鈕．存盤時(shí)必須存放在考生丈件夾下，工程文件名為ylc6.vbp，窗體文件名為ylc6.frm．

操作步驟 (1)在Visual Basic集成環(huán)境選擇“文件”→“打開(kāi)工程”命令，在對(duì)話框中選擇ylc6.vbp工程文件，單擊“確定”按鈕打開(kāi)。 (2)在工具箱中選擇TextBox控件，在窗體中創(chuàng)建命名為Text1。在屬性窗口分別設(shè)置屬性為空。 (3)從工具箱中選擇選項(xiàng)控件，在窗體中拖動(dòng)創(chuàng)建，在屬性窗口分別命名為Option1、 Option2、Option3、Option4和Option5，標(biāo)題分別為“飛機(jī)”、“火車”、“汽車”、“自行車”和“步行”。 (4)通過(guò)工具箱創(chuàng)建命令按鈕，命名為Com

(1)這是一道簡(jiǎn)單的應(yīng)用題，主要考查OptionButton控件的應(yīng)用能力。在編程中使用判定的控制流程，顯示出不同的結(jié)果信息。 (2)上面的控制流程使用3個(gè)If...Then...End If，分別判斷3個(gè)單選按鈕是否被選中。判斷后在文本框中顯示相應(yīng)的信息。