計算機二級VB考試練習題及答案
相信很多人都報考了計算機二級VB考試，下面小編為大家帶來了計算機二級VB考試練習題及答案，歡迎大家閱讀！
計算機二級VB考試練習題及答案
1.窗體中有一個名稱為txtSpeed的文字框，一個名稱為hsbSpeed的捲軸。
以下程式：
Private Sub hsbSpeed_Change( )
txtSpee
D.Text = hsbSpee
D.Value
End Sub
當單擊捲軸hsbSpeed右端的箭頭時，以下說法不正確的是(B) (單)
A.此時會觸發change事件
B.此時不會觸發change事件
C.在文字框中顯示了捲軸滑塊所在位置的值
D.此時不會觸發scroll事件
2.利用窗體中的捲軸HScroll1改變窗體的背景色，可以這樣編寫程式碼：
Private Sub HScroll1_Change( )
R= HScroll1.Value
form1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))
End Sub
以下說法不正確的是(C) (單)
A.窗體的背景色是一個隨機的顏色
B.RGB函式取得到的顏色有256*256*256種
C.表示式int(Rnd*256)取得隨機數的範圍為0-256之間的整數
D.表示式int(Rnd*256)取得隨機數的範圍為0-255之間的整數
3.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控制元件，一個名稱為text1的文字框，如下程式：
Private Sub Slider1_change( )
Text1.FontSize =【Slider1.value】
End Sub
當拖動滑塊時，以上程式實現用Slider控制元件設定文字框中的字型大小的功能。
4.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控制元件，一個名稱為text1的文字框，如下程式：
Private Sub Slider1_change( )
Text1.【Fontsize】 = slider1.value
End Sub
當拖動滑塊時，以上程式實現用Slider控制元件設定文字框中的字型大小的功能。
5.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控制元件，要設定它的如下屬性值，可以編寫程式(A) (單)
(1)Slider控制元件的滑塊處於最小位置時值為8
(2)Slider控制元件的滑塊處於最大位置時值為72
(3)單擊Slider控制元件兩端箭頭時，滑塊的增量值為2
(4)單擊Slider控制元件的空白處時，滑塊的增量值為8
A.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange =2：
Slider1.LargeChange = 8
B.Slider1.Min = 2：
Slider1.Max = 8：
Slider1.SmallChange = 72：
Slider1.LargeChange = 8
C.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange = 8：
Slider1.LargeChange = 2
D.Slider1.Min = 72：
Slider1.Max = 8：
Slider1.SmallChange = 2：
Slider1.LargeChange = 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
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下說法不正確的是(C) (單)
A.此程式的功能是把image1影象框顯示圖形在butterfly.bmp和butterfly2.bmp檔案之間進行切換
B.PickBmp變數是邏輯變數，作用是表示圖形的狀態
C.App.Path表示絕對路徑
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
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下說法不正確的是(B) (單)
A.此程式的功能是把image1影象框顯示圖形在butterfly.bmp和butterfly2.bmp檔案之間進行切換
B.也可以將timer1控制元件的timer事件改寫為change事件
C.App.Path表示相對路徑
D.要使得timer控制元件起作用，必須使得它的Enabled屬性設定為true，interval屬性設定為介於0-64767之間的數值，但不能等於0
8 .在ProgressBar進度條控制元件中，它的Value屬性決定該控制元件被填充多少。√
9 .UpDown控制元件通常與夥伴控制元件"捆綁"在一起使用。√
10 .Animation控制元件可以用來顯示有聲音的AVI影片檔案 ×。
11.對Animation控制元件所使用的方法描述不正確的`是(B) (單)
A.Open方法用於開啟檔案
B.Play方法用於播放動畫，格式為： Animation1.play AVI動畫檔案路徑
C.Stop方法用於停止播放
D.Close方法用於關閉檔案
12.下面的事件不屬於滑鼠器事件的是(D) (單)
A.MouseDown事件
B.MouseUp事件
C.MouseMove事件
D.Move事件
13.下面的事件不屬於鍵盤事件的是(D) (單)
A.KeyPress事件
B.KeyDown事件
C.KeyUp事件
D.KeyMove事件
14.在窗體中有一個名稱為command1的命令按鈕，一個名稱為text1的文字框，一個名稱為commondialog1的通用對話方塊，編寫如下程式：
Sub command1_Click( )
CommonDialog1.Action = 3
text1.ForeColor = CommonDialog1.Color
End Sub
當單擊命令按鈕時，對程式的執行說法正確的是(B) (單)
A.開啟一個顏色對話方塊
B.開啟一個字型對話方塊
C.把文字框的背景顏色設定為對話方塊選擇的字型顏色
D.把文字框的背景顏色設定為對話方塊中選擇的顏色
15.當單擊命令按鈕時，對以下程式說法不正確的是(D) (單)
Sub command1_Click( )
CommonDialog1.Action = 5
For i = 1 To CommonDialog1.Copies
Printer.Print text1.Text
Next i
Printer.EndDoc
End Sub
A.此檔案的功能是列印文字框text1中的內容
B.語句Printer.EndDoc表示結束文擋列印
C.開啟的列印對話方塊
D.以上說法都不正確
16.當單擊命令按鈕時，對以下程式說法不正確的是(C) (單)
Sub command1_Click( )
CommonDialog1.FileName = "default.txt"
CommonDialog1.DefaultExt = "Txt"
CommonDialog1.Action = 2
End Sub
A.設定預設檔名為default.txt
B.設定預設副檔名為Txt
C.顯示的是檔案"開啟"對話方塊
D.顯示的是"另存為"對話方塊
17.在窗體中建立了三個名稱分別為EditCut、EditCopy和EditPaste的命令按鈕，一個名稱為text1的文字框。
如下程式：
Private Sub EditCopy_Click( )
st = Text1.SelText '將選中的內容存放到st變數中
End Sub
Private Sub EditCut_Click( )
st = Text1.SelText '
Text1.SelText = ""
End Sub
Private Sub EditPaste_Click( )
Text1.Text = Left(Text1, Text1.SelStart) + st + Mid(Text1, Text1.SelStart
+ 1)
End Sub
對以上程式說法不正確的是(D) (單)
A.語句st = Text1.SelText的作用是：將text1文字框中選擇的內容存放到st變數中
B.語句Text1.SelText = "" 的作用是：將text1文字框中選擇的內容清除
C.單擊EditCut命令按鈕實現了text1文字框中選擇的內容清除
D.單擊Editcopy命令按鈕實現了text1文字框中所有內容的貼上
18.對以下程式說法不正確的是(D) (單)
Private Sub FileOpen_Click( )
CommonDialog1.InitDir = "C:"
CommonDialog1.Filter = "文字檔案 | *.Txt"
CommonDialog1.ShowOpen
End Sub
A.顯示"檔案"開啟對話方塊
B.開啟的對話方塊的初始目錄為C盤根目錄
C.開啟的對話方塊的檔案型別為文字檔案
D.以上說法都不正確
19.雙精度型資料的型別符為(A) (單)
A.#
B.*
C.&
D.@
20.整型資料的型別符為(B) (單)
A.#
B.%
C.&
D.@