2004年全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB全真上機(jī)試題解析
第1題：
在考生文件夾下有一個(gè)工程文件sjt5.vbp，其窗體上有一個(gè)文本框，名稱 為Text1；還有兩個(gè)命令按鈕，名稱分別為C1、C2，標(biāo)題分別為"計(jì)算"、 "存盤"，如圖所示。并有一個(gè)函數(shù)過程 isprime可以在程序中直接調(diào)用， 其功能是判斷參數(shù) a 是否為素?cái)?shù)，如果是素?cái)?shù)，則返回 True，否則返回 False。 請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，單擊"計(jì)算"按鈕，則找出小于 18000的的素?cái)?shù)，并顯示在Text1中；單擊"存盤"按鈕，則把 Text1 中的計(jì)算結(jié)果存入考生文件夾下的out5.txt文件中。
本題的考查主要有兩個(gè),一個(gè)是循環(huán),一個(gè)是文件的訪問。
由于在小于18000中尋找素?cái)?shù),并且判斷素?cái)?shù)的函數(shù)已經(jīng)給出,只要使用一個(gè)循環(huán)在18000以下尋找,沒有找到減一再尋找,找到記錄在Text1.Text中,在結(jié)構(gòu)化的程序中不再提倡GoTo以及從結(jié)構(gòu)體中退出（例如Exit For等）,使用While判斷是一個(gè)較好的選擇。
第2題：
在考生文件夾下有一個(gè)工程文件sjt4.vbp，窗體上已經(jīng)有兩個(gè)文本框，名 稱分別為Text1、Text2；和一個(gè)命令按鈕，名稱為C1，標(biāo)題為"確定"； 請(qǐng)畫兩個(gè)單選按鈕，名稱分別為 Op1、Op2，標(biāo)題分別為 "男生"、"女 生"；再畫兩個(gè)復(fù)選框，名稱分別為 Ch1、 Ch2，標(biāo)題分別為"體育"、 "音樂"。請(qǐng)編寫適當(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é)束程序，否則無成績(jī)。
分析：?jiǎn)芜x按鈕OptionButton和選擇框CheckBox的簡(jiǎn)單應(yīng)用OptionButton控件和CheckBox控件功能相似，但是二者間也存在著重要差別。在選擇一個(gè)OptionButton時(shí)，同組中的其它OptionButton控件自動(dòng)無效。相反，可以選擇任意數(shù)量的CheckBox控件。
只要注意了這一點(diǎn)本題可以在C1_Click事件中判斷他們的選中情況OptionButton的Value為True表示選中,CheckBox的Value=1時(shí)表示選中。
第3題：
在名稱為 Form1 的窗體上畫一個(gè)標(biāo)簽，名稱為 L1，標(biāo)簽上顯示"請(qǐng)輸入 密碼"， 在標(biāo)簽的右邊畫一個(gè)文本框，名稱為 Text1 ，其寬、高分別為 2000和300，設(shè)置適當(dāng)?shù)膶傩允沟迷谳斎朊艽a時(shí)，文本框中顯示"*"字符， 此外再把窗體的標(biāo)題設(shè)置為"密碼窗口"，以上這些設(shè)置都只能在屬性窗 口中進(jìn)行設(shè)置，運(yùn)行時(shí)的窗體如圖所示。 *注意： 存盤時(shí)必須存放在考生文件夾下，工程文件名為 sjt1.vbp，窗體文件 名為sjt1.frm。
分析：創(chuàng)建的對(duì)象設(shè)置屬性。屬性窗口（選中對(duì)按[F4]調(diào)出）給出了設(shè)置所有的窗體對(duì)象屬性的簡(jiǎn)便方法。在"視圖"菜單中選擇"屬性窗口"命令、單擊工具欄上的"屬性窗口"按鈕或使用控件的上下文菜單，都可以打開屬性窗口。在本題中要求對(duì)于密碼框的設(shè)定,只要為Text1的PasswordChar屬性設(shè)置為*即可完成
第4題：
在考生文件夾下有一個(gè)工程文件 sjt3.vbp，窗體上已經(jīng)有一個(gè)標(biāo)簽 L1， 請(qǐng)畫一個(gè)單選按鈕數(shù)組，名稱為Op1， 含三個(gè)單選按鈕，它們的Index屬性 分別為0、1、2，標(biāo)題依次為"飛機(jī)"、"火車"、"汽車"，再畫一個(gè)名 稱為Text1的文本框。窗體文件中已經(jīng)給出了Op1的Click事件過程，但不完 整，要求去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，使得在運(yùn) 行時(shí)單擊"飛機(jī)"或"火車"單選按鈕時(shí)，在Text1中顯示"我坐飛機(jī)去"或"我坐火車去"，單擊"汽車"單選按鈕時(shí)，在Text1中顯示"我開汽車 去"，如圖所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。
本題考查對(duì)于OptionButton 控件的了解,OptionButton控件顯示一個(gè)可以打開或者關(guān)閉的選項(xiàng),判斷它是否被選中使用的是value屬性,選中為True,反之為False。
一般在使用OptionButton控件使大多數(shù)人喜歡使用控件數(shù)組,在第一題中Select Cas 語(yǔ)句是根據(jù)表達(dá)式的值，來決定執(zhí)行幾組語(yǔ)句中的其中之一。根據(jù)后續(xù)的語(yǔ)句我們可以知道,這里需要根據(jù)用戶的選擇進(jìn)行分流,分流的依據(jù)是用戶選擇了那一個(gè)OptionButton,這個(gè)可以由Index得到,這里填入Index,第二個(gè)空白,我們只要知道OptionButton數(shù)組從零開始,不難判斷Op1（1).Caption是"火車",我們只能"坐",填入a即可。
第5題：
在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體上有兩個(gè)圖片框，名稱為
P1、P2，分別用來表示信號(hào)燈和汽車，其中在 P1 中輪流裝入"黃燈.ico"、 "紅燈.ico"、"綠燈.ico"文件來實(shí)現(xiàn)信號(hào)燈的切換；還有兩個(gè)計(jì)時(shí)器Timer1 和Timer2，Timer1用于變換信號(hào)燈，黃燈1秒，紅燈2秒，綠燈3秒；Timer2用于 控制汽車向左移動(dòng)。運(yùn)行時(shí)，信號(hào)燈不斷變換，單擊"開車"按鈕后。 汽車開 始移動(dòng)，如果移動(dòng)到信號(hào)燈前或信號(hào)燈下，遇到紅燈或黃燈，則停止移動(dòng)， 當(dāng) 變?yōu)榫G燈后再繼續(xù)移動(dòng)。在窗體中已經(jīng)給出了全部控件和程序，但程序不完整，
要求閱讀程序并去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，使其實(shí) 現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。 最后把 修改后的文件以原文件名存盤。
本題中涉及三個(gè)事件
點(diǎn)擊開車按鈕C1_Click,汽車開始啟動(dòng),由題面知道汽車的開動(dòng)由Timer2控制,那么這里必須啟動(dòng)Timer2,所以填入Timer2.Enable=True
紅綠燈由Timer1控制,在Timer1的事件Timer1_Timer中根據(jù)時(shí)間a來更換P1.Picture的圖像,達(dá)到紅綠燈轉(zhuǎn)換的效果,如果看到其他燈已經(jīng)有了,這里填入"綠燈.ioc"是簡(jiǎn)單的選擇,仔細(xì)分析要在綠燈有三秒,也必須這樣填寫
最后是汽車的移動(dòng),已知是由Timer2操作的,在它的事件Timer2_Timer中要移動(dòng)汽車,使用了picture的Move方法,平行向右移動(dòng),改變Left值,這里填入picture1.Left即可實(shí)現(xiàn)。
其他關(guān)于Timer控件以及picture控件的屬性方法事件請(qǐng)自己參閱有關(guān)資料。
第6題：
在考生文件夾下有一個(gè)工程文件sjt5.vbp，請(qǐng)?jiān)诖绑w上畫兩個(gè)框架，其名 稱分別為F1和F2，標(biāo)題分別為"交通工具"和"到達(dá)目標(biāo)"。在F1中畫兩 個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為"飛機(jī)"和"火車"。在 F2中畫兩個(gè)單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為"廣州"和"昆 明"。畫一個(gè)文本框，其名稱為Text1。編寫適當(dāng)事件過程。程序運(yùn)行后， 選擇不同單選按鈕時(shí)產(chǎn)生的顯示結(jié)果見下表
程序的運(yùn)行情況如圖所示。存盤時(shí)，工程文件名為sjt5.vbp，窗體文件名 為sjt5.frm。
單選按鈕的Value屬性：
Value屬性用來表示單選按鈕的狀態(tài)，可以取True和False兩種值，取值為True時(shí)，單選按鈕是"打開"的，按鈕中心有一個(gè)圓點(diǎn)；取值為False時(shí)，單選按鈕是"關(guān)閉"的，按鈕是一個(gè)圓圈。
設(shè)置單選按鈕Value屬性的語(yǔ)法是：
單選按鈕名.Value = True（-1)或False（0)
由于Value屬性是單選按鈕的缺省屬性，因此在設(shè)置該屬性的值的時(shí)候，可以省略屬性名。
解題方法：
打開工程文件sjt5.vbp，點(diǎn)擊工具箱中的Frame控件圖標(biāo)，然后在窗體上拖拉出兩個(gè)框架，通過屬性窗口分別設(shè)置其Name屬性為"F1"和"F2"，Caption屬性為"交通工具"和"到達(dá)目標(biāo)"。
點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在F1中拖拉出兩個(gè)單選按鈕，通過屬性窗口分別設(shè)置其Name屬性為"Op1"和"Op2"，Caption屬性為"飛機(jī)"和"火車"。
點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在F2中拖拉出兩個(gè)單選按鈕，通過屬性窗口分別設(shè)置其Name屬性為"Op3"和"Op4"，Caption屬性為"廣州"和"昆明"。
點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框。
打開代碼窗口，輸入如下的代碼：
Private Sub Form_Click（)
I(yíng)f Op1.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐飛機(jī)去廣州"
ElseIf Op4.Value = True Then
Text1.Text = "坐飛機(jī)去昆明"
End If
ElseIf Op2.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐火車去廣州"
ElseIf Op4.Value = True Then
Text1.Text = "坐火車去昆明"
End If
End If
End Sub
第7題：
在考生文件夾下有一個(gè)工程文件sjt6.vbp，請(qǐng)?jiān)诖绑w上畫三個(gè)文本框，其 名稱分別為Text1、Text2和Text3，文本框內(nèi)容分別設(shè)置為"等級(jí)考試"、 "計(jì)算機(jī)"和空白。然后畫兩個(gè)單選按鈕，其名稱分別為Op1和Op2，標(biāo)題 分別為"交換"和"連接"（如圖所示），編寫適當(dāng)?shù)氖录绦?。程序運(yùn) 行后，如果選中"交換"單選按鈕并單擊Text3文本框，則Text1文本框中 內(nèi)容與Text2文本框中內(nèi)容進(jìn)行交換，并在Text3文本框中顯示"交換成 功"；如果選中"連接"單選按鈕并單擊 Text3 文本框，則把 Text1 和 Text2的內(nèi)容按Text1、Text2的順序連接起來，并在Text3文本框中顯示連 接后的內(nèi)容。存盤時(shí)，工程文件名為sjt6.vbp，窗體文件名為sjt6.frm。
解題方法：
打開工程文件sjt6.vbp，點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出三個(gè)文本框，通過屬性窗口分別設(shè)置其Text屬性為"等級(jí)考試"、"計(jì)算機(jī)"和""。
點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在窗體中拖拉出兩個(gè)單選按鈕，通過屬性窗口分別設(shè)置其Name屬性為"Op1"和"Op2"，Caption屬性為"交換"和"連接"。
打開代碼窗口，輸入如下的代碼：
Private Sub Text3_Click()
If Op1.Value Then
Text1.Text = "計(jì)算機(jī)"
Text2.Text = "等級(jí)考試"
Text3.Text = "交換成功"
Else
Text3.Text = Text1.Text + Text2.Text
End If
End Sub
第8題：
在Form1的窗體上畫一個(gè)文本框，其名稱為Text1；再畫兩個(gè)命令按鈕，
其名稱分別為C1和C2，標(biāo)題分別為"顯示"和"退出"，編寫適當(dāng)?shù)氖录?過程。程序運(yùn)行后，在窗體加載時(shí)使"退出"按鈕不可用，如果單擊"顯 示"按鈕，則在文本框中顯示"等級(jí)考試"，并使"退出"按鈕可用，此 時(shí)如果單擊"退出"按鈕，則結(jié)束程序，程序運(yùn)行情況如圖所示。
解題方法：
新建一個(gè)名為Form1的窗體，點(diǎn)擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出兩個(gè)命令按鈕，通過屬性窗口分別設(shè)置其Name屬性為"C1"和"C2",Caption屬性為"顯示"和"退出"。
點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框。
打開代碼窗口，輸入如下的代碼：
Private Sub C1_Click（)
C2.Enabled = True
Text1.Text = "等級(jí)考試"
End Sub
Private Sub C2_Click（)
End
End Sub
第9題：
在Form1的窗體上畫一個(gè)命令按鈕，其名稱為C1，標(biāo)題為"顯示"；再畫
一個(gè)文本框，其名稱為Text1，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，在窗 體加載時(shí)使文本框不可見，如果雙擊窗體，則文本框出現(xiàn)；此時(shí)如果單擊 命令按鈕，則在文本框中顯示"等級(jí)考試"。程序運(yùn)行情況如圖所示。
解題方法：
新建一個(gè)名為Form1的窗體，點(diǎn)擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出一個(gè)命令按鈕，通過屬性窗口設(shè)置其Name屬性為"C1"，Caption屬性為"顯示"。
點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框。
打開代碼窗口，輸入如下的代碼：
Private Sub C1_Click（)
Text1.Text = "等級(jí)考試"
End Sub
Private Sub Form_DblClick（)
Text1.Visible = True
End Sub
Private Sub Form_Load（)
Text1.Visible = False
End Sub
第10題：
在窗體上畫一個(gè)文本框，其名稱為Text1，Text屬性為空白。再畫一個(gè)命 令按鈕，其名稱為C1，Visible屬性為False。編寫適當(dāng)?shù)氖录^程。程序 運(yùn)行后，如果在文本框中輸入字符，則命令按鈕出現(xiàn)。程序運(yùn)行情況如圖 所示。
解題方法：
新建一個(gè)窗體，點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框，通過屬性窗口設(shè)置其Text屬性為""。
點(diǎn)擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出一個(gè)命令按鈕，通過屬性窗口設(shè)置其Name屬性為"C1",Visible屬性為False。
打開代碼窗口，輸入如下的代碼：
Private Sub Text1_Change（)
C1.Visible = True
End Sub
按要求保存文件即完成本題。
第1題：
在考生文件夾下有一個(gè)工程文件sjt5.vbp，其窗體上有一個(gè)文本框，名稱 為Text1；還有兩個(gè)命令按鈕，名稱分別為C1、C2，標(biāo)題分別為"計(jì)算"、 "存盤"，如圖所示。并有一個(gè)函數(shù)過程 isprime可以在程序中直接調(diào)用， 其功能是判斷參數(shù) a 是否為素?cái)?shù)，如果是素?cái)?shù)，則返回 True，否則返回 False。 請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，單擊"計(jì)算"按鈕，則找出小于 18000的的素?cái)?shù)，并顯示在Text1中；單擊"存盤"按鈕，則把 Text1 中的計(jì)算結(jié)果存入考生文件夾下的out5.txt文件中。
本題的考查主要有兩個(gè),一個(gè)是循環(huán),一個(gè)是文件的訪問。
由于在小于18000中尋找素?cái)?shù),并且判斷素?cái)?shù)的函數(shù)已經(jīng)給出,只要使用一個(gè)循環(huán)在18000以下尋找,沒有找到減一再尋找,找到記錄在Text1.Text中,在結(jié)構(gòu)化的程序中不再提倡GoTo以及從結(jié)構(gòu)體中退出（例如Exit For等）,使用While判斷是一個(gè)較好的選擇。
第2題：
在考生文件夾下有一個(gè)工程文件sjt4.vbp，窗體上已經(jīng)有兩個(gè)文本框，名 稱分別為Text1、Text2；和一個(gè)命令按鈕，名稱為C1，標(biāo)題為"確定"； 請(qǐng)畫兩個(gè)單選按鈕，名稱分別為 Op1、Op2，標(biāo)題分別為 "男生"、"女 生"；再畫兩個(gè)復(fù)選框，名稱分別為 Ch1、 Ch2，標(biāo)題分別為"體育"、 "音樂"。請(qǐng)編寫適當(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é)束程序，否則無成績(jī)。
分析：?jiǎn)芜x按鈕OptionButton和選擇框CheckBox的簡(jiǎn)單應(yīng)用OptionButton控件和CheckBox控件功能相似，但是二者間也存在著重要差別。在選擇一個(gè)OptionButton時(shí)，同組中的其它OptionButton控件自動(dòng)無效。相反，可以選擇任意數(shù)量的CheckBox控件。
只要注意了這一點(diǎn)本題可以在C1_Click事件中判斷他們的選中情況OptionButton的Value為True表示選中,CheckBox的Value=1時(shí)表示選中。
第3題：
在名稱為 Form1 的窗體上畫一個(gè)標(biāo)簽，名稱為 L1，標(biāo)簽上顯示"請(qǐng)輸入 密碼"， 在標(biāo)簽的右邊畫一個(gè)文本框，名稱為 Text1 ，其寬、高分別為 2000和300，設(shè)置適當(dāng)?shù)膶傩允沟迷谳斎朊艽a時(shí)，文本框中顯示"*"字符， 此外再把窗體的標(biāo)題設(shè)置為"密碼窗口"，以上這些設(shè)置都只能在屬性窗 口中進(jìn)行設(shè)置，運(yùn)行時(shí)的窗體如圖所示。 *注意： 存盤時(shí)必須存放在考生文件夾下，工程文件名為 sjt1.vbp，窗體文件 名為sjt1.frm。
分析：創(chuàng)建的對(duì)象設(shè)置屬性。屬性窗口（選中對(duì)按[F4]調(diào)出）給出了設(shè)置所有的窗體對(duì)象屬性的簡(jiǎn)便方法。在"視圖"菜單中選擇"屬性窗口"命令、單擊工具欄上的"屬性窗口"按鈕或使用控件的上下文菜單，都可以打開屬性窗口。在本題中要求對(duì)于密碼框的設(shè)定,只要為Text1的PasswordChar屬性設(shè)置為*即可完成
第4題：
在考生文件夾下有一個(gè)工程文件 sjt3.vbp，窗體上已經(jīng)有一個(gè)標(biāo)簽 L1， 請(qǐng)畫一個(gè)單選按鈕數(shù)組，名稱為Op1， 含三個(gè)單選按鈕，它們的Index屬性 分別為0、1、2，標(biāo)題依次為"飛機(jī)"、"火車"、"汽車"，再畫一個(gè)名 稱為Text1的文本框。窗體文件中已經(jīng)給出了Op1的Click事件過程，但不完 整，要求去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，使得在運(yùn) 行時(shí)單擊"飛機(jī)"或"火車"單選按鈕時(shí)，在Text1中顯示"我坐飛機(jī)去"或"我坐火車去"，單擊"汽車"單選按鈕時(shí)，在Text1中顯示"我開汽車 去"，如圖所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。
本題考查對(duì)于OptionButton 控件的了解,OptionButton控件顯示一個(gè)可以打開或者關(guān)閉的選項(xiàng),判斷它是否被選中使用的是value屬性,選中為True,反之為False。
一般在使用OptionButton控件使大多數(shù)人喜歡使用控件數(shù)組,在第一題中Select Cas 語(yǔ)句是根據(jù)表達(dá)式的值，來決定執(zhí)行幾組語(yǔ)句中的其中之一。根據(jù)后續(xù)的語(yǔ)句我們可以知道,這里需要根據(jù)用戶的選擇進(jìn)行分流,分流的依據(jù)是用戶選擇了那一個(gè)OptionButton,這個(gè)可以由Index得到,這里填入Index,第二個(gè)空白,我們只要知道OptionButton數(shù)組從零開始,不難判斷Op1（1).Caption是"火車",我們只能"坐",填入a即可。
第5題：
在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體上有兩個(gè)圖片框，名稱為
P1、P2，分別用來表示信號(hào)燈和汽車，其中在 P1 中輪流裝入"黃燈.ico"、 "紅燈.ico"、"綠燈.ico"文件來實(shí)現(xiàn)信號(hào)燈的切換；還有兩個(gè)計(jì)時(shí)器Timer1 和Timer2，Timer1用于變換信號(hào)燈，黃燈1秒，紅燈2秒，綠燈3秒；Timer2用于 控制汽車向左移動(dòng)。運(yùn)行時(shí)，信號(hào)燈不斷變換，單擊"開車"按鈕后。 汽車開 始移動(dòng)，如果移動(dòng)到信號(hào)燈前或信號(hào)燈下，遇到紅燈或黃燈，則停止移動(dòng)， 當(dāng) 變?yōu)榫G燈后再繼續(xù)移動(dòng)。在窗體中已經(jīng)給出了全部控件和程序，但程序不完整，
要求閱讀程序并去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，使其實(shí) 現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。 最后把 修改后的文件以原文件名存盤。
本題中涉及三個(gè)事件
點(diǎn)擊開車按鈕C1_Click,汽車開始啟動(dòng),由題面知道汽車的開動(dòng)由Timer2控制,那么這里必須啟動(dòng)Timer2,所以填入Timer2.Enable=True
紅綠燈由Timer1控制,在Timer1的事件Timer1_Timer中根據(jù)時(shí)間a來更換P1.Picture的圖像,達(dá)到紅綠燈轉(zhuǎn)換的效果,如果看到其他燈已經(jīng)有了,這里填入"綠燈.ioc"是簡(jiǎn)單的選擇,仔細(xì)分析要在綠燈有三秒,也必須這樣填寫
最后是汽車的移動(dòng),已知是由Timer2操作的,在它的事件Timer2_Timer中要移動(dòng)汽車,使用了picture的Move方法,平行向右移動(dòng),改變Left值,這里填入picture1.Left即可實(shí)現(xiàn)。
其他關(guān)于Timer控件以及picture控件的屬性方法事件請(qǐng)自己參閱有關(guān)資料。
第6題：
在考生文件夾下有一個(gè)工程文件sjt5.vbp，請(qǐng)?jiān)诖绑w上畫兩個(gè)框架，其名 稱分別為F1和F2，標(biāo)題分別為"交通工具"和"到達(dá)目標(biāo)"。在F1中畫兩 個(gè)單選按鈕，名稱分別為Op1和Op2，標(biāo)題分別為"飛機(jī)"和"火車"。在 F2中畫兩個(gè)單選按鈕，名稱分別為Op3和Op4，標(biāo)題分別為"廣州"和"昆 明"。畫一個(gè)文本框，其名稱為Text1。編寫適當(dāng)事件過程。程序運(yùn)行后， 選擇不同單選按鈕時(shí)產(chǎn)生的顯示結(jié)果見下表
程序的運(yùn)行情況如圖所示。存盤時(shí)，工程文件名為sjt5.vbp，窗體文件名 為sjt5.frm。
單選按鈕的Value屬性：
Value屬性用來表示單選按鈕的狀態(tài)，可以取True和False兩種值，取值為True時(shí)，單選按鈕是"打開"的，按鈕中心有一個(gè)圓點(diǎn)；取值為False時(shí)，單選按鈕是"關(guān)閉"的，按鈕是一個(gè)圓圈。
設(shè)置單選按鈕Value屬性的語(yǔ)法是：
單選按鈕名.Value = True（-1)或False（0)
由于Value屬性是單選按鈕的缺省屬性，因此在設(shè)置該屬性的值的時(shí)候，可以省略屬性名。
解題方法：
打開工程文件sjt5.vbp，點(diǎn)擊工具箱中的Frame控件圖標(biāo)，然后在窗體上拖拉出兩個(gè)框架，通過屬性窗口分別設(shè)置其Name屬性為"F1"和"F2"，Caption屬性為"交通工具"和"到達(dá)目標(biāo)"。
點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在F1中拖拉出兩個(gè)單選按鈕，通過屬性窗口分別設(shè)置其Name屬性為"Op1"和"Op2"，Caption屬性為"飛機(jī)"和"火車"。
點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在F2中拖拉出兩個(gè)單選按鈕，通過屬性窗口分別設(shè)置其Name屬性為"Op3"和"Op4"，Caption屬性為"廣州"和"昆明"。
點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框。
打開代碼窗口，輸入如下的代碼：
Private Sub Form_Click（)
I(yíng)f Op1.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐飛機(jī)去廣州"
ElseIf Op4.Value = True Then
Text1.Text = "坐飛機(jī)去昆明"
End If
ElseIf Op2.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐火車去廣州"
ElseIf Op4.Value = True Then
Text1.Text = "坐火車去昆明"
End If
End If
End Sub
第7題：
在考生文件夾下有一個(gè)工程文件sjt6.vbp，請(qǐng)?jiān)诖绑w上畫三個(gè)文本框，其 名稱分別為Text1、Text2和Text3，文本框內(nèi)容分別設(shè)置為"等級(jí)考試"、 "計(jì)算機(jī)"和空白。然后畫兩個(gè)單選按鈕，其名稱分別為Op1和Op2，標(biāo)題 分別為"交換"和"連接"（如圖所示），編寫適當(dāng)?shù)氖录绦?。程序運(yùn) 行后，如果選中"交換"單選按鈕并單擊Text3文本框，則Text1文本框中 內(nèi)容與Text2文本框中內(nèi)容進(jìn)行交換，并在Text3文本框中顯示"交換成 功"；如果選中"連接"單選按鈕并單擊 Text3 文本框，則把 Text1 和 Text2的內(nèi)容按Text1、Text2的順序連接起來，并在Text3文本框中顯示連 接后的內(nèi)容。存盤時(shí)，工程文件名為sjt6.vbp，窗體文件名為sjt6.frm。
解題方法：
打開工程文件sjt6.vbp，點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出三個(gè)文本框，通過屬性窗口分別設(shè)置其Text屬性為"等級(jí)考試"、"計(jì)算機(jī)"和""。
點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在窗體中拖拉出兩個(gè)單選按鈕，通過屬性窗口分別設(shè)置其Name屬性為"Op1"和"Op2"，Caption屬性為"交換"和"連接"。
打開代碼窗口，輸入如下的代碼：
Private Sub Text3_Click()
If Op1.Value Then
Text1.Text = "計(jì)算機(jī)"
Text2.Text = "等級(jí)考試"
Text3.Text = "交換成功"
Else
Text3.Text = Text1.Text + Text2.Text
End If
End Sub
第8題：
在Form1的窗體上畫一個(gè)文本框，其名稱為Text1；再畫兩個(gè)命令按鈕，
其名稱分別為C1和C2，標(biāo)題分別為"顯示"和"退出"，編寫適當(dāng)?shù)氖录?過程。程序運(yùn)行后，在窗體加載時(shí)使"退出"按鈕不可用，如果單擊"顯 示"按鈕，則在文本框中顯示"等級(jí)考試"，并使"退出"按鈕可用，此 時(shí)如果單擊"退出"按鈕，則結(jié)束程序，程序運(yùn)行情況如圖所示。
解題方法：
新建一個(gè)名為Form1的窗體，點(diǎn)擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出兩個(gè)命令按鈕，通過屬性窗口分別設(shè)置其Name屬性為"C1"和"C2",Caption屬性為"顯示"和"退出"。
點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框。
打開代碼窗口，輸入如下的代碼：
Private Sub C1_Click（)
C2.Enabled = True
Text1.Text = "等級(jí)考試"
End Sub
Private Sub C2_Click（)
End
End Sub
第9題：
在Form1的窗體上畫一個(gè)命令按鈕，其名稱為C1，標(biāo)題為"顯示"；再畫
一個(gè)文本框，其名稱為Text1，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，在窗 體加載時(shí)使文本框不可見，如果雙擊窗體，則文本框出現(xiàn)；此時(shí)如果單擊 命令按鈕，則在文本框中顯示"等級(jí)考試"。程序運(yùn)行情況如圖所示。
解題方法：
新建一個(gè)名為Form1的窗體，點(diǎn)擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出一個(gè)命令按鈕，通過屬性窗口設(shè)置其Name屬性為"C1"，Caption屬性為"顯示"。
點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框。
打開代碼窗口，輸入如下的代碼：
Private Sub C1_Click（)
Text1.Text = "等級(jí)考試"
End Sub
Private Sub Form_DblClick（)
Text1.Visible = True
End Sub
Private Sub Form_Load（)
Text1.Visible = False
End Sub
第10題：
在窗體上畫一個(gè)文本框，其名稱為Text1，Text屬性為空白。再畫一個(gè)命 令按鈕，其名稱為C1，Visible屬性為False。編寫適當(dāng)?shù)氖录^程。程序 運(yùn)行后，如果在文本框中輸入字符，則命令按鈕出現(xiàn)。程序運(yùn)行情況如圖 所示。
解題方法：
新建一個(gè)窗體，點(diǎn)擊工具箱中的TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框，通過屬性窗口設(shè)置其Text屬性為""。
點(diǎn)擊工具箱中的CommandButton控件圖標(biāo)，然后在窗體上拖拉出一個(gè)命令按鈕，通過屬性窗口設(shè)置其Name屬性為"C1",Visible屬性為False。
打開代碼窗口，輸入如下的代碼：
Private Sub Text1_Change（)
C1.Visible = True
End Sub
按要求保存文件即完成本題。