2006年9月全國計算機等級考試二級VB筆試真題

相關推薦

　　(1)下列選項中不符合良好程序設計風格的是 (　　) 。

2006年9月全國計算機等級考試二級VB筆試真題

　　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

　　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(

　　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

　　程序運行后，單擊命令按鈕，窗體上的輸出結果是

　　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