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

來源：文萃谷 2.48W

2017年計算機二級考試馬上就要開始了，你報考了VB科目嗎?為了方便考生備考計算機二級考試VB 科目。下面是小編為大家帶來的計算機二級考試VB複習題，歡迎閲讀。

　　複習題一：

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

Private Sub Command1_Click( )

n = Val()

If n2 = n/2 Then

f = f1(n)

Else

f = f2(n)

End If

Print f; n

End Sub

Public Function f1(ByRef x)

x=x*x

f1=x+x

End Function

Public Function f2(ByVal x)

x=x*x

f2=x+x+x

End Function

程序運行後，在文本框中輸入3，然後單擊命令按鈕，窗體上顯示的是(D)(單)

A.72 36

B.108 36

C.72 6

D.27 3

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

Private Sub Command1_Click( )

c = "1234"

For i = 1 To 4

c1 = Trim(Str( ))

Print　c1

Next i

End Sub

程序運行後，單擊命令按鈕，要求在窗體上顯示如下內容

123

1234

則在下劃線處應填入的內容為(B)(單)

t(c1,i)

(c1,i)

(c1,i,1)

(c1,i,i)

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

Private Sub Command1_Click( )

n = Val()

For i = 2 To n

For j = 2 To sqr(i)

If i Mod j = 0 Then Exit For

Next j

If j >Sqr(i) Then Print i

Next i

End Sub

該事件過程的功能是(C)(單)

A.輸出n以內的奇數

B.輸出n以內的偶數

C.輸出n以內的素數

D.輸出n以內能被j整除的數

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

Private Function f(m As Integer)

If m Mod 2 = 0 Then

f = m

Else

f = 1

End If

End Function

Private Sub Command1_Click( )

Dim i As Integer

s = 0

For i = 1 To 5

s = s + f(i)

Print s

End Sub

程序運行後，單擊命令按鈕，在窗體上顯示的是(C)(單)

A.11

B.10

C.9

D.8

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

Private Sub Command1_Click( )

Dim array1(10, 10) As Integer

Dim i As Integer, j As Integer

For i = 1 To 3

For j = 2 To 4

array1(i, j) = i + j

Next j

Next i

= array1(2, 3) + array1(3, 4)

End Sub

程序運行後，單擊命令按鈕，在文本框中顯示的值是(D)(單)

A.15

B.14

C.13

D.12

al Basic應用程序中標準模塊文件的擴展名是【BAS或】(注意不要寫點)。

7.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuEdit，Visible屬性為False，程序運行後，如果用鼠標右鍵單擊窗體，則彈出與mnuEdit相應的菜單。

Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button=2 Then

popupmenu mnuEdit

End If

End Sub

8.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuEdit，Visible屬性為False，程序運行後，如果用鼠標右鍵單擊窗體，則彈出與mnuEdit相應的菜單。以下是實現上述功能的程序，請填空。

Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button=2 Then

【popupmenu】 mnuEdit

End If

9.為了使計時器控件Timer1每隔0.5秒觸發一次Timer事件，應將Timer1控件的【Interval】屬性設置為500。

10.為了使計時器控件Timer1每隔0.5秒觸發一次Timer事件，應將Timer1控件的Interval屬性設置為【500】。

　　複習題二：

1.雙擊窗體中的對象後，VB將顯示的窗口是(C)(單)

A.工具箱

B.項目(工程)窗口

C.代碼窗口

D.屬性窗口

2.下述選項中，VB的程序設計方法是(B)(單)

A.面向對象、順序驅動

B.面向對象、事件驅動

C.面向過程、事件驅動

D.面向過程、順序驅動

3.在VB中，要將一個窗體裝載到內存進行變量初始化等預處理，但沒有顯示該窗體，應使用的方法或語句是(C)(單)

4.文本框的默認屬性是(B)(單)

ion

5.標籤默認屬性是(A)(單)

ion

6.執行以下程序段：

a$="abbacddcba"

For I=6 To 2 Step -2

X=Mid(a,I,I)

Y=Left(a,I)

z=Right(a,I)

z=Ucase(X&Y&z)

Next I

Print z

輸出結果為(B)(單)

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

Option Base 1

Private Sub Command1_Click( )

Dim a As Variant

a=Array(1,2,3,4,5)

Sum=0

For I=1 To 5

Sum = sum+a(I)

Next I

x=Sum/5

For I =1 To 5

If a(I)>x Then Print a(I);

Next I

End Sub

程序運行後，單擊命令按鈕，在窗體上顯示的內容是(D)(單)

A.1 2

B.1 2 3

C.3 4 5

D.4 5

8.假定一個工程由一個窗體文件Form1和兩個標準模塊文件Model1及Model2組成。Model1代碼如下：

Public x As Integer

Public y As Integer

Sub S1( )

x =1

End Sub

Sub S2( )

y=10

End Sub

Model2的代碼如下：

Sub Main( )

End Sub

其中Sub Main被設置為啟動過程。程序運行後，各模塊的執行順序是(C)(單)

1->Model1->Model2

l1->Model2->Form1

l2->Model1->Form1

l2->Form1->Model1

9.設有如下程序段：

a$="beijingshanghai"

b$=Mid(a$,InStr(a$,"g")+1)

執行上面的程序段後，變量b$的值為【shanghai】

10.以下程序段的輸出結果是【3】

Num =0

Do While num<=2

num = num+1

Loop

Print num

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

Private Sub Command1_Click( )

Move 500，500

End Sub

程序運行後，單擊命令按鈕，執行的操作為(A)(單)

