為了使廣大考生在備戰計算機等級考試時，更快的掌握相應知識點，下面是小編搜尋整理的全國計算機等級考試二級VB試卷，供參考練習，預祝考生們考出自己理想的成績!
一、選擇題(每題2分，共70分)
下列各題A) 、B) 、C) 、D) 四個選項中，只有一個選項是正確的，請將正確選項塗寫在答題卡相應位置上，答在試卷上不得分。
(1) 在設計階段，當雙擊窗體上的某個控制元件時，所開啟的視窗是
A) 工程資源管理器視窗 B) 工具箱視窗
C) 程式碼視窗 D) 屬性視窗
(2) 以下敘述中正確的是
A) 窗體的Name屬性指定窗體的名稱，用來標識一個窗體
B) 窗體的Name屬性的值是顯示在窗體標題欄中的文字
C) 可以在執行期間改變物件的Name屬性的值
D) 物件的Name屬性值可以為空
(3) 剛建立一個新的標準EXE工程後，不在工具箱中出現的控制元件是
A) 單選按鈕 B) 圖片框 C) 通用對話方塊 D) 文字框
(4) 設有如下變數宣告
Dim TestDate As Date
為變數TestDate正確賦值的表達方式是
A) TextDate=#1/1/2002# B) TestDate=#“1/1/2002”#
C) TextDate=date(“1/1/2002”) D) TestDate=Format(“m/d/yy”,“1/1/2002”)
(5) 設有如下宣告：
Dim X As Integer
如果Sgn(X) 的值為-1，則X的值是
A) 整數 B) 大於0的整數 C) 等於0的整數 D) 小於0的數
(6) 在窗體上畫一個名稱為Commandl的命令按鈕，然後編寫如下程式：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程式執行時，三次單擊命令按鈕Commandl後，窗體上顯示的結果為
A) 15 16 B) 15 6 C) 15 15 D) 5 6
(7) 設a=3,b=5，則以下表達式值為真的是
A) a>=b And b>10 B) (a>b)Or(b>0)
C) (a<0)eqv(b>0) D) (-3+5>a)And(b>0)
(8) 設有語句
x=InputBox(“輸入數值”，“0”，“示例”)
程式執行後，如果從鍵盤上輸入數值10並按回車鍵，則下列敘述中正確的是
A) 變數X的值是數值10 B) 在InputBox對話方塊標題欄中顯示的是“示例”
C) 0是預設值 D) 變數X的值是字串“10”
(9) 從鍵盤上輸入兩個字串，分別儲存在變數str1、str2中。確定第二個字串在第一個字串中起始位置的函式是
A) Left B) Mid C) String D) Instr
(10) 設a=“Visual Basic”，下面使b=“Basic”的語句是
A) b=Left(a,8,12) B) b=Mid(a,8,5)
C) b=Rigth(a,5,5) D) b=Left(a,8,5)
(11) 以下能夠觸發文字框Change事件的操作是
A) 文字框失去焦點 B) 文字框獲得焦點
C) 設定文字框的焦點 D) 改變文字框的內容
(12) 在窗體上有一個文字框控制元件，名稱為TxtTime：一個計時器控制元件，名稱為Timerl，要求每一秒鐘在文字框中顯示一次當前的時間。程式為：
Private Sub Timer1_ ()
=Time
End Sub
在下劃線上應填入的內容是
A) Enabled B) Visible C) Interval D) Timer
(13) 在窗體上畫兩個單選按鈕，名稱分別為Option1、Option2，標題分別為“宋體”和“黑體”；一個複選框，名稱為Check1,標題為“粗體”；一個文字框，名稱為Text1，Text屬性為“改變文字字型”。要求程式執行時，“宋體”單選按鈕和“粗體”複選框被選中(窗體外觀如下圖) ，則能夠實現上述要求的語句序列是
A) e=True B) e=True
e=False e=True
C) e=False D) e=True
e=True e=1
(14) 為了在按下Esc鍵時執行某個命令按鈕的Click事件過程，需要把該命令按鈕的一個屬性設定為True，這個屬性是
A) Value B) Default C) Cancel D) Enabled
(15) 在窗體上畫一個命令按鈕，名稱為Command1。然後編寫如下程式：
Private Sub Command1_Click()
For I=1 To 4
For J=0 To 1
Print Chr$(65+I);
Next J
Next I
End Sub
程式執行後，如果單擊命令按鈕，則在窗體上顯示的內容是
A) BB B) A C) B D) AA
CC BB CC BBB
DDDD CCC DDD CCCC
EEEEE DDDD EEEE DDDDD
(16) 影象框有一個屬性，可以自動調整圖形的大小，以適應影象框的尺寸，這個屬性是
A) Autosize B) Stretch
C) AutoRedraw D) Appearance
(17) 在窗體上畫兩個名稱分別為Text1、Texte2的文字框和一個名稱為Command1的命令按鈕，然後編寫如下事件過程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
=Str(x)
=Str(n)
End Sub
程式執行後，單擊命令按鈕，在兩個文字框中顯示的值分別是
A) 15和1 B) 27和3 C) 195和3 D) 600和4
(18) 在窗體上畫一個名稱為Text1的文字框和一個名稱為Command1的命令按鈕，然後編寫如下事件過程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For I=0 To 50
i=i+3
n=n+1
If i>10 Then xit for
Next
=Str(n)
End Sub
程式執行後，單擊命令按鈕，在文字框中顯示的值是
A) 2 B) 3 D) 4 D) 5
(19) 在窗體上畫一個名稱為Text1的文字框和一個名稱為Command1的命令按鈕，然後編寫如下事件過程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i,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
程式執行後，單擊命令按鈕，在文字框中顯示的值是
A) 12 B) 13 C) 14 D) 15
(20) 在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下程式：
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a(10,10)As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Next j
End Sub
程式執行後，單擊命令按鈕，窗體上顯示的是
A) 123 B) 234 C) 147 D) 123
246 345 258 456
369 456 369 789
(21) 設有如下程式：
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程式執行後，單擊窗體，則在窗體上顯示的是
A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4
(22) 下列敘述中正確的是
A) 在窗體的Form_Load事件過程中定義的變數是全域性變數
B) 區域性變數的作用域可以超出所定義的過程
C) 在某個Sub過程中定義的區域性變數可以與其它事件過程中定義的區域性變數同名，但其作用域只限於該過程
D) 在呼叫過程時，所有區域性變數被系統初始化為0或空字串
(23) 在窗體上畫一個命令按鈕，名稱為Command1。程式執行後，如果單擊命令按鈕，則顯示一個輸入對話方塊，在該對話方塊中輸入一個整數，並用這個整數作為實參呼叫函式過程F1。在F1中判斷所輸入的整數是否是奇數，如果是奇數，過程F1返回1，否則返回0。能夠正確實現上述功能的程式碼是
A) Private Sub Command1_Click()
x=InputBox(“請輸入整數”)
a=F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function
B) Private Sub Command1_Click()
x=InputBox(“請輸入整數”)
a=F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
F1=0
Else
F1=1
End If
End Function
C) Private Sub Command1_Click()
x=InputBox(“請輸入整數”)
F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
F1=1
Else
F1=0
End If
End Function
D) Private Sub Command1_Click()
x=InputBox(“請輸入整數”)
F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function
(24) 在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文字框，然後編寫如下程式：
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
=“”
Call P1(x,y,z)
=Str(x)
End Sub
Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程式執行後，如果單擊命令按鈕，則在文字框中顯示的內容是
A) 0 B) 12 C) Str(z) D) 沒有顯示
(25) 以下敘述中錯誤的是
A) 如果過程被定義為Static型別，則該過程中的區域性變數都是Static型別
B) Sub過程中不能巢狀定義Sub過程
C) Sub過程中可以巢狀呼叫Sub過程
D) 事件過程可以像通用過程一樣由使用者定義過程名
(26) 以下敘述中錯誤的是
A) 在KeyUp和KeyDown事件過程中，從鍵盤上輸入A或a被視作相同的字母(即具有相同的KeyCode)
B) 在KeyUp和KeyDown事件過程中，將鍵盤上的“1”和右側小鍵盤上的“1”視作不同的數字(具有不同的KeyCode)
C) KeyPress事件中不能識別鍵盤上某個鍵的按下與釋放
D) KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放
(27) 以下敘述中錯誤的是
A) 在同一窗體的選單項中，不允許出現標題相同的選單項
B) 在選單的標題欄中，“&”所引導的字母指明瞭訪問該選單項的訪問鍵
C) 程式執行過程中，可以重新設定選單的Visible屬性
D) 彈出式選單也在選單編輯器中定義
(28) 設在選單編輯器中定義了一個選單項，名為menu1。為了在執行時隱藏該選單項，應使用的語句是
A) led=True B) led=False
C) ble=True D) ble=False
(29) 以下敘述中錯誤的是
A) 在程式執行時，通用對話方塊控制元件是不可見的
B) 在同一個程式中，用不同的方法(如ShowOpen或ShowSave等）開啟的通用對話方塊具有不同的作用
C) 呼叫通用對話方塊控制元件的ShowOpen方法，可以直接開啟在該通用對話方塊中指定的檔案
D) 呼叫通用對話方塊控制元件的ShowColor方法，可以開啟顏色對話方塊
(30) 在用通用對話方塊控制元件建立“開啟”或“儲存”檔案對話方塊時，如果需要指定檔案列表框所列出的檔案型別是文字檔案(即檔案)，則正確的描述格式是
A) “text ()|(*)” B)“文字檔案( ) | ()”
C) “text()||(*)” D)“text()(*)”
(31) 以下敘述中錯誤的是
A) 一個工程中只能有一個Sub Main過程
B) 窗體的Show方法的作用是將指定的窗體裝入記憶體並顯示該窗體
C) 窗體的Hide方法和Unload方法的作用完全相同
D) 若工程檔案中有多個窗體，可以根據需要指定一個窗體為啟動窗體
(32) 以下敘述中錯誤的是
A) 一個工程中可以包含多個窗體檔案
B) 在一個窗體檔案中用Private定義的通用過程能被其他窗體呼叫
C) 在設計VB程式時，窗體、標準模組、類模組等需要分別儲存為不同型別的磁碟檔案
D) 全域性變數必須在標準模組中定義
(33) 設在工程中有一個標準模組，其中定義瞭如下記錄型別
Type Books
Name As String *10
TelNum As String *20
End Type
在窗體上畫一個名為Command1的命令按鈕。要求當執行事件過程Command1_Click時，在順序檔案中寫入一條記錄。下列能夠完成該操作的事件過程是
A) Private Sub Command1_Click()
Dim B As Books
Open “c:”For Output As #1
=InputBox(“輸入姓名”)
um=InputBox(“輸入電話號碼”)
Write #1,,um
Close #1
End Sub
B) Private Sub Command1_Click()
Dim B As Books
Open “c:”For Input As #1
=InputBox(“輸入姓名”)
um=InputBox(“輸入電話號碼”)
Print #1,,um
Close #1
End Sub
C) Private Sub Command1_Click()
Dim B As Books
Open “c:”For Output As #1
=InputBox(“輸入姓名”)
um=InputBox(“輸入電話號碼”)
Write #1,B
Close #1
End Sub
D) Private Sub Command1_Click()
Open “c:”For Input As #1
Name=InputBox(“輸入姓名”)
TelNum=InputBox(“輸入電話號碼”)
Print #1,Name,TelNum
Close #1
End Sub
(34) 以下敘述中正確的是
A) 一個記錄中所包含的各個元素的資料型別必須相同
B) 隨機檔案中每個記錄的長度是固定的
C) Open命令的作用是開啟一個已經存在的`檔案
D) 使用Input #語句可以從隨機檔案中讀取資料
(35) 目錄列表框的Path屬性的作用是
A) 顯示當前驅動器或指定驅動器上的目錄結構
B) 顯示當前驅動器或指定驅動器上的某目錄下的檔名
C) 顯示根目錄下的檔名
D) 顯示該路徑下的檔案
二、填空題( 每空2分，共40分）
請將每空的正確答案寫在答題卡( 1)至( 15) 的橫線上，答在試卷上不得分。
(1) 在窗體上畫兩個標籤，其名稱分別為Label1和Label2,Caption屬性分別為“數值”及空白；然後畫一個名稱為Hscoll1的水平滾動條，其Min的值為0，Max的值為100。程式執行後，如果單擊滾動條兩端的箭頭，則在標籤Lable2中顯示滾動條的值，如圖所示。請在 [1] 和 [2] 處填入適當的內容，將程式補充完整。
Private Sub HScroll1_ [1] ()
ion=HScroll1. [2]
End Sub
(2) 在窗體上畫一個名稱為Command1、標題為“計算”的命令按鈕；畫兩個文字框，名稱分別為Text1和Text2；然後畫4個標籤，名稱分別為Label1、Label2、Label3和Label4，標題分別為“運算元1”、“運算元2”、“運算結果”和空白；再建立一個含有4個單選按紐的控制元件陣列，名稱為Option1，標題分別為“+”、“-”、“*”和“/”。程式執行後，在Text1、Text2中輸入兩個數值，選中一個單選按鈕後單擊命令按鈕，相應的計算結果顯示在Label4，程式執行情況如圖所示。請在 [3] 、 [4] 和 [5] 處填入適當的內容，將程式補充完整。
Private Sub Command1_Click()
For i=0 To 3
If [3] =True then
opt=Option1(i)ion
End If
Next
Select Case [4]
Case”+”
Result=Val()+Val()
Case”-”
Result=Val()-Val()
Case”*”
Result=Val()*Val()
Case”/”
Result=Val()/Val()
End Select
[5] =Result
End Sub
(3) 在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文字框。程式執行後，Command1為禁用(灰色) 。當向文框中輸入任何字元時，命令按鈕Command1變為可用。請在 [6] 處填入適當的內容，將程式補充完整。
Private Sub Form_Load()
led=False
End Sub
Private Sub Text1_ [6] ()
led=True
End Sub
(4) 在選單編輯器中建立了一個選單，名為pmenu，用下面的語句可以把它作為彈出式選單彈出，請填空。
Form1. [7] Pmenu
(5) 以下程式的功能是：從鍵盤上輸入若干個學生的考試分數，當輸入負數時結束輸入，然後輸出其中的最高分數和最低分數。請在 [8] 和 [9] 處填入適當的內容，將程式補充完整。
Private Sub Form_Click()
Dim x As Single,amax As Single,amin As Single
x=InputBox(“Enter a score”)
amax=x
amin=x
Do While [8]
If x>amax Then
Amax=x
End If
If [9]Then
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End Sub
(6) 在窗體上畫一個文字框和一個圖片框，然後編寫如下兩個事件過程：
Private Sub Form_Load()
=”計算機”
End Sub
Private Sub Text1_Change()
t“等級考試”
End Sub
程式執行後，在文字框中顯示的內容是 [10] ，而在圖片框中顯示的內容是 [11] 。
(7) 在窗體上畫一個命令按鈕，其名稱為Command1，然後編寫如下程式：
Function M(x As Integer,y As Integer)As Integer
M=IIf(x>y,x,y)
End Function
Private Sub command1_Click()
Dim a As Integer,b As Integer
a=100
b=200
Print M(a,b)
End Sub
程式執行後，單擊命令按鈕，輸出結果為 [12] 。
(8) 為了改變計時器控制元件的時間間隔，應該修改該控制元件的 [13] 屬性。
(9) 在窗體上畫一個名稱為Lable1的標籤和一個名稱為List1的列表框。程式執行後，在列表框中新增若干列表項。當雙擊列表框中的某個專案時，在標籤Label1中顯示所選中的專案，如圖所示。請在 [14] 和 [15] 處填入適當的內容將程式補充完整。
Private Sub Form_load()
tem”北京”
tem”上海”
tem”湖北”
End Sub
Private Sub [14] ()
ion= [15]
End Sub
答案：
一、選擇題：
1—10 C A C A D B B D D B
11—20 D D D C A B B B A D
21—30 C C B B D C A D C A
31—35 C B A D A
二、填空題：
1、CHANGE 2、VALUE 3、OPTION1（I）E 4、OPT
5、LABEL4。CAPTION 6、CHANGE 7、 POPUPMENU 8、X>=0
9、X<amain 10、計算機="" 11、無顯示="" 12、200="" 13、interval
14、LIST1_DBLCLICK 15、
