2016最新計算機二級vb考試試題及答案
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