為大家收集整理了《2014年計算機二級VB上機考試試題》供大家參考，希望對大家有所幫助！?。?BR> 1. 基本操作(2小題，每小題15分，共計30分)
注意：下面出現(xiàn)的“考生文件夾”均為%USER%
**********************************************************************
請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序(包括界面和代碼)。
(1)在名稱為Form1 的窗體上畫一個名稱check1的復(fù)選框數(shù)組(Index屬性從0開始)，含三個復(fù)選框，其標(biāo)題分別為“語文”、“數(shù)學(xué)”、“體育”，利用屬性窗口設(shè)置適當(dāng)?shù)膶傩裕埂罢Z文”未選，“數(shù)學(xué)”被選中，“體育”為灰色，再把窗體的標(biāo)題設(shè)置為“選課”，如圖所示。
注意：
存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。
解題思路：
啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。
在該窗體上畫一個復(fù)選框控件，通過對復(fù)選框控件的復(fù)制產(chǎn)生復(fù)選框控件數(shù)組，共有三個復(fù)選框，標(biāo)題(Caption屬性)分別設(shè)為“語文”、“數(shù)學(xué)”、“體育”，“數(shù)學(xué)”的Value屬性設(shè)為1,“體育”的Value屬性設(shè)為2。激活Form1窗體，通過其屬性窗口將標(biāo)題(Caption屬性)設(shè)為“選課”。
參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt1.vbp、sjt1.frm、sjt1.vbw
請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt1.vbp文件并運行。
**********************************************************************
(2)在名稱為Form1的窗體上畫兩個文本框，名稱分別為Text1、Text2，再畫兩個命令按鈕，名稱分別為Command1、Command2，標(biāo)題分別為“復(fù)制”、“刪除”。程序運行時，在Text1中輸入一串字符，并用鼠標(biāo)拖拽的方法選擇幾個字符，然后單擊“復(fù)制”按鈕，則被選中的字符被復(fù)制到Text2中(如圖所示)。若單擊“刪除”按鈕，則被選擇的字符從Text1中被刪除。請編寫兩個命令按鈕的Click過程完成上述功能。
注意：
要求程序中不得使用變量，事件過程中只能寫一條語句。
存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。
解題思路：
啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。
在該窗體上畫二個文本框控件，通過其屬性窗口將名稱分別設(shè)為Text1、Text2。畫二個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1、Command2，標(biāo)題(Caption屬性)分別設(shè)為“復(fù)制”、“刪除”。
單擊“復(fù)制”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：
Private Sub Command1_Click()
Text2 = Text1.SelText
End Sub
單擊“刪除”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：
Private Sub Command2_Click()
Text1.SelText = ""
End Sub
參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt2.vbp、sjt2.frm、sjt2.vbw
請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt2.vbp文件并運行。
2. 簡單應(yīng)用(2小題，每題20分，計40分)
注意：下面出現(xiàn)的“考生文件夾”均為%USER%
***********************************************************************
(1)在考生目錄下有一個工程文件sjt3.vbp，包含了所有控件和部分程序，如圖所示。
要求：
1)利用屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使Text1、Text2中數(shù)據(jù)右對齊;
2)請編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽?在Text1中輸入40(度數(shù))，選擇組合框中的一個項目，單擊“計算”按鈕，則根據(jù)所選擇的項目，計算出相應(yīng)的正弦、余弦值(保留3位小數(shù)，第4位截去，π取3.14159)，并顯示在Text2中。
注意：
考生不得修改窗體文件中已經(jīng)存在的程序， 在結(jié)束程序運行之前，必須進行一種計算;在Text1中輸入的必須是40;必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。后，按原文件名存盤。
解題思路：
啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。
對該窗體上的二個文本框，通過其屬性窗口將Alignment屬性都設(shè)為1。
單擊“計算”按鈕(即運行其Click事件過程)，在該Click事件過程中加入語句：
Private Sub Command1_Click()
Const PI = 3.14159
Select Case Combo1.Text
Case "sin": a = Sin(CInt(Text1.Text) * PI / 180)
Case "cos": a = Cos(CInt(Text1.Text) * PI / 180)
Case "tg": a = Tan(CInt(Text1.Text) * PI / 180)
Case "ctg": a = 1 / Tan(CInt(Text1.Text) * PI / 180)
End Select
Text2 = Int(a * 1000) / 1000
End Sub
另外特別注意需在Text1中輸入的值必須是40，而且結(jié)束程序時必須用窗體右上角的關(guān)閉按鈕來結(jié)束程序，否則該部分將沒有成績。
參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw、out3.txt
請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt3.vbp文件并運行。
**********************************************************************
(2)在考生文件夾下有一個工程文件sjt4.vbp，窗體上已經(jīng)畫出所有控件。程序的作用是構(gòu)成一個簡單的時鐘。剛運行時，不計時，選擇一個單選按鈕后，再單擊“計時”按鈕，則開始計時，并根據(jù)所選的單選按鈕決定是每秒顯示秒數(shù)，還是每10秒顯示秒數(shù)。Text2 用于顯示秒，如圖所示。窗體文件中已經(jīng)給出了程序，但不完整，請去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。
注意：
不得修改已經(jīng)給出的程序。后把修改后的文件按原文件名存盤。
解題思路：
啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。
由于所提供的窗體程序不完整，在窗體的Private Sub Timer1_Timer事件過程中，有三處地方需要修改。
1) 將語句
'num = ?
改為
num = num + 1
2) 將語句
'Text2.Text = Text2.Text + ?
改為
Text2.Text = Text2.Text + 10
3) 將語句
'Text1.Text = Text1.Text + ?
改為
Text1.Text = Text1.Text + 1
參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.vbw
請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運行。
**********************************************************************
3. 綜合應(yīng)用(1小題，計30分)
注意：下面出現(xiàn)的“考生文件夾”均為%USER%在考生文件夾下有一個工程文件sjt5.vbp，窗體上有兩個圖片框，名稱為P1、P2，分別用來表示信號燈和汽車，其中在P1中輪流裝入“黃燈.ico”、“紅燈.ico”、“綠燈.ico”文件來實現(xiàn)信號燈的切換;還有兩個計時器Timer1和Timer2，Timer1用于變換信號燈，黃燈1秒，紅燈2秒，綠燈3秒;Timer2用于控制汽車向左移動。運行時，信號燈不斷變換，單擊“開車”按鈕后。汽車開始移動，如果移動到信號燈前或信號燈下，遇到紅燈或黃燈，則停止移動，當(dāng)變?yōu)榫G燈后再繼續(xù)移動。
在窗體中已經(jīng)給出了全部控件和程序，但程序不完整，要求閱讀程序并去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。后把修改后的文件以原文件名存盤。
解題思路：
啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。
由于所提供的窗體程序不完整，在窗體的Private Sub C1_Click()事件過程中，有一處地方需要修改。
1) 將語句
'Timer2.Enabled = ?
改為
Timer2.Enabled = True
在窗體的Private Sub Timer1_Timer()事件過程中，有一處地方需要修改。
1) 將語句
'P1.Picture = LoadPicture("?")
改為
P1.Picture = LoadPicture("綠燈.ico")
在窗體的Private Sub Timer2_Timer()事件過程中，有二處地方需要修改。
1) 將語句
'Timer2.Enabled = ?
改為
Timer2.Enabled = False
2) 將語句
'P2.Move ? - 10, P2.Top, P2.Width, P2.Height
改為
P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height
注意：下面出現(xiàn)的“考生文件夾”均為%USER%
**********************************************************************
請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序(包括界面和代碼)。
(1)在名稱為Form1 的窗體上畫一個名稱check1的復(fù)選框數(shù)組(Index屬性從0開始)，含三個復(fù)選框，其標(biāo)題分別為“語文”、“數(shù)學(xué)”、“體育”，利用屬性窗口設(shè)置適當(dāng)?shù)膶傩裕埂罢Z文”未選，“數(shù)學(xué)”被選中，“體育”為灰色，再把窗體的標(biāo)題設(shè)置為“選課”，如圖所示。
注意：
存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。
解題思路：
啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。
在該窗體上畫一個復(fù)選框控件，通過對復(fù)選框控件的復(fù)制產(chǎn)生復(fù)選框控件數(shù)組，共有三個復(fù)選框，標(biāo)題(Caption屬性)分別設(shè)為“語文”、“數(shù)學(xué)”、“體育”，“數(shù)學(xué)”的Value屬性設(shè)為1,“體育”的Value屬性設(shè)為2。激活Form1窗體，通過其屬性窗口將標(biāo)題(Caption屬性)設(shè)為“選課”。
參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt1.vbp、sjt1.frm、sjt1.vbw
請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt1.vbp文件并運行。
**********************************************************************
(2)在名稱為Form1的窗體上畫兩個文本框，名稱分別為Text1、Text2，再畫兩個命令按鈕，名稱分別為Command1、Command2，標(biāo)題分別為“復(fù)制”、“刪除”。程序運行時，在Text1中輸入一串字符，并用鼠標(biāo)拖拽的方法選擇幾個字符，然后單擊“復(fù)制”按鈕，則被選中的字符被復(fù)制到Text2中(如圖所示)。若單擊“刪除”按鈕，則被選擇的字符從Text1中被刪除。請編寫兩個命令按鈕的Click過程完成上述功能。
注意：
要求程序中不得使用變量，事件過程中只能寫一條語句。
存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。
解題思路：
啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。
在該窗體上畫二個文本框控件，通過其屬性窗口將名稱分別設(shè)為Text1、Text2。畫二個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1、Command2，標(biāo)題(Caption屬性)分別設(shè)為“復(fù)制”、“刪除”。
單擊“復(fù)制”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：
Private Sub Command1_Click()
Text2 = Text1.SelText
End Sub
單擊“刪除”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：
Private Sub Command2_Click()
Text1.SelText = ""
End Sub
參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt2.vbp、sjt2.frm、sjt2.vbw
請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt2.vbp文件并運行。
2. 簡單應(yīng)用(2小題，每題20分，計40分)
注意：下面出現(xiàn)的“考生文件夾”均為%USER%
***********************************************************************
(1)在考生目錄下有一個工程文件sjt3.vbp，包含了所有控件和部分程序，如圖所示。
要求：
1)利用屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使Text1、Text2中數(shù)據(jù)右對齊;
2)請編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽?在Text1中輸入40(度數(shù))，選擇組合框中的一個項目，單擊“計算”按鈕，則根據(jù)所選擇的項目，計算出相應(yīng)的正弦、余弦值(保留3位小數(shù)，第4位截去，π取3.14159)，并顯示在Text2中。
注意：
考生不得修改窗體文件中已經(jīng)存在的程序， 在結(jié)束程序運行之前，必須進行一種計算;在Text1中輸入的必須是40;必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。后，按原文件名存盤。
解題思路：
啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。
對該窗體上的二個文本框，通過其屬性窗口將Alignment屬性都設(shè)為1。
單擊“計算”按鈕(即運行其Click事件過程)，在該Click事件過程中加入語句：
Private Sub Command1_Click()
Const PI = 3.14159
Select Case Combo1.Text
Case "sin": a = Sin(CInt(Text1.Text) * PI / 180)
Case "cos": a = Cos(CInt(Text1.Text) * PI / 180)
Case "tg": a = Tan(CInt(Text1.Text) * PI / 180)
Case "ctg": a = 1 / Tan(CInt(Text1.Text) * PI / 180)
End Select
Text2 = Int(a * 1000) / 1000
End Sub
另外特別注意需在Text1中輸入的值必須是40，而且結(jié)束程序時必須用窗體右上角的關(guān)閉按鈕來結(jié)束程序，否則該部分將沒有成績。
參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw、out3.txt
請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt3.vbp文件并運行。
**********************************************************************
(2)在考生文件夾下有一個工程文件sjt4.vbp，窗體上已經(jīng)畫出所有控件。程序的作用是構(gòu)成一個簡單的時鐘。剛運行時，不計時，選擇一個單選按鈕后，再單擊“計時”按鈕，則開始計時，并根據(jù)所選的單選按鈕決定是每秒顯示秒數(shù)，還是每10秒顯示秒數(shù)。Text2 用于顯示秒，如圖所示。窗體文件中已經(jīng)給出了程序，但不完整，請去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。
注意：
不得修改已經(jīng)給出的程序。后把修改后的文件按原文件名存盤。
解題思路：
啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。
由于所提供的窗體程序不完整，在窗體的Private Sub Timer1_Timer事件過程中，有三處地方需要修改。
1) 將語句
'num = ?
改為
num = num + 1
2) 將語句
'Text2.Text = Text2.Text + ?
改為
Text2.Text = Text2.Text + 10
3) 將語句
'Text1.Text = Text1.Text + ?
改為
Text1.Text = Text1.Text + 1
參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.vbw
請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運行。
**********************************************************************
3. 綜合應(yīng)用(1小題，計30分)
注意：下面出現(xiàn)的“考生文件夾”均為%USER%在考生文件夾下有一個工程文件sjt5.vbp，窗體上有兩個圖片框，名稱為P1、P2，分別用來表示信號燈和汽車，其中在P1中輪流裝入“黃燈.ico”、“紅燈.ico”、“綠燈.ico”文件來實現(xiàn)信號燈的切換;還有兩個計時器Timer1和Timer2，Timer1用于變換信號燈，黃燈1秒，紅燈2秒，綠燈3秒;Timer2用于控制汽車向左移動。運行時，信號燈不斷變換，單擊“開車”按鈕后。汽車開始移動，如果移動到信號燈前或信號燈下，遇到紅燈或黃燈，則停止移動，當(dāng)變?yōu)榫G燈后再繼續(xù)移動。
在窗體中已經(jīng)給出了全部控件和程序，但程序不完整，要求閱讀程序并去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。后把修改后的文件以原文件名存盤。
解題思路：
啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。
由于所提供的窗體程序不完整，在窗體的Private Sub C1_Click()事件過程中，有一處地方需要修改。
1) 將語句
'Timer2.Enabled = ?
改為
Timer2.Enabled = True
在窗體的Private Sub Timer1_Timer()事件過程中，有一處地方需要修改。
1) 將語句
'P1.Picture = LoadPicture("?")
改為
P1.Picture = LoadPicture("綠燈.ico")
在窗體的Private Sub Timer2_Timer()事件過程中，有二處地方需要修改。
1) 將語句
'Timer2.Enabled = ?
改為
Timer2.Enabled = False
2) 將語句
'P2.Move ? - 10, P2.Top, P2.Width, P2.Height
改為
P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height