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上機試題及答案

• 上一篇：計算機基礎及Photoshop應用考試技巧
• 下一篇：返回列表