2011年9月計算機等級考試二級VB模擬試題1及答案
知識點復習：形參：指出現在Sub 和Function過程形參表中的變量名、數組名，過程被調用前，沒有分配內存，其作用是說明自變量的類型和形態以及在過程中的角色。形參可以是：
1）除定長字符串變量之外的合法變量名；
2）后面跟括號的數組名。
實參：是在調用Sub 和Function過程時，傳送給相應過程的變量名、數組名、常數或表達式。在過程調用傳遞參數時，形參與實參是按位置結合的，形參表和實參表中對應的變量名可以不必相同，但位置必須對應起來。
51CTO編輯向您推薦：《2011年9月全國計算機等級考試試題及答案》及相關模擬題。
一 、選擇題
(1) 根據數據結構中各數據元素之間前后件關系的復雜程度，一般將數據結構分成
A) 動態結構和靜態結構
B) 緊湊結構和非緊湊結構
C) 線性結構和非線性結構
D) 內部結構和外部結構
正確答案: C
(2) 設一棵二叉樹中有3個葉子結點，有8個度為1的結點，則該二叉樹中總的結點數為
A) 12
B) 13
C) 14
D) 15
正確答案: B
(3) 在下列幾種排序方法中，要求內存量最大的是
A) 插入排序
B) 選擇排序
C) 快速排序
D) 歸并排序
正確答案: D
(4) 下列敘述中，不屬于結構化程序設計方法的主要原則的是
A) 自頂向下
B) 由底向上
C) 模塊化
D) 限制使用goto語句
正確答案: B
(5) 下列不屬于軟件調試技術的是
A) 強行排錯法 B) 集成測試法 C) 回溯法 D) 原因排除法
正確答案: B
(6) 為了避免流程圖在描述程序邏輯時的靈活性，提出了用方框圖來代替傳統的程序流程圖，通常也把這種圖稱為
A) PAD圖
B) N-S圖
C) 結構圖
D) 數據流圖
正確答案: B
(7) 軟件復雜性度量的參數包括
A) 效率 B) 規模 C) 完整性 D) 容錯性
正確答案: B
(8) 下列敘述中，不屬于數據庫系統的是
A) 數據庫
B) 數據庫管理系統
C) 數據庫管理員
D) 數據庫應用系統
正確答案: B
(9) 數據庫系統的核心是
A) 數據庫
B) 數據庫管理系統
C) 數據模型
D) 軟件工具
正確答案: B
(10) 視圖設計一般有3種設計次序，下列不屬于視圖設計的是
A) 自頂向下
B) 由外向內
C) 由內向外
D) 自底向上
正確答案: B
(11) 下列說法錯誤的是
A) 標準模塊的擴展名是.bas
B) 標準模塊由程序代碼組成
C) 標準模塊只用來定義一些通用的過程
D) 標準模塊不附屬于任何一個窗體
正確答案: C
(12) 如果要將窗體中的某個命令按鈕設置成無效狀態，應該動命令按鈕的何種屬性
A) Value
B) Visible
C) Default
D) Enabled
正確答案: D
(13) 在窗體上有多個控件，要實現程序運行后焦點默認在某一控件上，應該設置的屬性是
A) 設置Enabled的值為True
B) 設置TabIndex的值為1
C) 設置TabIndex的值為0
D) 設置Index的值為0
正確答案: C
(14) 下列幾項中，屬于合法的日期型常量的是
A) "10/10/02"
B) 10/10/02
C) {10/10/02}
D) #10/10/02#
正確答案: D
(15) 下列程序段的執行結果為
A=2
B=5
If A * B < 1 Then B=B - 1 Else B=-1
Print B - A > 0
A) True
B) False
C) -1
D) 1
正確答案: B
(16) 以下語句的輸出結果是
a=Sqr(26)
Print Format$ (a, "$####.###")
A) $5.099
B) 5.099
C) 5099
D) $0005.099
正確答案: A
(17) 標簽控件能夠顯示文本信息，決定其文本內容的屬性是
A) Alignment
B) Caption
C) Visible
D) BorderStyle
正確答案: B
(18) 在屬性窗口中，加載指定的圖形放入當前對象中的屬性是
A) CurrentY
B) Picture
C) CurrentX
D) Caption
正確答案: B
(19) 在使用應用程序時，常常用作在單擊時執行指定的操作的控件是
A) 命令按鈕
B) 圖片框
C) 復選框
D) 單選按鈕
正確答案: A
(20) 當直線或形狀的BorderStyle屬性設置為1時，控件是
A) 虛線
B) 點線
C) 不可見
D) 實線
正確答案: D
(21) 通過設置何屬性可以改變所畫圖形的形狀？
A) Shape
B) Index
C) Enabled
D) Height
正確答案: A
(22) 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
- Private Sub Command1_Click()
- s=1
- Do
- s=(s + 1) * (s + 2)
- Number=Number + 1
- Loop Until s >=30
- Print Number, s
- End Sub
程序運行后，輸出的結果是
A) 2 3
B) 2 56
C) 5 12
D) 10 20
正確答案: B
(23) 下列程和序段的執行結果為
- x=Int(Rnd() + 9)
- Select Case x
- Case 10
- Print "excellent"
- Case 9
- Print "good"
- Case 8
- Print "pass"
- Case Else
- Print "fail"
- End Select
A) excellent
B) good
C) pass
D) fail
正確答案: B
(24) 下列程序段的執行結果為
a=75
If a > 60 Then Score=1
If a > 70 Then Score=2
If a > 80 Then Score=3
If a > 90 Then Score=4
Print " Score="; Score
A) Score＝1
B) Score＝2
C) Score＝3
D) Score＝4
正確答案: B
(25) 下列程序段的執行結果為
I=1
x=5
Do
I=I + 1
x=x + 2
Loop Until I >=7
Print "I="; I
Print "x="; x
A) I＝4 x＝5
B) I＝7 x＝15
C) I＝6 x＝8
D) I＝7 x＝17
正確答案: D
(26) 下面的程序的運行結果是
a=1
b=1
Do
a=a^2
b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4) ; "b="; b + a
A) k＝7 b＝14
B) k＝6 b＝6
C) k＝4 b＝8
D) k＝1 b＝7
正確答案: D
(27) 單擊命令按鈕，下列程序的執行結果為
- Private Sub Command1_Click()
- Dim x As Integer, y As Integer
- x=32: y=42
- Call PCS(x, y)
- Print x; y
- End Sub
- Public Sub PCS(Byval n As Integer, ByVal m As Integer)
- n=n Mod 10+1
- m=m Mod 10+1
- End Sub
A) 32 42
B) 2 32
C) 2 3
D) 12 3
正確答案: A
(28) 下列程序的執行結果為
- Private Sub Command1_Click()
- Dim s1 As String, s2 As String
- s1="abcd"
- Call Transfer(s1, s2)
- Print s2
- End Sub
- Private Sub Transfer (ByVal xstr As String, ystr As String)
- Dim tempstr As String
- i=Len(xstr)
- Do While i >=1
- tempstr=tempstr + Mid(xstr, i, 1)
- i=i - 1
- Loop
- ystr=te mpstr
- End Sub
A) dcba
B) abdc
C) abcd
D) dabc
正確答案: A
(29) 單擊命令按鈕，下列程序的執行結果是
- Private Sub Blck(x As Integer)
- x=x * 2 + 1
- If x < 6 Then
- Call Blck(x)
- End If
- x=x * 2 + 1
- Print x;
- End Sub
- Private Sub Command1_Click()
- Blck 2
- End Sub
A) 23 47
B) 10 36
C) 22 44
D) 24 50
正確答案: A
(30) 有如下程序：
- Private Sub Command1_Click()
- Dim a As Integer
- a=2
- For i=1 To 3
- Print Gad (A)
- Next i
- End Sub
- Function Gad (a As Integer)
- b=0
- Static c
- b=b + 1
- c=c + 1
- Gad=a + b + c
- End Function
運行上面的程序后，單擊命令按鈕，輸出結果為
A)1 2 3
B) 2 3 4
C) 4 5 6
D) 1 4 6
正確答案: C
(31) 下列過程定義語句中，參數不是對象的定義語句是
A) Sub Pro4(x As Form)
B) Sub Pro4(y As Control)
C) Sub Pro4(Form1 As Form,Labell As Control)
D) Sub Pro4(x As Currency)
正確答案: D
(32) 下列說法正確的是
A) 任何時候都可以使用標準工具欄的"菜單編輯器"按鈕打開菜單編輯器
B) 只有當代碼窗口為當前活動窗口時，才能打開菜單編輯器
C) 任何時候都可以使用"工具"菜單下的"菜單編輯器"命令，打開菜單編輯器
D) 只有當某個窗體為當前活動窗體時，才能打開菜單編輯器
正確答案: D
(33) 下列各選項說法錯誤的一項是
A) 文件對話框可分為兩種即打開(Open) 文件對話框和保存(Save As) 文件對話框
B) DefaultEXT屬性和DialogTitle屬性都是打開對話框的屬性，但非保存對話框的屬性
C) 打開文件對話框可以讓用戶指定一個文件，由程序使用；而用保存文件對話框可以指定一個文件，并以這個文件名保存當前文件
D) 通用對話框的名稱屬性的默認值為CommonDialogX(X＝1，2……) ，此外，每種對話框都有自己的默認標題
正確答案: B
(34) 下列數組定義語句錯誤的是
A)k%=10
Dim Arr(k)
B)Const k%=10
Dim Arr(k)
C)Dim Arr1(10) As Integer
Dim Arr2 (10)
D)Dim Arr1(1 To 10)
Dim Arr2(1 To 10, 2 To 11)
正確答案: A
(35) 在Visual Basic中按文件的數據性質不同，可將文件分為
A) 數據文件和程序文件
B) 文本文件和數據文件
C) 順序文件和隨機文件
D) ASCII文件和二進制文件
正確答案: A
#p#
二 、填空題
(1) 算法的工作量大小和實現算法所需的存儲單元多少分別稱為算法的 【1】 。
正確答案: 1.(時間復雜度和空間復雜度)
(2) 數據結構包括數據的邏輯結構、數據的 【2】 以及對數據的操作運算。
正確答案: 1.(存儲結構)
(3) 可以把具有相同屬性的一些不同對象歸類，稱為 【3】 。
正確答案: 1.(對象類)
(4) 軟件工程包括3個要素，分別為方法、工具和 【4】 。
正確答案: 1.(過程)
(5) 由關系數據庫系統支持的完整性約束是指 【5】 和參照完整性。
正確答案: 1.(實體完整性)
(6) 表達式3 ^ 2 Mod 36 ＼ 2 ^ 5的值是 【6】
正確答案: 1.(0)
(7) 我國古代數學家張丘建在其著名的《算經》中提出了百雞問題：每只公雞5元，每只母雞3元，三只雛雞1元；如何用100元買100只雞，即公雞、母雞、雛雞各多少只。請在空白處填入適當的內容，將程序補充完整。
- Private Sub Command1_Click()
- Dim Cock As Integer
- Dim Hen As Integer
- Dim Chick As Integer
- Form1.Print "公雞數", "母雞數", "雛雞數"
- For Cock=0 To 20
- For Hen=0 To 33
- For Chick=0 To 100
- If 【7】 Then
- Form1.Print Cock, Hen, Chick
- End If
- Next Chick
- Next Hen
- Next Cock
- End Sub
正確答案: 1.(Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + )
(8) 每一個窗體或者控件都有一個名字，為提高程序的可讀性，可以用前綴的方式來表示對象的類型，如Form的前綴為frm，則Image的前綴為 【8】 ，Picture的前綴為 【9】 。
正確答案: 1.(img) 2.(pic)
(9) 在一個工程中有兩個窗體，窗體Form1上有一個命令按鈕Disp，單擊該按鈕，Form1窗體隱藏，顯示Form2窗體，程序如下，請補充完整。
- Private Sub Disp_Click
- Me.Hide
- Form2. 【10】
- End Sub
正確答案: 1.(Show)
(10) 在窗體上有幾個對象，運行程序時，當對象得到焦點時，會觸發 【11】 事件，當對象失去焦點時將觸發 【12】 事件。
正確答案: 1.(GotFocus) 2.(LostFocus)
(11) 下面是用冒泡法將5個整數按升序排列，請將程序補充完整。
- Sub GASR()
- Dim m
- m=Array(10, 1, 5, 6, 7)
- For i=0 To 3
- For j= 【13】
- If m(i) >=m(j) Then
- 【14】
- m(i) =m(j)
- m(j) =t
- End If
- Next j
- 【15】
- For i=0 To 4
- Print m(i)
- Next i
- End Sub
正確答案: 1.(i +1 To 4) 2.(t = m(i)) 3.( Next i)
