2017年9月計算機二級考試VB備考題

2017年計算機二級的文章" target="_blank" >計算機二級考試馬上就要開始了，你報考了哪個科目呢?下面是小編為大家帶來的計算機二級考試VB備考題，歡迎閱讀。

　　備考題一：

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

以下說法不正確的是(B) (單)

A.此程式的功能是把image1影象框顯示圖形在butterfly.bmp和butterfly2.bmp檔案之間進行切換

B.也可以將timer1控制元件的timer事件改寫為change事件

表示相對路徑

D.要使得timer控制元件起作用，必須使得它的Enabled屬性設定為true，interval屬性設定為介於0-64767之間的數值，但不能等於0

8 .在ProgressBar進度條控制元件中，它的Value屬性決定該控制元件被填充多少。√

9 wn控制元件通常與夥伴控制元件"捆綁"在一起使用。√

10 ation控制元件可以用來顯示有聲音的AVI視訊檔案 ×。

11.對Animation控制元件所使用的方法描述不正確的是(B) (單)

方法用於開啟檔案

方法用於播放動畫，格式為： AVI動畫檔案路徑

方法用於停止播放

e方法用於關閉檔案

12.下面的事件不屬於滑鼠器事件的是(D) (單)

eDown事件

eUp事件

eMove事件

事件

13.下面的事件不屬於鍵盤事件的是(D) (單)

ress事件

own事件

p事件

ove事件

14.在窗體中有一個名稱為command1的命令按鈕，一個名稱為text1的文字框，一個名稱為commondialog1的通用對話方塊，編寫如下程式：

Sub command1_Click( )

on = 3

Color = r

End Sub

當單擊命令按鈕時，對程式的執行說法正確的是(B) (單)

A.開啟一個顏色對話方塊

B.開啟一個字型對話方塊

C.把文字框的背景顏色設定為對話方塊選擇的字型顏色

D.把文字框的背景顏色設定為對話方塊中選擇的顏色

15.當單擊命令按鈕時，對以下程式說法不正確的是(D) (單)

Sub command1_Click( )

on = 5

For i = 1 To es

t

Next i

oc

End Sub

A.此檔案的功能是列印文字框text1中的內容

B.語句oc表示結束文擋列印

C.開啟的列印對話方塊

D.以上說法都不正確

16.當單擊命令按鈕時，對以下程式說法不正確的是(C) (單)

Sub command1_Click( )

Name = ""

ultExt = "Txt"

on = 2

End Sub

A.設定預設檔名為

B.設定預設副檔名為Txt

C.顯示的是檔案"開啟"對話方塊

D.顯示的是"另存為"對話方塊

17.在窗體中建立了三個名稱分別為EditCut、EditCopy和EditPaste的命令按鈕，一個名稱為text1的文字框。

如下程式：

Private Sub EditCopy_Click( )

st = ext '將選中的內容存放到st變數中

End Sub

Private Sub EditCut_Click( )

st = ext '

ext = ""

End Sub

Private Sub EditPaste_Click( )

= Left(Text1, tart) + st + Mid(Text1, tart

+ 1)

End Sub

對以上程式說法不正確的是(D) (單)

A.語句st = ext的作用是：將text1文字框中選擇的內容存放到st變數中

B.語句ext = "" 的作用是：將text1文字框中選擇的內容清除

C.單擊EditCut命令按鈕實現了text1文字框中選擇的內容清除

D.單擊Editcopy命令按鈕實現了text1文字框中所有內容的貼上

18.對以下程式說法不正確的是(D) (單)

Private Sub FileOpen_Click( )

Dir = "C:"

er = "文字檔案 | *"

Open

End Sub

A.顯示"檔案"開啟對話方塊

B.開啟的對話方塊的初始目錄為C盤根目錄

C.開啟的對話方塊的檔案型別為文字檔案

D.以上說法都不正確

19.雙精度型資料的型別符為(A) (單)

A.#

B.*

C.&

D.@

20.整型資料的型別符為(B) (單)

A.#

B.%

C.&

D.@

　　備考題二：

1.以下能判斷指標是否指向檔案尾的函式是(D)(單)