A.命令按鈕移動到距窗體左邊界、上邊界各500的位置

B.窗體移動到距屏幕左邊界、上邊界各500的位置

C.命令按鈕向左、上方向各移動500

D.窗體向左、上方向各移動500

12.在窗體上有若干控件，其中有一個名稱為Text1的文本框。影響Text1的Tab順序的屬性是(D)(單)

top

led

ble

ndex

13.在窗體上畫一個名稱為List1的列表框，為了對列表框中的每個項目都能進行處理，應使用的循環語句為(A)(單)

i=0 To Count-1 ......　 Next i

i=0 To ListCount-1 ...... Next i

i=1 To Count 　...... Next i

i=1 To ListCount ...... Next i

14.以下Case語句中錯誤的是(C)(單)

0 To 10

Is>10

Is>10 And Is<50

3,5,Is>10

15.以下關於圖片框控件的説法中，錯誤的是(D)(單)

A.可以通過Print方法在圖片框中輸出文本

B.清空圖片框控件中圖形的方法之一是加載一個空圖形

C.圖片框控件可以作為容器使用

D.用圖片框控件的Stretch屬性可以自動調整圖片框中圖形的'大小

16.執行語句s=Len(Mid("VisualBasic",1,6))後，s的值是(A)(單)

C.6

D.11

17.以下敍述中錯誤的是(D)(單)

A.下拉式菜單能用菜單編輯器建立

B.在多窗體程序中，每個窗體都可以建立自己的菜單系統

C.能夠對菜單項的Click事件編程

D.如果把一個菜單項的Enabled屬性設置為False，則該菜單項不可見

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

Private Sub Command1_Click( )

a = "12345"

Print Format$(a, "000.00")

End Sub

程序運行後，單擊命令按鈕，窗體上顯示的是(B)(單)

A.123.45

B.12345.00

C.12345

D.00123.45

19.以下關於函數過程的敍述中，正確的是(A)(單)

A.函數過程形參的類型與函數返回值的類型沒有關係

B.在函數過程中，過程的返回值可以有多個

C.當數組作為函數過程的參數時，既能以傳值方式傳遞，也能以傳址方式傳遞

D.如果不指明函數過程參數的類型，則該參數不能有數據類型的參數

20.以下關於變量作用域的敍述中，正確的是(C)(單)

A.用dim定義變量是靜態變量

B.靜態變量必須在標準模塊中聲明

C.用public定義變量是全局變量

ic類型變量的作用域範圍是它所在的窗體或模塊文件

21.確定一個控件在窗體上的位置的屬性是(C)(單)

h和Height

h或Height

和Left

或Left

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

Private Sub Command1_Click( )

= "Visual"

1 = "Basic"

Text1 = "Program"

End Sub

程序運行後，如果單擊命令按鈕，則在文本框中顯示的是(C)(單)

ram

D.出錯

23.以下關係表達式中，其值為False的是(A)(單)

A."ABC">"AbC"

B."the"<>"they"

C."VISUAL"=UCase("Visual")

D."Integer">"Int"

24.語句Print int(5/4*65) Mod 2的輸出結果是(B)(單)

A.0

B.1

C.2

D.3

25.在窗體上畫一個文本框、一個標籤和一個命令按鈕，其名稱分別為Text1、Label1和Command1，然後編寫如下兩個事件過程：

Private Sub Command1_Click( )

strText = InputBox("請輸入")

= strText

End Sub

Private Sub Text1_Change( )

ion = Right(Trim(), 3)

End Sub

程序運行後，單擊命令按鈕，如果在輸入對話框中輸入abcdef，則在標籤中顯示的內容是(D)(單)

A.空

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

Private Sub Command1_Click( )

x = -5

If x >0 Then

y = x ^ 2

Else

y = x

End If

Print y

End Sub

程序運行後，單擊命令按鈕，窗體上顯示的是(A)(單)

A.-5

B.25

C.1

D.-1

27.一個工程中含有窗體Form1、Form2和標準模塊Model1，如果在Form1中有語句Pubilc X As

Integer，在Model1中有語句Pubilc Y As Integer，則以下敍述中正確的是(A)(單)

A.變量X、Y的作用域相同

B.Y的作用域是Model1

C.在Form1的任何地方中可以直接使用Y

D.在Form2中可以直接使用X和Y

28.在窗體上畫一個名稱為Drive1的驅動器列表框，一個名稱為Dir1的目錄列表框。當改變當前驅動器時，目錄列表框應該與之同步改變。設置兩個控件同步的命令放在一個事件過程中，這個事件過程是(A)(單)

e1_Change

e1_Click

1_Click

1_KeyPress

29.在窗體上畫一個命令按鈕(其NAME屬性為Command1)，然後編寫如下代碼：

Option Base 1

Private Sub Command1_Click( )

Dim a

s = 0

a = Array(1, 2, 3, 4)

For I = 4 To 1 Step -1

s = s + a(I)

Next I

Print s

End Sub

運行上面的程序，單擊命令按鈕，其輸出結果是(D)(單)

A.4321

B.1234

C.34

D.10

30.在窗體上畫一個名稱為Text1的文本框，編寫以下代碼：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < 65 　Or　 KeyAscii> 90 Then

msgBox "請輸入大寫字母"

KeyAscii = 0

End If

End Sub

以下能説明該事件過程正確是(A)(單)

A.要求文本框只能接收大寫字母的輸入

B.要求文本框只能接收小寫字母的輸入

C.要求文本框只能接收數字的輸入

D.要求文本框只能接收65到90之間的數值的輸入

VB 複習題考試計算機二級