在2016年計算機第一次等級考試來臨之前，本站小編為大家蒐集了計算機二級vb考試題及答案，希望能幫助到大家!
一、選擇題(每小題2分，共70分)
下列各題A) 、B) 、C) 、D)四個選項中，只有一個選項是正確的。請將正確選項填塗在答題卡相應位置上，答在試卷上不得分。
(1)軟體是指
A)程式 B)程式和文件
C)演算法加資料結構 D)程式、資料與相關文件的完整集合
(2)軟體除錯的目的是
A)發現錯誤 B)改正錯誤
C)改善軟體的效能 D)驗證軟體的正確性
(3)在面向物件方法中，實現資訊隱蔽是依靠
A)物件的繼承 B)物件的多型
C)物件的封裝 D)物件的分類
(4)下列敘述中，不符合良好程式設計風格要求的是
A)程式的效率第一，清晰第二 B)程式的可讀性好
C)程式中要有必要的註釋 D)輸入資料前要有提示資訊
(5)下列敘述中正確的是
A)程式執行的效率與資料的儲存結構密切相關
B)程式執行的效率只取決於程式的控制結構
C)程式執行的效率只取決於所處理的資料量
D)以上三種說法都不對
(6)下列敘述中正確的是
A)資料的邏輯結構與儲存結構必定是一一對應的
B)由於計算機儲存空間是向量式的儲存結構，因此，資料的儲存結構一定是線性結構
C)程式設計語言中的陣列一般是順序儲存結構，因此，利用陣列只能處理線性結構
D)以上三種說法都不對
(7)氣泡排序在最壞情況下的比較次數是
A)n(n+1)/2 B)nlog2 n C)n(n-1)/2 D)n/2
(8)一棵二叉樹中共有70個葉子結點與80個度為1的結點，則該二叉樹中的總結點數為
A)219 B)221 C)229 D)231
(9)下列敘述中正確的是
A)資料庫系統是一個獨立的系統，不需要作業系統的支援
B)資料庫技術的根本目標是要解決資料的共享問題
C)資料庫管理系統就是資料庫系統
D)以上三種說法都不對
(10)下列敘述中正確的是
A)為了建立一個關係，首先要構造資料的邏輯關係
B)表示關係的二維表中各元組的每一個分量還可以分成若干資料項
C)一個關係的屬性名錶稱為關係模式
D)一個關係可以包括多個二維表
(11)要使一個文字框可以顯示多行文字，應設定為True的屬性是
A)Enabled B)MultiLine C)MasLenfth D)Width
(12)在窗體上有一個名為Text1的文字框。當游標在文字框中時，如果按下字母鍵“A”，則被呼叫的事件過程是
A)Form_KeyPress() B)Text1_LostFocus()
C)Text1_Click() D)Test1_Change()
(13)設在窗體上有一個名稱為Command1的命令按鈕和一個名稱為Text1的文字框。要求單擊Command1按鈕時可把游標移到文字框中。下面正確的事件過程是
A)Private Sub Command1_Click() B)Private Sub
ocus ocus
End Sub EndSub
C)Private Sub Command1_Click() D)Private Sub
ocus ocus
End Sub End Sub
(14)執行以下程式後輸出的是
Private Sub Command1_Click()
Ch$=”AABCDEFGH”
Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)
End Sub
A)CDEFGH B)ABCD C)FG D)AB
(15)設在窗體Form1上有一個列表框List1，其中有若干個專案。要求單擊列表框中某一項時，把該項顯示在窗體上，正確的事件過程是
A)Prvate Sub List1_Click() B)Private Sub Form1_Click()
Print Print
End Sub End Sub
C)Private Sub List1_Click() D)Private Sub Form1_Click()
Print t
End Sub End Sub
(16)若窗體上的圖片框中有一個命令按鈕，則此按鈕的Left屬性是指
A)按鈕左端到窗體左端的距離 B)按鈕左端到圖片框左端的距離
C)按鈕中心點到窗體左端的距離 D)按鈕中心點到圖片框左端的距離
(17)為使程式執行時通用對話方塊CD1上顯示的標題為“對話方塊視窗”，若通過程式設定該標題，則應使用的語句是
A)ogTitle=“對話方塊視窗” B)on=“對話方塊視窗”
C)Name=“對話方塊視窗” D)er=“對話方塊視窗”
(18)在窗體上有如右圖所示的控制元件，各控制元件的名稱
與其標題相同，並有如下程式：
Private Sub Form_Load()
led=False
e=1
End Sub
剛執行程式時，看到的窗體外觀是：
(19)設在窗體中有一個名稱為List1的列表框，其中有若干個專案(如圖)。要求選中某一項後單擊Command1按鈕，就刪除選中的項，則正確的事件過程是
A)Private Sub Command1_Click()
r
End Sub
B) Private Sub Command1_Click()
r Index
End Sub
C) Private Sub Command1_Click()
veltem Index
End Sub
D) Private Sub Command1_Click()
veltem
End Sub
(20)某人設計瞭如下程式用來計算並輸出7!(7的階乘)
Private Sub Command1_Click()
t=0
For k=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
執行程式時，發現結果是錯誤的，下面的修改方案中能夠得到正確結構的是
A)把t=0改為t=1
B)把For k = 7 To 2 Step -1改為For k =7 To 1 Step -1
C)把For k = 7 To 2 Stip-1改為Fork=1 To 7
D)把Next改為Nexi k
(21)若窗體中已經有若干個不同的單選按鈕，要把它們改為一個單選按鈕陣列，在屬性視窗中需要且只需要進行的操作是
A)把所有單選按鈕的Index屬性改為相同值
B)把所有單選按鈕的Index 屬性改為連續的不同值
C)把所有單選按鈕的Caption屬性值改為相同
D)把所有單選按鈕的名稱改為相同，且把它們的Index屬性改為連續的不同值。
(22)窗體上有文字框Text1和一個選單，選單標題、名稱如表，結構見圖。要求程式執行時單擊“儲存”選單項，則把其標題顯示在Text1文字框中。下面可實現此功能的事件過程是：
標題 名稱
檔案 file
新建 new
儲存 save
A)Private Sub save_Click() B)Private Sub save_Click()
=ion =ion
End Sub End Sub
C)Private Sub file_Click() D)Private Sub file_Click()
=ion =ion
End Sub End Sub
(23)某人在窗體上畫了一個名稱為Timer1的計時器和一個名稱為Lab
的屬性設定為Enabled=True, Interval=0,並程式設計如下。希望在每2秒在標籤上顯示一次系統當前時間。
Private Sub Timer1_Timer()
ion=Time$
End Sub
在程式執行時發現未能實現上述目的，那麼，他應做的.修改是
A)通過屬性視窗把計時器的Interval屬性設定為2000
B)通過屬性視窗把計時器的Enabled屬生設定為False
C)把事件過程中的Label1.Caption=Time$語句改為Timer1.Interval=Tims$
D)把事件過程中的Label1.Caption=Time$語句改為Label1.Caption=Timer1.Time
(24)形狀控制元件的Shape屬性有6種取值，分別代表6種幾何圖形。下列不屬於這6種幾何圖形的是
(25)下面關於檔案的敘述中錯誤的是
A)隨機檔案中各條記錄的長度是相同的]
B)開啟隨機檔案時採用的檔案存取方式應該是Random
C)向隨機檔案中寫資料應使用語句Print#檔案號
D)開啟隨機檔案與開啟順序檔案一樣，都使用Open語句
(26)設窗體上有一個圖片框Picture1，要在程式執行期間裝入當前資料夾下的圖形檔案File1.jpg，能實現此功能的語句是
A)Picture1.Picture=”Flie1.jpg
B)Picture1.Picture=LoadPicture(“File1.jpg”)
C) LoadPicture(“File1.jpg”)
D)Call LoadPicture(“File1.jpg”)
(27)下面程式執行時，在窗體上顯示的是
Private Sub Command1_Click()
Dim a(10)
For k = 1 To 10
a(k) = 11 – k
Next k
Print a(a(3)a(7) Mod a(5))
End Sub
A)3 B)5 C)7
(28)為達到把a、b中的值交換後輸出的目的，某人程式設計如下：
Private Sub Command1_Click()
a% = 10:b% = 20
Call swap(a,b)
Print a,b
End Sub
Private Sub swap(ByVal a As Integer,ByVal b As Integer)
c= a:a=b:b=c
End Sub
在執行時發現輸出結果錯了，需要修改。下面列出的錯誤原因和修改方案中正確的是
A)呼叫swap過程的語句錯誤，應改為Call swap a,b
B)輸出語句錯誤，應改為：Print ”a”,”b”
C)過程的形式引數有錯，應改為：swap(ByRef a As Integer,ByRef b As Integer)
D)swap中3條賦值語句的順序是錯誤的，應改為a=b:b=c:c=a
(29)有如下函式：
Function fun(a As Integer,n As Integer) As Integer
Dim m As Integer
While a >=n
a=a-n
m= m+1
Wend
fun=m
End Function
該函式的返回值是
A)a乘以n的乘積 B)a加n的和
C)a減n的差 D)a除以n的商(不含小數部分)
(30)下面程式的輸出結果是
Private Sub Command1_Click()
ch$=”ABCDEF”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S=””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A)ABCDEF B)FEDCBA C)A D)F
(31)某人編寫了一個能夠返回陣列a中10個數中最大數的函式過程，程式碼如下：
Function Maxvalue(a() As Integer) As Integer
Dim max%
max=1
For k = 2 To 10
If a(k)>a(max) Then
max = k
End If
