- 相關推薦
2006年9月全國計算機等級考試二級VB筆試真題
(1)下列選項中不符合良好程序設計風格的是 ( ) 。
A.源程序要文檔化
B.數據說明的次序要規范化
C.避免濫用 goto 語句
D.模塊設計要保證高耦合、高內聚
(2)從工程管理角度，軟件設計一般分為兩步完成，它們是 ( ) 。
A.概要設計與詳細設計
B.數據設計與接口設計
C.軟件結構設計與數據設計
D.過程設計與數據設計
(3)下列選項中不屬于軟件生命周期開發階段任務的是 ( ) 。
A.軟件測試
B.概要設計
C.軟件維護
D.詳細設計
(4)在數據庫系統中，用戶所見的數據模式為 ( ) 。
A.概念模式
B.外模式
C.內模式
D.物理模式
(5)數據庫設計的四個階段是：需求分析、概念設計、邏輯設計和 ( ) 。
A.編碼設計
B.測試階段
C.運行階段
D.物理設計
(6)設有如下三個關系表：
下列操作中正確的是 ( ) 。
(7)下列敘述中正確的是 ( ) 。
A.一個算法的空間復雜度大，則其空間復雜度也必定大
B.一個算法的空間復雜度大，則其時間復雜度必定小
C.一個算法的時間復雜度大，則其空間復雜度必定小
D.上述三種說法都不對
(8)在長度為 64 的有序線性表中進行順序查找，最壞情況下需要比較的次數為 ( ) 。
A.63
B.64
C.6
D.7
(9)數據庫技術的根本目標是要解決數據的 ( ) 。
A.存儲問題
B.共享問題
C.安全問題
D.保護問題
(10)對下列二叉樹：
進行中序遍歷的結果是 ( ) 。
A.ACBDFEG
B.ACBDFGE
C.ABDCGEF
D.FCADBEG
(11)以下敘述中正確的是 ( ) 。
A.窗體的 Name 屬性指定窗體的名稱，用來標識一個窗體
B.窗體的 Name 屬性值是顯示在窗體標題欄中文本
C.可以在運行期間改變窗體的 Name 屬性的值
D.窗體的 Name 屬性值可以為空
(12)以下敘述中錯誤的是 ( ) 。
A.打開一個工程文件時，系統自動裝入與該工程有關的窗體文件
B.保存 Visual Basic 程序時，應分別保存窗體文件及工程文件
C.Visual Basic 應用程序只能以解釋方式執行
D.窗體文件包含該窗體及其控件的屬性
(13)設 a=2,b=3,c=4, 下列表達式的值是 ( ) 。
Not a <= c Or 4*c = b^2 And b <> a+c
A.-1
B.1
C.True
D.False
(14)沒有如下的用戶定義類型：
Type Student
number As String
name As String
A) ge AS Integer
End Type
則以下正確引用該類型成員的代碼是 ( ) 。
A.Student. name= “李明”
B.Dim s As Student
C.Dim s As Type Student
D.Dim s As Type
S.name= “李明” s.name= “李明”
(15)設 a=5,b=6,c=7,d=8 ，執行下列語句后， X 的值為 ( ) 。
X=IIf((a>b)And(c>d),10,20)
A.10
B.20
C.True
D.False
(16)執行以下程序段后，變量 c$ 的值為 ( ) 。
A)$= “ Visual Bassic Programming ”
B)$= “ Quick ” e$=b$&U Case(Mid$(a$,7,6))&Right$(a$,12)
A.Visual Basic Programming
B.Quick Basic programming
C.Quick Basic Programming
D.Quick Basic Programming
(17) 在窗體上畫一個文本框(其名稱為 Textl)和一個標簽(其名稱為 Labell)，程序運行后，如果在文本框中輸入指定的信息，則立即在標簽中顯示相同的內容，以下可以實現上述操作的事件過程是 ( ) 。
A.Private Sub Textl_Click()
B.Private Sub Text1_Change()
Labell.Caption=Textl.Text Labell.Caption=Textl.Text End Sub End Sub
C.Private Sub Labell_Ctrange()
D.Private Sub Labell_Click()
Labell. Caption=Textl.Text Labell.Caption=Textl.Text
End Sub End Sub
(18)在窗體上面畫一個命令按鈕和一個標簽，其名稱分別為 Commandl 和 Labell ，然后編寫如下事件過程：
Private Sub Commandl_Click()
Counter=0
For i=1 To 4
For j=6 To 1 Step -2
Counter=Counter+1
Nextj
Nexti
Labell.Caption=Str(Counter)
End Sub
程序運行后，單擊命令按鈕，標簽中顯示的內容是
A.11
B.12
C.16
D.20
(19)在窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Commandl 的命令按鈕，然后編寫如下事件過程：
Private Commandl_Click()
Dim i As Integer, n As Integer
For i=0 To 50
i = i+3
n = n+1
If i>10Then Exit For
Next
Textl.Text=Str(n)
End Sub
程序運行后，單擊命命令按鈕，在文本框中顯示的值是 ( ) 。
A.5
B.4
C.3
D.2
(20)在窗體上畫一個命令按鈕和兩個標簽，真名和分別為 Commandl 、 Labell 和 Labe12 ，然后編寫如下事件過程：
Private Sub Commandl_Chick.
A) =0
For i=1 To 10
a=a+1
b=0
Forj=1 To 10
a=a+1
b=b+2
Nextj
Next i
Labell. Caption=Str(a)
Labe12.Caption=Str(
B.
End Sub
程序運行后，單擊命令按鈕，在標簽 Labell 和 Labe12 中顯示的內容分別為 ( ) 。
A.10 和 20
B.20 和 110
C.200 和 110
D.110 和 20
(21)在窗體上畫一個名稱為 Listl 的列表框，一個名稱為 Labell 的標簽，列表框中顯示若干城市的名稱。當單擊列表框中的某個城市名時，該城市名從列表框中消失，并在標簽中顯示出來。下列能正確實現上述操作的程序是 ( ) 。
A.Privale Sub Listl_Click()
B.Private Sub Listl_Click()
Labell. Caption=Listl. ListIndex Labell.Name=Listl. ListIndex
Listl. Removeltem Listl.Text Listl.RemoveItem Listl.Text
End Sub End Sub
C.Private Sub Listl_Click()
D.Private Sub Listl_Click()
Labell. Caption=Listl.Text Labell. Name=Listl. Text
Listl. RemovItem Listl. ListIndex Listl. RemoveItem Listl. ListIndex
End Sub End Sub
(22) 在窗體上畫一個名稱為 Commandl 的命令按鈕，然后編寫如下程序：
Private Sub Commandl Click()
Dim i As Integer, j As Integer
Dim a (10,10)As Integer
For i=1 To 3
For j= i To 3
a(i,j)=(i-1)*3+j
Print a (i,j);
Next j
Next i
End Sub
程序運行后，單擊命令按鈕，窗體上顯示的是 ( ) 。
|
A． |
1 |
2 |
3 |
B． |
1 |
2 |
3 |
C． |
1 |
2 |
3 |
D． |
1 |
2 |
3 |
|||
| & |
2 |
4 |
6 |
3 |
4 |
5 |
2 |
5 |
8 |
4 |
5 |
6 |
||||||
|
3 |
6 |
9 |
4 |
5 |
6 |
3 |
6 |
9 |
7 |
8 |
9 |
(23) 在窗體上畫一個命令按鈕，名稱為 Command1, 然后編寫如下代碼：
Option Base 0
Private Sub Command1_Click()
D)im A (4)As Integer,B(4) As Integer
For k=0 To 2
A(k+1)=InputBox(“ 請輸入一個整數 ”)
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序運行后，單擊命令按鈕，在輸入對話框中分別輸入 2 、 4 、 6 ，輸入結果為 ( ) 。
A.0
B.2
C.3
D.4
(24)有以下程序：
Option Base 1
D)im arr() As Integer
Private Sub Form_Click()
D)im i As Integer,j As Integer
ReDim arr(3,2)
For i=1 To 3
For j=1 To 2
arr (i,j)=i*2+j
Next j
Next i
ReDim Preserve arr(1,4)
For j=3 To 4
A) rr(3,j)=j+9
Next j
Print arr(3,2);arr(3,4)
End Sub
程序運行后，單擊窗體，輸出結果為 ( ) 。
A.8 13
B.0 13
C.7 12
D.0 0
(25)以下敘述中正確的是 ( ) 。
A.一個 Sub 過程至少要一個 Exit Sub 語句
B.一個 Sub 過程必須有一個 End Sub 語句
C.可以在 Sub 過程中定義一個 Function 過程，但不能定義 Sub 過程
D.調用一個 Function 過程可以獲得多個返回值
(26)有以下程序：
Sub subp(b()As Integer)
For i=1To4
B.(i)=2-i
Nexti
End Sub
Private Sub Command1_Click()
D.im a (1 To 4)As Integer
A) (1)=5
A) (2)=6
A) (3)=7
A) (4)=8
subpa()
For i=1 To4
Print a (i)
Next i
End Sub
運行上面的程序，單擊命令按鈕，輸出結果為 ( ) 。
A.2 4 6 8
B.5 6 7 8
C.10 12 14 16
D .出錯
(27)設有如下通用過程：
Public Function Fun(xStr As String)
D.im tStr As String, srtL As Integer tStr+””
strL=Len(xStr)
i=1
D.o While i<=strL/2
tStr=tStr &Mid(xStr,i ,1)& Mid (xStr ,strL-i+1,1)
i=i+1
Loop
Fun=tStr
End Function
在窗體上畫一個名稱為 Textl 的文本框和一個名稱為 Command1 的命令按鈕，然后編寫如下的事件過程：
Private Sub Command 1_ Click()
Dim S1 As String
S1=”abcdef”
Text1.Text=UCase(Fun(S1))
End Sub
程序運行后，單擊命令按鈕，則 Text1 中顯示的是 ( ) 。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
(28)在窗體上畫一個名稱為 TxtA 的文本框，然后編寫如下的事件過程：
Private Sub TxtA_KeyPress(KeyAscii As Integer)
……
End Sub
假定焦點已經位一地文本框中，則能夠觸發 KeyPress 事件的操作是
A.單擊鼠標
B.雙擊文本框
C.鼠標滑過文本框
D.按下鍵盤上的某個鍵
(29)在窗體上畫一個命令按鈕和兩上文體，其名稱分別為 Command1 、 Text1 和 Text2 ，然后編寫如下程序：
D)im S1 As String, S2 As String
Private Sub Form_Load()
Text1. Text=””
Text2. Text=””
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
S2=s2 & Chr(KeyCode)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
S1=S1 & chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Text1.Text=S2
Text2.Text=S1
S1= “”
S2= “”
End Sub
程序運行后，在 Text1 中輸入“ abc ”，然后單擊命令按鈕，在文本框 Text1 和 Text2 中顯示的內容分別為 ( ) 。
A.abc 和 ABC
B .abc 和 abc
C.ABC 和 abc
D .ABC 和 ABC
(30)以下說法正確的是 ( ) 。
A.任何時候都可以通過執行“工具”菜單中的“菜單編輯器”命令打開菜單編輯器
B.只有當某個窗體為當前活動窗體時，才能打開菜單編輯器
C.任何時候都可以通過單擊標準工具欄上的“菜單編輯器”按鈕打開菜單編輯器
D.只有當代碼窗品為當前活動窗口時，才能找開菜單編輯器
(31)在窗體上畫一個通用對話框，其名稱為 CommonDialog1 ，然后畫一個命令按鈕，并編寫如下事件過程：
Private Sub Command1_Click()
CommonDialog1. Filter=”All Files(*.*)|*.*Text Files”&_
“(*.txt)|*.txt| Executable Files(*.exe)|*.exe”
CommonDialog1. Filterindex=3
CommonDialog1. Show Open
MsgBox CommonDialog1. FileName
End Sub
程序運行后，單擊命令按鈕，將顯示一個“打開”對話框，此時在“文件類型”框中顯示的是 ( ) 。
A.All Files(*.*)
B.Text files(*.txt)
C.Executable Files(*.ext)
D.不確定
(32)以下敘述錯誤的是
A.一個工程中可以包含多個窗體文件
B.在一個窗體文件中用 Public 定義的通用過程不能被其他窗體調用
C.窗體和標準模塊需要分別保存為不同類型的磁盤文件
D.?用 Dim 定義的窗體層變量只能在該窗體中使用
33 ?以下敘述中錯誤的是()
A.語句“ Dim a, b As Integer ”聲明了兩個整型變量
B.不能在標準模塊中定義 Static 型變量
C.窗體層變量必須先聲明，后使用
D.在事件過程或通用過程內定義的變量是局部變量
34 ?設有語句： Open "d: \ Text.txt" For OutputAs#1 ，以下敘述中錯誤的是()
A.若 d 盤根目錄下無 Text.txt 文件，則該語句創建此文件
B.用該語句建立的文件的文件號為 1
C.該語句打開 d 盤根目錄下一個已存在的文件 Text.txt ，之后就可以從文件中讀取信息
D.執行該語句后，就可以通過 Print# 語句向文件 Text.txt 中寫入信息
35 ?以下敘述中錯誤的是()
A. 順序文件中的數據只能按順序讀寫
B.對同一個文件，可以用不同的方式和不同的文件號打開
C.執行Close 語句，可將文件緩沖區中的數據寫到文件中
D.隨機文件中各記錄的長度是隨機的
二、填空題(每空 2 分，共 30 分)
請將每空的正確答案寫在答題卡【 1 】 ~ 【 15 】序號的橫線上，答在試卷上不得分。
1 ?下列軟件系統結構圖的寬度為【 1 】。
2 ?【 2 】的任務是診斷和改正程序中的錯誤。
3 ?一個關系表的行稱為【 3 】。
4 ?按“先進后出”原則組織數據的數據結構是【 4 】。
5 ?數據結構分為線性結構和非線性結構，帶鏈的隊列屬于【 5 】。
6 ?描述 "X 是小于 100 的非負整數 " 的 Visual Basic 表達式是【 6 】。
7 ?在窗體上有一個名稱為 Command1 的命令按鈕和一個名稱為 Text1 的文本框。程序運行后， Command1 為禁用(灰色)，此時如果在文本框中輸入字符，則命令按鈕 Command1 變為可用。請填空。
Private Sub Form_Load()
C) Ommand1 ? Enabled=False
End Sub
Private Sub Text1_ 【 7 】 ()
C) ommand1 ? Enabled=True
End Sub
8 ?在窗體上畫一個名稱為 "Command1" 的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
D) Im a As String
A) ="123456789"
For i=1 To 5
Print Space(6-i);Mid $ (a, 【 8 】 ,2*i-1)
Next i
End Sub
程序運行后，單擊命令按鈕，窗體上的輸出結果是
5
456
34567
2345678
123456789
請填空。
9 ?以下程序的功能是：將一維組 A 中的 100 個元素分別賦給二維數組 B 的每個元素并打印出來，要求把 A ( 1 )到 A ( 10 )依次賦給 B ( 1 ， 1 )到 B ( 1 ， 10 )，把 A ( 11 )到 A ( 20 )依次賦給 B ( 2 ， 1 )到 B ( 2 ， 10 )，……，把 A ( 91 )到 A ( 100 )依次賦給 B ( 10 ， 1 )到 B ( 10 ， 10 )。請填空。
Option Base 1
Private Sub Form_Click()
D) im i As Integer,j As Integer
D) im A(1 To 100) As Integer
D) im B(1 To 10,1 To 10) As Integer
For i=1 To 100
A) (i)=Int(Rnd * 100)
Next i
For i=1 To 【 9 】
For j=1 To 【 10 】
B) (i,j)= 【 11 】
Print B(i,j);
Next j
Next i
End Sub
10 ?在窗體上畫一個名稱為 Combo1 的組合框，然后畫兩個名稱分別為 Label1 、 Label2 ，標題分別為 " 城市名稱 " 和空白的標簽。程序運行后，在組合框中輸入一個新項目并按回車鍵，如果輸入的項目在組合框的列表中不存在，則自動將其添加到組合框的列表中，并在 Label2 中給出提示 " 已成功添加新輸入頁。 " ，如圖所示。如果輸入的項目已存在，則在 Label2 中給出提示 " 輸入項已在組合框中。 " 。請填空。
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1 ? ListCount-1
If Combo1 ? Text= 【 12 】 Then
Label2 ? Caption=" 輸入項已在組合框中。 "
Exit Sub
End If
Next i
Label2 ? Caption=" 已成功添加新輸入項。 "
C) ombo1 ?【 13 】 Combo1 ? Text
End If
End Sub
11 ?在窗體上畫一個命令按鈕和一個文本框，其名稱分別為 Command1 和 Text1 ，然后編寫如下事件過程：
Private Sub Command1_Click()
D) im inData As String
Text1 ? Text=" "
OPen "d:|| ML ) ||Myfile ? txt" for 【 14 】 As #1
D) o While 【 15 】
Input # 1,inData
Text1 ? Text=Text1 ? Text+inData
Loop
C) lose #1
End Sub
程序的功能是，打開 D 盤根目錄下的文本文件 myfile ? txt, 讀取它的全部內容并顯示在文本框中。請填空
【9月全國計算機等級考試二級VB筆試真題】相關文章：
3月全國計算機等級考試二級VB筆試真題12-05
2006年上半年全國計算機等級考試二級VB筆試真題10-02
全國計算機等級考試二級VB筆試真題參考答案（完整版）11-26
全國計算機等級考試二級C++筆試真題10-11
全國計算機二級VB考試真題12-05
計算機等級考試二級ACCESS筆試真題10-06