2016年9月vb計算機考試試題及答案
為幫助同學們順利考過計算機二級，yjbys小編為大家帶來計算機等級vb考試試題及答案如下，希望對同學們復習有所幫助!
1.基本操作(2小題，每小題15分，共計30分)
(1)在名稱為Form1的窗體上畫兩個命令按鈕，其名稱分別為C1和C2，標題分別為“命令按鈕1”和“命令按鈕2”，編寫適當的事件過程。程序運行后，“命令按鈕2”隱藏，此時如果單擊“命令按鈕1”，則“命令按鈕2”出現，“命令按鈕1”隱藏;而如果單擊“命令按鈕2”，則“命令按鈕1”出現，“命令按鈕2”隱藏。程序的運行情況如圖所示。
注意：程序中不得使用變量。 存盤時必須存放在考生文件夾下，工程文件名為sjt11.vbp，窗體文件名為sjt11.frm。
Private Sub C1_Click()
C1.Visible = False
C2.Visible = True
End Sub
Private Sub C2_Click()
C1.Visible = True
C2.Visible = False
End Sub
(2)在名稱為Form1的窗體上畫一個標簽，其名稱為Label1，在屬性窗口中把BorderStyle屬性設置為1(如圖1所示)，編寫適當的事件過程。程序運行后，如果單擊窗體，則可使標簽移到窗體的右上角(只允許在程序中修改適當屬性來實現)。
程序的運行情況如圖2所示。
要求： 不得使用任何變量。
*注意： 存盤時必須存放在考生文件夾下，工程文件名為sjt12.vbp，窗體文件名為sjt12.frm。
Private Sub Form_Click()
' Label1.Left = -Label1.Width + Me.Width
' Label1.Top = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Label1.Left = -Label1.Width + Me.Width
Label1.Top = 0
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Left = -Form1.Label1.Width + Me.Width
' Label1.Top = 0
End Sub
2.簡單應用(2小題，每題20分，計40分)
(1)在考生目錄下有一個工程文件sjt21.vbp，窗體上有一個命令按鈕Command1(標題為“下一個”)。
要求： 在窗體上建立一個單選按鈕數組Option1，含4個單選按鈕，標題分別為“選項1”、“選項2”、“選項3”、“選項4”，初始狀態下，“選擇1”為選中狀態。如圖所示。窗體文件中已經給出了命令按鈕的`Click事件過程，但不完整，請去掉程序中的注釋符，把程序中的?改為正確的內容，使得每單擊命令按鈕一次，就選中下一個單選按鈕，如果已經選中最后一個單選按鈕，再單擊命令按鈕，則選中第1個單選按鈕。
注意： 不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。
Private Sub Command1_Click()
' For k = 0 To ?
For k = 0 To 3
If Option1(k).Value Then
' n = ?
n = k
End If
Next k
Option1(n).Value = False
n = n + 1
If n = 4 Then
' n = ?
n = 0
End If
Option1(n).Value = True
End Sub
(2)在考生文件夾下有一個工程文件sjt22.vbp，窗體上已經畫出所有控件。如圖所示。在Text1文本框中輸入一個任意的字符串(要求串的長度≥10)，然后選擇組合框中的3個截取運算選項之一。單擊“計算”按鈕，將截取運算后的結果顯示在Text2中。
窗體文件中已經給出了程序，但不完整，請去掉程序中的注釋符，把程序中的?改為正確的內容。
注意： 不得修改已經給出的程序。最后把修改后的文件按原文件名存盤。
Dim is_num As Boolean
Private Sub Command1_Click()
Dim tmpStr As String * 50
Select Case Form1.Combo1.ListIndex
'Select Case ?
Case 0
tmpStr = Left(Trim(Text1.Text), 3)
Case 1
tmpStr = Right(Trim(Text1.Text), 3)
Case 2
tmpStr = Mid(Trim(Text1.Text), 3, 4)
'tmpStr = Mid(Trim(Text1.Text), ? )
End Select
Text2.Text = tmpStr
'Text2.Text = ?
End Sub
3.綜合應用(1小題，計30分)
在考生文件夾下有一個工程文件sjt31.vbp，窗體上有兩個圖片框，名稱為P1、P2，分別用來表示信號燈和汽車，其中在P1中輪流裝入“黃燈.ico”、“紅燈.ico”、“綠燈.ico”文件來實現信號燈的切換;還有兩個計時器Timer1和Timer2，Timer1用于變換信號燈，黃燈1秒，紅燈2秒，綠燈3秒;Timer2用于控制汽車向左移動。運行時，信號燈不斷變換，單擊“開車”按鈕后。汽車開始移動，如果移動到信號燈前或信號燈下，遇到紅燈或黃燈，則停止移動，當變為綠燈后再繼續移動。
在窗體中已經給出了全部控件和程序，但程序不完整，要求閱讀程序并去掉程序中的注釋符，把程序中的?改為正確的內容，使其實現上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原文件名存盤。
Dim a%, b As Boolean
Private Sub C1_Click()
' Timer2.Enabled = ?
Timer2.Enabled = True
b = True
End Sub
Private Sub Timer1_Timer()
a = a + 1
If a > 6 Then
a = 1
End If
Select Case a
Case 1
P1.Picture = LoadPicture("黃燈.ico")
Case 2, 3
P1.Picture = LoadPicture("紅燈.ico")
Case 4, 5, 6
' P1.Picture = LoadPicture("?")
P1.Picture = LoadPicture("綠燈.ico")
If b Then Timer2.Enabled = True
End Select
End Sub
Private Sub Timer2_Timer()
If (a < 4) And (P2.Left > P1.Left And P2.Left < P1.Left + P1.Width) Or P2.Left <= 100 Then
' Timer2.Enabled = ?
Timer2.Enabled = False
Else
' P2.Move ? - 10, P2.Top, P2.Width, P2.Height
P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height
End If
End Sub
【2016年9月vb計算機考試試題及答案】相關文章：
1.計算機二級vb考試試題及答案
2.計算機等級考試二級VB模擬試題及答案
3.2016計算機二級考試vb復習試題及答案
4.2017計算機等級考試vb二級試題及答案
5.2016計算機二級VB語言考試試題及答案
6.2016計算機等級考試二級VB模擬試題及答案
7.2016最新計算機二級vb考試試題及答案
8.計算機二級VB上機試題及答案