考生們在備考計算機考試科目時，除了複習教材以外，還要結合試題加深對知識點的理解和鞏固，以下是本站小編搜索整理的一份2017計算機二級Visual Basic考試題及答案，供參考練習，預祝考生們考出自己理想的成績!想了解更多相關信息請持續關注我們應屆畢業生考試網!
1.窗體中有一個名稱爲txtSpeed的文本框，一個名稱爲hsbSpeed的滾動條。
以下程序：
Private Sub hsbSpeed_Change( )
txtSpee
= hsbSpee
e
End Sub
當單擊滾動條hsbSpeed右端的箭頭時，以下說法不正確的是(B) (單)
A.此時會觸發change事件
B.此時不會觸發change事件
C.在文本框中顯示了滾動條滑塊所在位置的值
D.此時不會觸發scroll事件
2.利用窗體中的滾動條HScroll1改變窗體的背景色，可以這樣編寫代碼：
Private Sub HScroll1_Change( )
R= e
Color = RGB(R，int(Rnd*256)，int(Rnd*256))
End Sub
以下說法不正確的是(C) (單)
A.窗體的背景色是一個隨機的顏色
函數取得到的顏色有256*256*256種
C.表達式int(Rnd*256)取得隨機數的範圍爲0-256之間的整數
D.表達式int(Rnd*256)取得隨機數的範圍爲0-255之間的整數
3.窗體中有一個名稱爲Slider1的可選擇性刻度滑塊控件，一個名稱爲text1的文本框，如下程序：
Private Sub Slider1_change( )
Size =【e】
End Sub
當拖動滑塊時，以上程序實現用Slider控件設置文本框中的字體大小的功能。
4.窗體中有一個名稱爲Slider1的可選擇性刻度滑塊控件，一個名稱爲text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.【Fontsize】 = e
End Sub
當拖動滑塊時，以上程序實現用Slider控件設置文本框中的字體大小的功能。
5.窗體中有一個名稱爲Slider1的可選擇性刻度滑塊控件，要設置它的如下屬性值，可以編寫程序(A) (單)
(1)Slider控件的滑塊處於最小位置時值爲8
(2)Slider控件的滑塊處於最大位置時值爲72
(3)單擊Slider控件兩端箭頭時，滑塊的增量值爲2
(4)單擊Slider控件的空白處時，滑塊的增量值爲8
= 8：
= 72：
lChange =2：
eChange = 8
= 2：
= 8：
lChange = 72：
eChange = 8
= 8：
= 72：
lChange = 8：
eChange = 2
= 72：
= 8：
lChange = 2：
eChange = 8
6.在窗體中有一個名稱爲timer1的時鐘控件，三個名稱分別爲image1、image2 和 image3的圖像框，編寫如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+"utterfly.bmp")
Image2.Picture=LoadPicture(App.Path+"utterfly2.bmp")
Image3.Picture=LoadPicture(App.Path+"utterfly.bmp")
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
+ 20, - 5
If PickBmp = False Then
ure = Image2.Picture
PickBmp = True
Else
ure = Image3.Picture
PickBmp = False
End If
End Sub
以下說法不正確的是(C) (單)
A.此程序的功能是把image1圖像框顯示圖形在butterfly.bmp和butterfly2.bmp文件之間進行切換
B.PickBmp變量是邏輯變量，作用是表示圖形的狀態
表示絕對路徑
D.要使得timer控件起作用，必須使得它的Enabled屬性設置爲true，interval屬性設置爲介於0-64767之間的數值，但不能等於0
7.在窗體中有一個名稱爲timer1的時鐘控件，三個名稱分別爲image1、image2 和 image3的圖像框，編寫如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+"utterfly.bmp")
Image2.Picture=LoadPicture(App.Path+"utterfly2.bmp")
Image3.Picture=LoadPicture(App.Path+"utterfly.bmp")
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
+ 20, - 5
If PickBmp = False Then
ure = Image2.Picture
PickBmp = True
Else
ure = Image3.Picture
PickBmp = False
End If
End Sub
