全國計算機等級考試二級VB試卷
為了使廣大考生在備戰計算機等級考試時，更快的掌握相應知識點，下面是小編搜索整理的全國計算機等級考試二級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、