2.如果一個工程含有多個窗體及標準模組，則以下敘述中錯誤的是(B)(單)

A.如果工程中含有Sub Main過程，則程式一定首先執行該過程

B.不能把標準模組設定為啟動模組

C.用Hide方法只是隱藏一個窗體,不能從記憶體中清除該窗體

D.任何時刻最多隻有一個窗體是活動窗體

3.窗體的過程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4個引數，關於這些引數，正確的描述是(D)(單)

A.通過Button引數判定當前按下的'是鍵盤上哪一個鍵

t引數只能用來確定是否按下Shift鍵

t引數只能用來確定是否按下Alt和Ctrl鍵

D.引數x,y用來設定滑鼠當前位置的座標

4.設組合框Combo1中有3個專案，則以下能刪除最後一項的語句是(B)(單)

veItem Text

veItem 2

veItem 3

veItem count

5.以下關於焦點的敘述中，錯誤的是(A)(單)

A.如果文字框的Enabled屬性為False，能接收從鍵盤上輸入的資料

B.當文字框失去焦點時，觸發LostFocus事件

C.當文字框的Enabled屬性為False時，其Tab順序不起作用

D.可以用TabIndex屬性改變Tab順序

6.如果要在選單中新增一個分隔線，則應將其Caption屬性設定為(D)(單)

A.=

B.*

C.&

D.-

7.在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文字框，然後編寫如下事件過程：

Private Sub Command1_Click( )

n = val( )

Select Case n

Case 1 To 20

x = 10

Case 2, 4, 6

x = 20

Case Is < 10

x = 30

Case 10

x = 40

End Select

= x

End Sub

程式執行後，如果在文字框Text1中輸入10，然後單擊命令按鈕，則在Text2中顯示的內容是(A)(單)

A.10

B.20

C.30

D.40

8.設有以下迴圈結構

Do

迴圈體

Loop While <條件>

則以下敘述中錯誤的是(A)(單)

A.若"條件"是一個為0的常數，則一次也不執行迴圈體

B."條件"可以是關係表示式、邏輯表示式或常數

C.迴圈體中可以使用Exit Do語句

D.如果"條件"總是為True，則不停地執行迴圈體

9.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：

Private Sub Command1_Click( )

Dim num As Integer

num = 1

Do Until num > 6

Print num;

num = num + 2.4

Loop

End Sub

程式執行後，單擊命令按鈕，則窗體上顯示的內容是(B)(單)

A.1 3.4 5.8

B.1 3 5

C.1 4 7

D.無資料輸出

10.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：

Private Sub Command1_Click( )

Dim a As Integer, s As Integer

a = 8

s = 1

Do

s = s + a

a = a-1

Loop While a <= 0

Print s; a

End Sub

程式執行後，單擊命令按鈕，則窗體上顯示的內容是(C)(單)

A.7 9

B.34 0

C.9 7

D.無窮迴圈

11.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：

有如下通用過程：

Public Function f(x As Integer)

Dim y As Integer

x = 20

y = 2

f = x * y

End Function

Private Sub Command1_Click( )

Static x As Integer

x = 10

y=5

y = f(x)

Print x; y

End Sub

程式執行後，如果單擊命令按鈕，則在窗體上顯示的內容是(C)(單)

A.10 5

B.20 5

C.20 40

D.10 40

12.設有如下通用過程：

Public Sub Fun(a( ), ByVal x As Integer)

For i = 1 To 5

x = x + a(i)

Next I

End Sub

在窗體上畫一個名稱為Text1的文字框和一個名稱為Command1的命令按鈕，然後編寫如下的事件過程：

Private Sub Command1_Click( )

Dim arr(5) As Variant

For i = 1 To 5

arr(i) = i

Next I

n = 10

Call Fun(arr( ), n)

= n

End Sub

程式執行後，單擊命令按鈕，則在文字框中顯示的內容是(A)(單)

A.10

B.15

C.25

D.24

13.在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下程式碼：

Option Base 1

Private Sub Command1_Click( )

d = 0

c = 10

x = Array(10, 12, 21, 32, 24)

For i = 1 To 5

If x(i) > c Then

d = d + x(i)

c = x(i)

Else

d = d-c

End If