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
