- 相關推薦
計算機二級VB上機試題及答案
在平時的學習、工作中，許多人都需要跟試題打交道，試題是命題者按照一定的考核目的編寫出來的。你知道什么樣的試題才能切實地幫助到我們嗎？下面是小編為大家收集的計算機二級VB上機試題及答案，僅供參考，希望能夠幫助到大家。
1. 基本操作(2小題，每小題15分，共計30分)
注意：下面出現的“考生文件夾”均為%USER%
請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼)。
(1)在名稱為Form1，標題為“框架”的窗體上畫一個名稱為Frame1，且沒有標題的框架。框架內含有二個單選按鈕，名稱分別為Opt1 和Opt2、標題分別為“字體”、“大小”。
注意：
存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。
解題思路：
啟動Visual Basic系統，創建一個Form1窗體。
在該窗體上畫一個框架控件，通過其屬性窗口將名稱設為Frame1。在框架內畫二個單選按鈕控件，通過其屬性窗口將名稱分別為Opt1和Opt2、標題(Caption屬性)分別設為“字體”和“大小”。激活Form1窗體，通過其屬性窗口將標題(Caption屬性)設為“框架”。
參考文件：c:wexam26990001hlpsys參考答案sjt1.vbp、sjt1.frm、sjt1.vbw
請把這些文件復制到c:wexam26990001中，然后打開sjt1.vbp文件并運行。
(2)考生文件夾下的工程文件sjt2.vbp中有一個由直線Line1、Line2和Line3組成的三角形，直線Line1、Line2和Line3的坐標值如下所示：
名稱 X1 Y1 X2 Y2
Line1 600 1200 1600 300
Line2 600 1200 2600 1200
Line3 1600 300 2600 1200
要求畫一條直線Line4以構成三角形的高，且該直線的初始狀態為不可見。再畫二個命令按鈕，名稱分別是Cmd1、Cmd2，標題分別為“顯示高”、“隱藏高”，如圖所示。
請編寫適當的事件過程使得在運行時，單擊“顯示高”按鈕，則顯示三角形的高;單擊“隱藏高”按鈕，則隱藏三角形的高。
注意：
要求程序中不得使用變量，每個事件過程只能寫一條語句。不得修改已經存在的控件，最后將修改后的文件按原文件名存盤。
解題思路：
啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt2.vbp，相應的窗體文件名為sjt2.frm。
由于所提供的窗體控件不完整，需在該窗體上畫一根直線控件，通過其屬性窗口將名稱設為Line4，點X1屬性設為1600，點X2屬性分別設為1600，點Y1屬性設為300，點Y2屬性設為1200，Visible屬性設為False。畫二個命令按鈕控件，通過其屬性窗口將名稱分別設為Cmd1和Cmd2，標題(Caption屬性)分別設為“顯示高”和“隱藏高”。
單擊“顯示高”按鈕(即運行Click事件過程)，在該Private Sub Cmd1_Click()事件過程中加入語句：
Private Sub Cmd1_Click()
Line4.Visible = True
End Sub
單擊“隱藏高”按鈕(即運行Click事件過程)，在該Private Sub Cmd2_Click()事件過程中加入語句：
Private Sub Cmd2_Click()
Line4.Visible = False
End Sub
參考文件：c:wexam26990001hlpsys參考答案sjt2.vbp、sjt2.frm、sjt2.vbw
請把這些文件復制到c:wexam26990001中，然后打開sjt2.vbp文件并運行。
2. 簡單應用(2小題，每題20分，計40分)
注意：下面出現的“考生文件夾”均為%USER%
(1)在考生文件夾下有一個工程文件sjt3.vbp，在Form1的窗體中有一個文本框，二個命令按鈕和一個計時器。程序的功能是在運行時，單擊“開始計數”按鈕，就開始計數，每隔1秒，文本框中的數加1;單擊“停止計數”按鈕，則停止計數(如圖所示)。要求：修改適當的控件的屬性，并去掉程序中的注釋符，把程序中的?改為正確的內容，使其實現上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原來的文件名存盤。
解題思路：
啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應的窗體文件名為sjt3.frm。
由于所提供的窗體控件屬性不完整，通過屬性窗口將計時器的Enabled屬性設為False，Interval屬性設為1000。
由于所提供的窗體程序不完整，在命令按鈕的Private Sub C1_Click(Index As Integer)事件過程中，有二處地方需要修改。
1) 將語句
Select Case ?
改為
Select Case Index
2) 將語句
Case ?
改為
Case 0
由于所提供的窗體程序不完整，在計時器的Private Sub Timer1_Timer()事件過程中，有一處地方需要修改。
1) 將語句
Text1.Text = Text1.Text ?
改為
Text1.Text = Text1.Text + 1
參考文件：c:wexam26990001hlpsys參考答案sjt3.vbp、sjt3.frm、sjt3.vbw
請把這些文件復制到c:wexam26990001中，然后打開sjt3.vbp文件并運行。
(2)已知出租車行駛不超過4公里時一律收費10元。超過4公里時分段處理，具體處理方式為：15公里以內每公里加收 1.2元，15公里以上每公里收 1.8元。
在考生文件夾下有一個工程文件sjt4.vbp。程序的功能是：單擊“輸入”按鈕，將彈出一個輸入對話框，接收出租車行駛的里程數;單擊“計算”按鈕，則可根據輸入的里程數計算應付的出租車費，并將計算結果顯示在名稱為Text1的文本框內。
在窗體文件中已經給出了全部控件(如圖所示)，但程序不完整，要求去掉程序中的注釋符，把程序中的 ?改為正確的內容。
注意：
不得修改已經存在的內容和控件屬性，最后將修改后的文件按原文件名存盤。
解題思路：
啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應的窗體文件名為sjt4.frm。
由于所提供的窗體程序不完整，在Private Sub Command2_Click()事件過程中，有五處地方需要修改。
1) 將語句
Select Case ?
改為
Select Case s
2) 將語句
?
改為
f = 10
3) 將語句
f = 10 + ?
改為
f = 10 + (s - 4) * 1.2
4) 將語句
?
改為
Case Else
5) 將語句
f = 10 + ? + (s - 15) * 1.8
改為
f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8
參考文件：c:wexam26990001hlpsys參考答案sjt4.vbp、sjt4.frm、sjt4.vbw
請把這些文件復制到c:wexam26990001中，然后打開sjt4.vbp文件并運行。
3. 綜合應用(1小題，計30分)
注意：下面出現的“考生文件夾”均為%USER%
在考生文件夾下有一個工程文件sjt5.vbp，窗體上有二個標題分別是“讀數據”和“統計”的命令按鈕。請畫二個標簽，名稱分別為Label1和Label2，標題分別為“出現次數最多的字母是”和“它出現的次數為”;再畫二個名稱分別為Text1和Text2，初始值為空的文本框，如圖所示。
程序功能如下：
1)單擊“讀數據”按鈕，則將考生文件夾下in5.dat文件的內容讀到變量s中(此過程已給出);
2)單擊“統計”按鈕，則自動統計in5.dat文件中所含各字母(不區分大小寫)出現的次數，并將出現次數最多的字母顯示在Text1文本框內，它所出現的次數顯示在Text2文本框內。
“讀數據”按鈕的Click 事件過程已經給出，請為“統計”按鈕編寫適當的事件過程實現上述功能。
注意：
考生不得修改窗體文件中已經存在的控件和程序，在結束程序運行之前，必須進行統計，且必須用窗體右上角的關閉按鈕結束程序，否則無成績。最后，程序按原文件名存盤。
解題思路：
啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應的窗體文件名為sjt5.frm。
由于所提供的窗體控件不完整，需畫二個標簽控件，通過其屬性窗口將名稱分別設為Label1和Label2，標題(Caption屬性)分別設為“出現次數最多的字母是”和“它出現的次數為”。畫二個文本框控件，通過其屬性窗口將名稱分別設為Text1和Text2，初始內容(Text屬性)均設為空。
由于所提供的窗體程序不完整，需在“統計”命令按鈕的Click事件過程中加入語句：
Private Sub Command2_Click()
考生編寫
Dim a(26) As Integer
n = Len(s)
For i = 1 To n
c = UCase(Mid(s, i, 1))
If c >= "A" And c <= "Z" Then
j = Asc(c) - Asc("A") + 1
a(j) = a(j) + 1
End If
Next i
Max = a(1)
t = Chr(Asc("A"))
For i = 2 To 26
If a(i) > Max Then
Max = a(i)
t = Chr(Asc("A") + i - 1)
End If
Next i
Text1.Text = t
Text2.Text = Max
End Sub
參考文件：c:wexam26990001hlpsys參考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat
請把這些文件復制到c:wexam26990001中，然后打開sjt5.vbp文件并運行。
【計算機二級VB上機試題及答案】相關文章：
計算機二級vb考試試題及答案12-17
2016計算機二級VB上機考試試題題庫03-07
計算機二級vb考試試題（附答案）02-26
計算機二級C語言考試上機沖刺試題及答案03-03
2016年計算機二級VB模擬試題及答案03-11
計算機二級C上機考試試題及答案03-05
計算機等級二級C語言上機模擬試題及答案10-25