2016年計算機二級vb上機題庫

在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