上半年計算機二級考試VB真題（完整版）
在學習、工作中，我們最少不了的就是練習題了，只有認真完成作業，積極地發揮每一道習題特殊的功能和作用，才能有效地提高我們的思維能力，深化我們對知識的理解。什么樣的習題才是好習題呢？下面是小編為大家收集的上半年計算機二級考試VB真題（完整版），歡迎大家分享。
上半年計算機二級考試VB真題 1
一、選擇題(每小題2分)
下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂在答題卡相應位置上，答在試卷上不得分。
(1) 下列敘述正確的是( )。
A) 循環隊列是隊列的一種鏈式存儲結構
B.循環隊列是隊列的一種順序存儲結構
C.循環隊列是非線性結構
D.循環隊列是一種邏輯結構
(2)下列敘述正確的是( )。
A) 棧是一種先進先出的線性表
B.隊列是一種后進后出的線性表
C.棧和隊列都是非線性結構
D.以上三種說法都不對
(3)一棵二叉樹共有25個結點，其中5個是葉子結點，則度為1的結點數為( )。
A.16
B.10
C.6
D.4
(4)在下列模式中，能夠給出數據庫物理存儲結構與物理存取方法的是( )。
A.外模式
B.內模式
C.概念模式
D.邏輯模式
(5)在滿足實體完整性約束的條件下( )。
A.一個關系中應該有一個或多個候選關鍵字
B.一個關系中只能有一個候選關鍵字
C.一個關系中不許有多個候選關鍵字
D.一個關系中可以沒有候選關鍵字
(6)設有打開文件的語句如下：
Open“test.dat” For Random As #1
要求把變量a中的數據保存到該文件中，應該使用的語句是( )。
A. Inpur #1，a
B. Write #1.a
C. Put #1，.a
D. Get #1..a
(7)軟件生命周期中的活動不包括( )。
A.市場調研
B.需求分析
C.軟件測試
D.軟件維護
(8)下面不屬于需求分析階段任務的是( )。
A.確定軟件系統的功能需求
B.確定軟件系統的性能需求
C.需求規格說明書評審
D.制定軟件集成測試計劃
(9)在測試方法中，設計測試用例的主要根據是( )。
A.程序內部邏輯
B.程序外部功能
C.程序數據結構
D.程序流程圖
(10)在軟件設計中不使用的工具是( )。
A.系統結構圖
B.PAD圖
C.數據流圖(DFD圖)
D.程序流程圖
(11)以下合法的VB變量名是( )。
A.case
B.name10
C.t-name
D.x*y
(12)設x是小于10的非負數。對此陳述，以下正確的VB表達式是( )。
A.0≤x<10
B.0<=x<10
C.x>=0 and x<10
D.x>=0 or x<=10
(13)以下關于窗體的敘述中錯誤的是( )。
A.窗體的Name屬性用于標識一個窗體
B.運行程序時，改變窗體大小，能夠觸發窗體的Resize事件
C.窗體的Enabled屬性為False時，不能響應單擊窗體的事件
D.程序運行期間，可以改變Name屬性值
(14)下面定義窗體級變量a的語句中錯誤的是( )。
A.Dim a%
B.private a%
C.Private a As Integer
D.Static a%
(15)表達式Int(Rnd(0)*50)所產生的隨機數范圍是( )。
A. (0，50)
B. (1，50)
C. (0，49)
D. (1，49)
(16)設x=5，執行語句Print x=x+10，窗體上顯示的是( )。
A.15
B.5
C.True
D.False
(17)設有如下數組聲明語句：
Dim arr(-2 to 2,0 to 3)AS Integer
該數組所包含的數組元素個數是( )。
A.20
B.16
C.15
D.12
(18)現有由多個單選按鈕構成的控件數組，用于區別該控件數組中各控件的屬性是( )。
A.Name
B.Index
C.Caption
D.Value
(19)有如下程序：
Private Type stu
X As String
Y As Integer
End Type
Private Sub Command1_Click()
Dim a As stu
a.x=”ABCD”
a.y=12345
Print a
End Sub\
程序運行時出現錯誤，錯誤的原因是( )。
A. Type定義語句沒有放在標準模塊中
B. 變量聲明語句有錯
C. 賦值語句不對
D. 輸出語句Print不對
(20)設程序中有如下語句：
X=inputbox(“輸入”,“數據”,100)
Print X
運行程序，執行上述語句，輸入5并單擊輸入對話框上的“取消“按鈕，則窗體上輸出( )。
A.0
B.5
C.100
D.空白
(21)現有如下一段程序：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(3,5,7,9)
x=1
For i=4 to 1 Step -1
S=s+a ( i )*x
x=x*10
Next
Print s
End Sub
執行程序，單擊Command1命令按鈕，執行上述事件過程，輸出結果是( )。
A.9753
B.3579
C.35
D.79
(22)設有一個命令按鈕Commsand1的事件過程以及一個函數過程。程序如下：
Private Sub Command1_Click(0
Static x As Integer
x=f(x+5)
Cls
Print x
End Sub
Private Funtion f(x As integer)As Integer
F=x+x
End Funtion
連續單擊命令按鈕3次，第3次單擊命令按鈕后，窗體上顯示的計算結果是( )。
A.10
B.30
C.60
D.70
(23)以下關于菜單設計的敘述中錯誤的是( )。
A.各菜單項可以構成控件數組
B.每個菜單項可以看成是一個控件
C.設計菜單是，菜單項的“有效” 表選，即’□有效(E)’,表示該菜單項不顯示
D.菜單項只響應單擊事件
(24)以下關于多窗體的敘述中，正確的是( )。
A.任何時刻，只有一個當前窗體
B.向一個工程添加多個窗體，存盤后生成一個窗體文件
C.打開一個窗體時，其他窗體自動關閉
D.只有第一個建立的窗體才是啟動窗體
(25)窗體上有一個名稱為CommonDialog1的通用對話框，一個名稱為Command1的命令按鈕，并有如下事件過程：
Private Sub Command1_Click()
CommandDialog1.DefaultExt=”doc”
CommandDialog1.FileName=”VB.txt”
CommandDialog1.FileName=”All(*.*)|*.*|Word|*.Doc|”
CommandDialog1.FileName=1
CommandDialog1.ShowSave
End Sub
運行上述程序，如下敘述正確的是( )。
A. 打開的對話框中文件“保存類型”框中顯示“All(*.*)”
B. 實現保存文件的操作，文件名是VB.txt
C. DefaultExt屬性與FileName屬性所指明的文件類型不一致，程序出錯
D. 對話框的'Filter屬性沒有指出txt類型，程序運行出錯
(26)設程序中有如下數組定義和過程調用語句：
Dim a(10) As Integer
……
Call p(a)
如下過程定義中，正確的是( )。
A. Private Sub p(a As Integer)
B. Private Sub p(a() As Integer)
C. Private Sub p(a(10) As Integer)
D. Private Sub p(a(n) As Integer)
(27)若要獲得組合框中輸入的數據，可使用的屬性是( )。
A.Listindex
B.Caption
C.Text
D.List
(28)以下關于彈出式菜單的敘述中，錯誤的是( )。
A.一個窗體只能有一個彈出式菜單
B.彈出式菜單在菜單編輯器中建立
C.彈出式菜單的菜單名(主菜單項)的“可見”屬性通常設置為False
D.彈出式菜單通過窗體的PopupMenu方法顯示
(29)有如下程序：
Option Base !
Private Sub Command1_Click()
Dim arr(10)
arr=Array(10,35,28,90,54,68,72,90)
For Each a In arr
If a>50 Then
Sum=Sun+a
End If
Next a
End Sub
運行上述程序時出現錯誤，錯誤之處是( )。
A. 數組定義語句不對，應改為Dim arr
B. 沒有指明For循環的終值
C. 應在For語句之前增加Sum=0
D. Next a應改為Next
(30)要求產生10個隨機整數，存放在數組arr中，從鍵盤輸入要刪除的數組元素的下標，將該元素中的數組刪除，后面元素中的數據依次前移，并顯示刪除后剩余的數據，現有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr(10) AS Integer
For i=1 to 10
arr(i)=int (Rnd*100)
Print arr(i);
Next
x=inputbox(“輸入1到10的一個整數：”)
For i=x+1 to 10 ‘循環2
arr(i-1)=arr(i)
Next
For i=1 to 10 ‘循環3
Print arr(i);
Next
End Sub
程序運行后發現顯示的結果不正確，應該進行的修改是( )。
A. 產生隨機數時不使用Int函數
B. 循環2的初始值應為i=x
C. 數組定義改為Dim a(11) as integer
D. 循環3是循環終值應改為9
(31)使用驅動器列表框Drive1、目錄列表框Fiel1時，需要設置控件的同步，以下能夠正確設置兩個同步的命令是( )。
A.Dir1.path=Drive.pate
B.File1.path=Dir1.pate
C.File1.path=Drive1.pate
D.Drive1.Drive=Dir1.pate
二、 填空題(每空2分，共30分)
請將每空的正確答案寫在答題卡【1】~【15】序號的橫線上，答在試卷上不得分。
(1) 在長度為n的順序存儲的線性表中刪除一個元素，最壞情況下需要移動表中的元素個數為 ( )。
(2)設循環隊列的存儲空間為Q(1：30)，初始狀態為Front=rear=30.現經過一系列入隊與退隊運算后，front=16，rear=15，則循環隊列中有( )個元素。
(3)數據庫管理系統提供的數據語言中，負責數據的增、刪、改和查詢的是( )。
(4)在將E-R圖轉換到關系模式時，實體和聯系都可以表示成( )。
(5)常見的軟件工程方法有結構化方法和面向對象方法，類、繼承以及多態性等概念屬于( )。
(6)下面的事件過程執行時，可以把Text1文本框中的內容寫到文件“file1.txt“中去。請填空。
Pivate Sub Command1_Click()
Open “file1.txt”For ( 6 ) As#1
print ( 7 ) Text1.Text
Close #1
End Sub
(7)設窗體上有一個名稱為Lable1的標簽。程序運行時，單擊鼠標左鍵，再移動鼠標，鼠標的位置坐標會實時地顯示在Lable1標簽中：單擊鼠標右鍵則停止實時顯示，并將標簽中內容清除。下面的程序可實現這一功能，請填空。
Dim Down As Boolean
Private Sub Form _MouseDown(Button As Integer，Shift As Integer，x As Single，Y As Single)
Select Case ( 8 )
Case 1
Down=True
Case 2
Down=False
End Select
End Sub
Private Sub Form _MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)
If ( 9 )
( 10 ) =”X=”& X &” Y=”& Y
Else
Label1.Caption=””
End if
Sub
(8)窗體上有List1、List2兩個列表框，程序運行時，在兩個列表框中分別選中1個項目，如圖a所示，單擊名稱為Command1的“交換”按鈕，則把選中的項目互換，互換后的位置不限，如圖b所示。下面的程序可實現這一功能，請填空。
Private Sub Command1_Click()
If List1.Text=”” or List2.Text=”” Then
MsgBox”請選擇交換的物品!”
Else
List1.AddItem List2.Text
List2.RemoveItem ( 11 )
( 12 )
List1.RemoveItem List1.ListIndex
End If
End Sub
(9)設窗體上有Text1文本框和Command命令按鈕，并有以下程序：
Private Sub Command1_Click()
Iemp$=“”
For k=1 To Len(Text1)
Ch$=Mid(Text1,k,1)
If Not found(temp,ch)Then
Temp=temp& ( 13 )
End if
Next k
Text1= ( 14 )
End Sub
Private Function found(str As String,ch As String)As Boolean
For K=1 To Len(str)
If ch=Mid(Str,k,1) Then
Found= ( 15 )
Exit Function
End If
Next k
Found=False
End Function
運行時，在文本框中輸入若干英文字母，然后單擊命令按鈕，則可以刪去文本框中所有重復的字母。例如，若文本框中原有字符串為“abcddbbc”，則單擊命令按鈕后文本框中字符串為“abcd“。其中函數found的功能是判斷字符串str中是否有字符ch，若有，函數返回True，否則返回False。請填空。
上半年計算機二級考試VB真題 2
一、選擇題
1. 以下合法的VB變量名是（ ）
A. 3a
B. a#3
C. _a3
D. a - 3
答案：C。解析：變量名必須以字母開頭，不能包含特殊字符（除了下劃線），不能是VB中的關鍵字，數字不能開頭。
2. 設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。
3. 以下關于數組的說法中，錯誤的是（ ）
A. 數組是一組具有相同類型的數據的集合
B. 數組的下標從0開始
C. 可以使用Dim語句聲明數組
D. 數組的大小在運行時可以隨意改變
答案：D。解析：數組在聲明后大小通常是固定的，不能隨意改變，除非使用動態數組重新分配內存。
4. 下面程序段運行后，變量x的值為（ ）
x = 0
For i = 1 To 5
x = x + i
Next i
A. 15
B. 10
C. 5
D. 20
答案：A。解析：這是一個簡單的For循環，循環從1到5，每次循環x加上當前的i值，即1 + 2+3 + 4+5 = 15。
5. 在VB中，要使一個文本框具有垂直滾動條，則應（ ）
A. 將其MultiLine屬性設置為True，ScrollBars屬性設置為2
B. 將其MultiLine屬性設置為False，ScrollBars屬性設置為2
C. 將其MultiLine屬性設置為True，ScrollBars屬性設置為0
D. 將其MultiLine屬性設置為False，ScrollBars屬性設置為0
答案：A。解析：文本框的MultiLine屬性設置為True才能顯示多行內容，ScrollBars屬性設置為2 - Vertical（垂直滾動條）才能顯示垂直滾動條。
6. 下列關于函數過程的敘述中，正確的`是（ ）
A. 函數過程形參的類型與函數返回值的類型沒有關系
B. 在函數過程中，過程的返回值可以有多個
C. 當數組作為函數過程的參數時，既能以傳值方式傳遞，也能以引用方式傳遞
D. 如果不指明函數過程參數的類型，則該參數沒有數據類型
答案：A。解析：函數過程的形參類型和返回值類型可以不同；函數過程只能返回一個值；在VB中，數組默認是以引用方式傳遞；如果不指明函數過程參數的類型，VB會根據賦值情況確定類型。
7. 以下關于菜單的說法中，錯誤的是（ ）
A. 每個菜單項都是一個控件，與其他控件一樣也有自己的屬性和事件
B. 除了Click事件之外，菜單項不可以響應其他事件
C. 菜單項的快捷鍵不能任意設置
D. 在程序運行時，如果菜單項的Enabled屬性為False，則該菜單項變成灰色，不能被用戶選擇
答案：C。解析：菜單項的快捷鍵可以在菜單編輯器中進行設置，用戶可以根據需要自定義。
8. 在VB中，為了在運行時把圖形文件picfile.jpg裝入圖片框Picture1，所使用的語句為（ ）
A. Picture1.Picture = "picfile.jpg"
B. Picture1.Image = "picfile.jpg"
C. Picture1.Picture = LoadPicture("picfile.jpg")
D. Picture1.Image = LoadPicture("picfile.jpg")
答案：C。解析：在VB中，使用LoadPicture函數將圖形文件加載到圖片框的Picture屬性中。
二、填空題
1. 表達式Abs(-3.6) * Sqr(100)的值是____。
答案：36。解析：Abs函數返回絕對值，Sqr函數返回平方根，Abs(-3.6)=3.6，Sqr(100) = 10，3.6*10 = 36。
2. 在VB中，若要在一個模塊的多個過程中使用同一個變量，則應在____模塊中聲明該變量。
答案：標準。解析：在標準模塊中聲明的變量可以在多個過程中共享。
3. 以下程序段的功能是：從鍵盤輸入若干個學生的成績，統計并輸出最高成績和最低成績，當輸入負數時結束輸入。請填空。
vb
Dim x As Single,amax As Single,amin As Single
x = InputBox("請輸入成績")
amax = x
amin = x
Do While____
If x > amax Then
amax = x
End If
If____Then
amin = x
End If
x = InputBox("請輸入成績")
Loop
Print "最高成績："; amax, "最低成績："; amin
答案：x >= 0；x < amin。解析：第一個空是循環條件，只要輸入的成績不是負數就繼續循環；第二個空是判斷當前輸入的成績是否小于最小值，如果是則更新最小值。
4. 在VB中，要使標簽Label1的標題文字右對齊，應將其____屬性設置為1 - Right Justify。
答案：Alignment。解析：標簽的Alignment屬性用于設置文本的對齊方式。
5. 以下函數的功能是計算1 + 1/2 + 1/3 +...+ 1/n的值，請填空。
vb
Function sum(n As Integer) As Single
Dim i As Integer
sum = 0
For i = 1 To n
sum = sum +____
Next i
End Function
答案：1 / i。解析：在循環中每次將1/i累加到sum變量中，從而實現計算數列的和。
【上半年計算機二級考試VB真題】相關文章：
全國計算機二級VB考試真題12-05
2016計算機二級考試《VB》真題練習08-11
9月計算機二級考試VB真題10-11
下半年計算機二級VB考試真題12-05
2006年上半年全國計算機等級考試二級VB筆試真題10-02
2012年9月計算機二級考試VB真題11-08
下半年全國計算機二級VB考試真題09-26
2017計算機二級考試VB鞏固題08-30