計算機二級VB考試試題及答案
網絡管理軟件及網絡通信協議的管理和協調下，實現資源共享和信息傳遞的計算機系統。下面是小編整理的關于計算機二級VB考試試題及答案，歡迎大家參考!
計算機二級VB考試試題及答案 1
一 、選擇題
(1)假設線性表的長度為n，則在最壞情況下，冒泡排序需要的比較次數為
A)log2n
B)n2
C)O(n1..5)
D)n(n-1)/2
正確答案: D
(2)算法分析的目的是
A)找出數據結構的合理性
B)找出算法中輸入和輸出之間的關系
C)分析算法的易懂性和可靠性
D)分析算法的效率以求改進
正確答案: D
(3)線性表L=(a1,a2,a3,…ai，…an)，下列說法正確的是
A)每個元素都有一個直接前件和直接后件
B)線性表中至少要有一個元素
C)表中諸元素的排列順序必須是由小到大或由大到小
D)除第一個元素和最后一個元素外，其余每個元素都有一個且只有一個直接前件和直接后件
正確答案: D
(4)在單鏈表中，增加頭結點的目的是
A)方便運算的實現
B)使單鏈表至少有一個結點
C)標識表結點中首結點的位置
D)說明單鏈表是線性表的'鏈式存儲實現
正確答案: A
(5)軟件工程的出現是由于
A)程序設計方法學的影響
B)軟件產業化的需要
C)軟件危機的出現
D)計算機的發展
正確答案: C
(6)軟件開發離不開系統環境資源的支持，其中必要的測試數據屬于
A)硬件資源
B)通信資源
C)支持軟件
D)輔助資源
正確答案: D
(7)在數據流圖(DF
D)中，帶有名字的箭頭表示
A)模塊之間的調用關系
B)程序的組成成分
C)控制程序的執行順序
D)數據的流向
正確答案: D
(8)分布式數據庫系統不具有的特點是
A)數據分布性和邏輯整體性
B)位置透明性和復制透明性
C)分布性
D)數據冗余
正確答案: D
(9)關系表中的每一橫行稱為一個
A)元組B)字段
C)屬性D)碼
正確答案: A
(10)下列數據模型中，具有堅實理論基礎的是
A)層次模型
B)網狀模型
C)關系模型
D)以上3個都是
二、綜合應用題
【審題分析】本題源程序已提供 Writedate 自定義過程，需編寫"讀數"、"計算"和"保存"命令的單擊事件過程。程序設計思路：在"讀數"按鈕的單擊事件過程中，用 Open 語句以 Input 方式打開數據文件 dr1.dat， For 循環語句(初值為 1，終值為 100)將數據文件中的數據用 Input 語句依次讀出并賦值給數組元素 arr(i)，同時顯示在文本框中，為使數據間保持一定間隔，每個數據后用 Space(5)加入 5 個空格;在"計算"按鈕的 Click 事件過程中，利用 For 循環語句(循環變 i 的初值為 1，終值為 100)依次將數組 arr 中小于或等于 300 的元素的值顯示在文本框中(條件表達式為：arr(i)<=300)，并將其值累加到變Sum，循環結束后將結果顯示在窗體上。在"保存"按鈕的 Click 事件過程中，調用WriteData 過程將文本框中的值寫入數據文件 dw1.dat。
【操作步驟】
步驟 1：新建一個"標準 EXE"工程，按下表在窗體中畫出控件并設置其相關屬性。
步驟 2：選擇【工程】?【添加模塊】命令，打開添加模塊對話框，將考生文件夾下的model.bas 添加到當前工程中。
步驟 3：在代碼編輯窗口編寫以下事件過程。
參考代碼：
Dim arr(1 To 100) As Integer
Private Sub Cmd1_Click()
Txt1.Text = ""
Open App.Path & "\dr1.dat" For Input As #1
For i = 1 To 100
Input #1, arr(i)
Txt1.Text = Txt1.Text & arr(i) & Space(5)
Next
Close #1
End Sub
Private Sub Cmd2_Click()
Dim sum As Integer
For i = 1 To 100
If arr(i) <= 300 Then
sum = sum + arr(i)
End If
Next
Txt1.Text = sum
End Sub
Private Sub Cmd3_Click()
writedata "dw1.dat", Txt1.Text
End Sub
步驟 4：按要求將文件保存至考生文件夾中。
計算機二級VB考試試題及答案 2
一、單選題
1. 以下敘述中錯誤的是（ ）。
A. Visual Basic是事件驅動型可視化編程工具
B. Visual Basic應用程序不具有明顯的開始和結束語句
C. Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性
D. Visual Basic中控件的某些屬性只能在運行時設置
答案：C。例如，定時器（Timer）控件就沒有寬度（Width）和高度（Height）屬性。
2. 在Visual Basic中，要將一個窗體加載到內存進行預處理但不顯示，應使用的語句是（ ）。
A. Load
B. Show
C. Hide
D. Unload
答案：A。Load語句用于將窗體加載到內存進行預處理，Show用于顯示窗體，Hide用于隱藏已顯示的窗體，Unload用于從內存中卸載窗體。
3. 以下變量名中合法的是（ ）。
A. x - y
B. Print
C. 12abc
D. count_1
答案：D。變量名不能包含特殊字符（除了下劃線），不能是關鍵字（如Print），不能以數字開頭。
4. 設a = 5，b = 4，c = 3，d = 2，下列表達式的值是（ ）。
3 > 2 * b Or a = c And b <> c Or c > d
A. 1
B. True
C. False
D. 2
答案：B。先計算乘除運算，再計算比較運算，最后計算邏輯運算。2*b = 8，3>8為False；a = c為False，b<>c為True，False And True為False；c>d為True，False Or False Or True結果為True。
5. 在Visual Basic中，為了把一個記錄型變量的內容寫入文件中指定的位置，要使用（ ）語句。
A. Get
B. Put
C. Print
D. Input
答案：B。Put語句用于將一個變量的數據寫入磁盤文件中指定的位置，Get用于從文件中讀取數據，Print主要用于在窗體或打印機等輸出文本，Input用于從文件等讀取數據到變量。
6. 在Visual Basic中，要設置菜單項的快捷訪問鍵，應使用（ ）符號。
A. &
B. *
C. $
D. @
答案：A。在菜單標題的某個字符前加上“&”符號，就可以通過“Alt + 字符”來訪問該菜單項。
7. 在VB中，若要使標簽控件（Label）顯示時不覆蓋其背景內容，要對（ ）屬性進行設置。
A. BackColor
B. BorderStyle
C. ForeColor
D. BackStyle
答案：D。BackStyle屬性用于設置標簽是否透明，0表示透明（不覆蓋背景內容），1表示不透明。BackColor是背景顏色，BorderStyle是邊框樣式，ForeColor是前景色（文字顏色）。
8. 以下關于數組的說法錯誤的是（ ）。
A. 數組是一組相同類型的數據的集合
B. 數組的下標從0開始
C. 可以使用ReDim語句改變數組的大小，但不能改變數組的維數
D. 動態數組在聲明時可以確定數組的大小
答案：D。動態數組在聲明時不能確定數組的大小，使用ReDim語句在程序運行過程中確定大小。
9. 在Visual Basic中，以下關于過程的說法正確的是（ ）。
A. 過程的定義可以嵌套，但過程的調用不能嵌套
B. 過程的定義不可以嵌套，但過程的調用可以嵌套
C. 過程的定義和調用都可以嵌套
D. 過程的定義和調用都不可以嵌套
答案：B。過程定義不能嵌套，即不能在一個過程內部定義另一個過程，但過程調用可以嵌套，一個過程可以調用其他過程，而被調用的過程還可以再調用其他過程。
10. 在VB中，要在列表框（ListBox）中添加一個項目，可使用（ ）方法。
A. Add
B. AddItem
C. Insert
D. InsertItem
答案：B。ListBox控件使用AddItem方法添加項目。
二、填空題
1. 在VB中，表達式Abs(-3.6) * Sqr(100)的.值是______。
答案：36。Abs函數返回絕對值，Sqr函數返回平方根，Abs(-3.6)=3.6，Sqr(100)=10，3.6*10 = 36。
2. 在VB中，設a = 3，b = 4，執行語句c = IIf(a > b, a, b)后，c的值是______。
答案：4。IIf函數根據條件返回不同的值，條件a>b不成立，所以返回b的值。
3. 在VB中，要使文本框（TextBox）中的內容只能讀不能寫，應將______屬性設置為True。
答案：Locked。Locked屬性設置為True時，文本框內容只讀。
4. 若有數組聲明語句Dim a(3, 4) As Integer，則數組a包含______個元素。
答案：20。二維數組元素個數為第一維長度乘以第二維長度，這里是(3 + 1)×(4 + 1)=20。
5. 在VB中，設x是一個整型變量，判斷x是否為偶數的表達式是______。
答案：x Mod 2 = 0。Mod是取余運算，當x除以2的余數為0時，x是偶數。
三、程序閱讀題
1. 閱讀以下程序：
Private Sub Form_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 10
If i Mod 2 = 0 Then
s = s + i
End If
Next i
Print s
End Sub
（1）程序運行后，單擊窗體，輸出結果是______。
答案：30。程序計算1到10之間偶數的和，偶數有2、4、6、8、10，它們的和為30。
（2）將If語句中的條件“i Mod 2 = 0”改為“i Mod 3 = 0”，輸出結果是______。
答案：18。此時計算1到10中能被3整除的數的和，這些數是3、6、9，和為18。
2. 閱讀以下程序：
Function f(n As Integer) As Integer
If n = 1 Then
f = 1
Else
f = n * f(n - 1)
End If
End Function
Private Sub Form_Click()
Dim x As Integer
x = f(5)
Print x
End Sub
（1）程序運行后，單擊窗體，輸出結果是______。
答案：120。這是一個遞歸函數，計算5的階乘，5! = 5×4×3×2×1 = 120。
（2）如果將函數中的遞歸調用語句“f = n * f(n - 1)”改為“f = (n - 1) * f(n - 2)”，輸出結果是______。
答案：24。此時計算的是4的階乘，4! = 4×3×2×1 = 24。
四、程序填空題
1. 以下程序的功能是計算1到100之間能被3整除的數的個數。
Private Sub Form_Click()
Dim i As Integer, count As Integer
count = （1）______
For i = 1 To 100
If （2）______ Then
count = count + 1
End If
Next i
Print count
End Sub
（1）處應填______。
答案：0。初始化計數器為0。
（2）處應填______。
答案：i Mod 3 = 0。判斷i是否能被3整除。
2. 以下程序的功能是在列表框List1中添加10個隨機整數（1到100之間），然后找出其中的最大值并顯示在標簽Label1中。
Private Sub Form_Load()
Dim i As Integer, max As Integer, a As Integer
Randomize
List1.Clear
For i = 1 To 10
a = Int(Rnd * 100) + 1
List1.AddItem （1）______
Next i
max = （2）______
For i = 0 To List1.ListCount - 1
If List1.List(i) > max Then
max = （3）______
End If
Next i
Label1.Caption = "最大值是：" & max
End Sub
（1）處應填______。
答案：CStr(a)。將隨機整數轉換為字符串添加到列表框中。
（2）處應填______。
答案：Val(List1.List(0))。初始化最大值為列表框中的第一個元素（轉換為數值類型）。
（3）處應填______。
答案：Val(List1.List(i))。更新最大值為當前比較的較大值。
【計算機二級VB考試試題及答案】相關文章：
計算機二級vb考試試題及答案12-17
計算機二級vb考試試題（附答案）02-26
計算機二級VB上機試題及答案03-14
2016年計算機二級VB模擬試題及答案03-11
2017全國計算機二級VB考試試題03-06
計算機二級考試模擬試題及答案03-13
計算機二級考試試題及答案10-23