2017年9月計算機二級考試VB復習題
2017年計算機二級考試馬上就要開始了，你報考了VB科目嗎?為了方便考生備考計算機二級考試VB 科目。下面是小編為大家帶來的計算機二級考試VB復習題，歡迎閱讀。
復習題一：
1.在窗體上畫一個名稱為Text1的文本框，一個名稱為Command1的命令按鈕，然后編寫如下事件過程和通用過程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
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
程序運行后，單擊命令按鈕，要求在窗體上顯示如下內容
1
12
123
1234
則在下劃線處應填入的內容為(B)(單)
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
3.在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下事件過程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
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)
Next
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
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序運行后，單擊命令按鈕，在文本框中顯示的值是(D)(單)
A.15
B.14
C.13
D.12
6.Visual Basic應用程序中標準模塊文件的擴展名是【BAS或.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)(單)
A.Show
B.Unload
C.Load
D.Hide
4.文本框的默認屬性是(B)(單)
A.Caption
B.Text
C.Name
D.Top
5.標簽默認屬性是(A)(單)
A.Caption
B.Text
C.Name
D.Top
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)(單)
A.ABA
B.BBABBA
C.ABBABA
D.AABAAB
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
S2
End Sub
Sub S2( )
y=10
Form1.Show
End Sub
Model2的代碼如下：
Sub Main( )
S1
End Sub
其中Sub Main被設置為啟動過程。程序運行后，各模塊的執行順序是(C)(單)
A.Form1->Model1->Model2
B.Model1->Model2->Form1
C.Model2->Model1->Form1
D.Model2->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)(單)
A.TabStop
B.Enabled
C.Visible
D.TabIndex
13.在窗體上畫一個名稱為List1的列表框，為了對列表框中的每個項目都能進行處理，應使用的循環語句為(A)(單)
A.For i=0 To List1.ListCount-1 ...... Next i
B.For i=0 To ListCount-1 ...... Next i
C.For i=1 To List1.listCount ...... Next i
D.For i=1 To ListCount ...... Next i
14.以下Case語句中錯誤的是(C)(單)
A.Case 0 To 10
B.Case Is>10
C.Case Is>10 And Is<50
D.Case 3,5,Is>10
15.以下關于圖片框控件的說法中，錯誤的是(D)(單)
A.可以通過Print方法在圖片框中輸出文本
B.清空圖片框控件中圖形的方法之一是加載一個空圖形
C.圖片框控件可以作為容器使用
D.用圖片框控件的Stretch屬性可以自動調整圖片框中圖形的大小
16.執行語句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(單)
A.Visual
B.Basic
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定義變量是全局變量
D.Static類型變量的作用域范圍是它所在的窗體或模塊文件
21.確定一個控件在窗體上的位置的屬性是(C)(單)
A.Width和Height
B.Width或Height
C.Top和Left
D.Top或Left
22.在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click( )
Text1.Text = "Visual"
Me.Text1 = "Basic"
Text1 = "Program"
End Sub
程序運行后，如果單擊命令按鈕，則在文本框中顯示的是(C)(單)
A.Visual
B.Basic
C.Program
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("請輸入")
Text1.Text = strText
End Sub
Private Sub Text1_Change( )
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序運行后，單擊命令按鈕，如果在輸入對話框中輸入abcdef，則在標簽中顯示的內容是(D)(單)
A.空
B.abcdef
C.abc
D.def
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)(單)
A.Drive1_Change
B.Drive1_Click
C.Dir1_Click
D.Dir1_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之間的數值的輸入
【9月計算機二級考試VB復習題】相關文章：
9月計算機二級考試VB真題10-11
2017年9月計算機二級考試VB考試題09-28
2017年9月計算機二級考試VB備考題09-03
2017年9月計算機二級考試VB基礎題05-22
2012年9月計算機二級考試VB真題11-08
2016年9月計算機二級《VB》考試試題09-09
2017年9月計算機二級考試VB測試題08-16