2016年第二次計算機等級考試即將開始了，同學們複習了嗎?爲幫助大家鞏固vb基礎知識，下面yjbys小編爲大家分享的是計算機等級考試vb複習試題，同學們趕緊來學習吧!
1.基本操作(2小題，每小題15分，共計30分)
(2)在名稱爲Form1的窗體上畫一個圖片框(名稱爲Picture1)、一個水平滾動條(名稱爲HScroll1)和一個命令按鈕(名稱爲Command1，標題爲“設置屬性”)，通過屬性窗口在圖片框中裝入一個圖形(文件名爲pic1.jpg，位於考生目錄下)，圖片框的高度與圖形的高度相同，圖片框的寬度任意(如圖1所示)。編寫適當的事件過程，程序運行後，如果單擊命令按鈕，則設置水平滾動條的如下屬性：
Min 100
Max 1500
LargeChange 100
SmallChange 10
之後就可以通過移動滾動條上的滾動塊來放大或縮小圖片框。運行後的窗體如圖2所示。程序中不得使用任何變量。
Private Sub Command1_Click()
= 100
= 1500
eChange = 100
lChange = 10
End Sub
Private Sub HScroll1_Change()
h = e
End Sub
2.簡單應用(2小題，每題20分，計40分)
(1)在名稱爲Form1的窗體上畫一個計時器，其名稱爲Timer1;再畫一個圖像框，其名稱爲Image1，在該圖像框中裝入一個圖形文件;然後畫一個水平滾動條，其名稱爲HScroll1，Min屬性值爲100，Max屬性值爲1200，LargeChange屬性值爲100，SmallChange屬性值爲25，編寫適當的事件過程。程序運行後，可以使圖像框閃爍，其閃爍速度可以通過滾動條調節。
提示：圖像框的閃爍可以通過圖像框交替地顯示和隱藏來實現。
Private Sub HScroll1_Change()
rval = e
End Sub
Private Sub Timer1_Timer()
ble = Not ble
End Sub
(2)在考生目錄下有一個工程文件，包含了所有控件和部分程序，如圖所示。
要求：1)利用屬性窗口設置適當的屬性：
爲List1列表框添加3個項目：宋體、黑體、楷體_GB2312;Text1文本框設置初始值爲“計算機”;Hscroll1水平滾動條設置最小值和最大值分別爲10和50。
2)去掉程序中的註釋符，把程序中的?改爲正確的內容，完成以下功能：如果在列表框中選擇一種字體，然後移動滾動條中的滾動框，則可使文本框中的文字按所選擇的字體顯示，並可隨着滾動框的移動放大或縮小;如果不選擇字體直接移動滾動框，則顯示一個信息框，提示“請選擇字體”。
注意：去掉程序中的註釋符，把程序中的?改爲正確的內容，使其實現上述功能，但不能修改程序中的其他部分。最後把修改後的文件按原文件名存盤。
Private Sub HScroll1_Change()
Size = e
' Size = ?
If <> "" Then
Name =
' Name = ?
Else
MsgBox "請選擇字體", , ""
End If
End Sub
3.綜合應用(1小題，計30分)
在考生目錄下有一個工程文件，其中的窗體中有一個名爲Text1的文本框，初始內容爲0;一個標籤;一個計時器;一個有兩個元素的單選按鈕數組，名稱爲Op1，標題依次爲“1秒”、“3秒”;兩個命令按鈕，名稱分別爲C1、C2，標題分別爲“開始計數”、“停止計數”，同時給出了兩個事件過程，但並不完整。在運行時要完成下面的功能：
單擊一個單選按鈕，可以設置計時間隔爲1秒或3秒;單擊“開始計數”，則Text1中的數按設定的計時間隔每次加1;單擊“停止計數”，則Text1中的數不再變化。
請按下面的`要求設置屬性和編寫程序，以便實現上述功能：
1)設置計時器的屬性，使其在初始狀態下不計時。
2)去掉程序中的註釋符，把程序中的?改爲正確的內容。
3)爲兩個命令按鈕編寫適當的事件過程，每個事件過程中只能有一條語句，不能使用變量。
'要求考生編寫的程序：
Private Sub C1_Click()
led = True
'或 led = 1 或非0值
'在 Timer1的前面可以加：Me. 、Form1. 、nt.
End Sub
Private Sub C2_Click()
led = False
'或 led = False
'在 Timer1的前面可以加：Me. 、Form1. 、nt.
End Sub
'提供給考生的程序：
Private Sub Op1_Click(Index As Integer)
' Select Case ?
Select Case Index
Case 0
rval = 1000
Case 1
rval = 3000
End Select
End Sub
Private Sub Timer1_Timer()
' = ? + 1
= + 1
End Sub
'答案：
'Index
'Text1
