全國計算機(jī)等級考試二級VB程序語言設(shè)計及答案

1、全國計算機(jī)等級考試二級筆試樣卷Visual Basic語言程序設(shè)計選擇題（每小題2分，共70分）下列各題A）、B）、C）、D）四個選項(xiàng)中，只有一個選項(xiàng)是正確的。請將正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。（1）下列選項(xiàng)中不符合良好程序設(shè)計風(fēng)格的是A） 源程序要文檔化B） 數(shù)據(jù)說明的次序要規(guī)范化C） 避免濫用goto語句D） 模塊設(shè)計要保證高耦合、高內(nèi)聚（2）從工程管理角度，軟件設(shè)計一般分為兩步完成，它們是A） 概要設(shè)計與詳細(xì)設(shè)計B） 數(shù)據(jù)設(shè)計與接口設(shè)計C） 軟件結(jié)構(gòu)設(shè)計與數(shù)據(jù)設(shè)計D） 過程設(shè)計與數(shù)據(jù)設(shè)計（3）下列選項(xiàng)中不屬于軟件生命周期開發(fā)階段任務(wù)的是 A）軟件測試 B）概要設(shè)計C）

2、軟件維護(hù)D）詳細(xì)設(shè)計（4）在數(shù)據(jù)庫系統(tǒng)中，用戶所見的數(shù)據(jù)模式為 A） 概念模式B）外模式C）內(nèi)模式D）物理模式（5）數(shù)據(jù)庫設(shè)計的四個階段是：需求分析、概念設(shè)計、邏輯設(shè)計和A） 編碼設(shè)計B） 測試階段C）運(yùn)行階段D）物理設(shè)計（6）設(shè)有如下三個關(guān)系表 RSTABCABCm13m13nn13下列操作中正確的是A）TRS B）TRSC）TR×SD）TR/S（7）下列敘述中正確的是 A）一個算法的空間復(fù)雜度大，則其時間復(fù)雜度也必定大 B）一個算法的空間復(fù)雜度大，則其時間復(fù)雜度必定小 C）一個算法的時間復(fù)雜度大，則其空間復(fù)雜度必定小D）上述三種說法都不對（8）在長度為64的有序線性表中進(jìn)行順序查

3、找，最壞情況下需要比較的次數(shù)為A）63 B）64 C）6 D）7（9）數(shù)據(jù)庫技術(shù)的根本目標(biāo)是要解決數(shù)據(jù)的A）存儲問題B）共享問題C）安全問題 D）保護(hù)問題（10）對下列二叉樹FCDEAGB 進(jìn)行中序遍歷的結(jié)果是A）ACBDFEGB）ACBDFGEC）ABDCGEFD）FCADBEG（11）以下敘述中正確的是A）窗體的Name 屬性指定窗體的名稱，用來標(biāo)識一個窗體B）窗體的Name 屬性值是顯示在窗體標(biāo)題欄中的文本C）可以在運(yùn)行期間改變窗體的Name 屬性的值D）窗體的Name 屬性值可以為空（12）以下敘述中錯誤的是A）打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體文件B）保存Visual

4、 Basic程序時，應(yīng)分別保存窗體文件及工程文件C）Visual Basic應(yīng)用程序只能以解釋方式執(zhí)行D）窗體文件包含該窗體及其控件的屬性（13）設(shè)a = 2, b = 3, c = 4, 下列表達(dá)式的值是 Not a <= c Or 4*c = b2 And b <> a + cA）-1B）1C）TrueD）False（14）設(shè)有如下的用戶定義類型： Type Student number As String name As String age As IntegerEnd Type則以下正確引用該類型成員的代碼是A）S = "李明"

5、;B）Dim s As Student = "李明"C）Dim s As Type StudentD）Dim s As Type = "李明" = "李明"（15）設(shè)a = 5，b = 6，c = 7，d = 8，執(zhí)行下列語句后，x的值為 x = IIf(a > b) And (c > d), 10, 20)A）10B）20C）TrueD）False（16）執(zhí)行以下程序段后，變量c$的值為a$ = "Visual Basic Programming"b$ = &

6、quot;Quick"c$ = b$ & UCase(Mid$(a$, 7, 6) & Right$(a$, 12)A）Visual BASIC ProgrammingB）Quick Basic ProgrammingC）QUICK Basic Programming D）Quick BASIC Programming（17）在窗體上畫一個文本框（其名稱為Text1）和一個標(biāo)簽（其名稱為Label1），程序運(yùn)行后，如果在文本框中輸入指定的信息，則立即在標(biāo)簽中顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過程是 A）Private Sub Text1_Click()B）Pr

7、ivate Sub Text1_Change() Label1.Caption = Text1.Text Label1.Caption = Text1.Text End Sub End Sub C）Private Sub Label1_Change()D）Private Sub Label1_Click() Label1.Caption = Text1.Text Label1.Caption = Text1.Text End Sub End Sub（18）在窗體上畫一個命令按鈕和一個標(biāo)簽，其名稱分別為Command1和Label1，然后編寫如下事件過程：Private Sub Command1

8、_Click() Counter = 0 For i = 1 To 4 For j = 6 To 1 Step -2 Counter = Counter + 1 Next j Next i Label1.Caption = Str(Counter)End Sub程序運(yùn)行后，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是A） 11B）12C） 16D）20（19）在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50

9、 i = i + 3 n = n + 1 If i > 10 Then Exit For Next Text1.Text = Str(n)End Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A）5B）4C）3D）2（20）在窗體上畫一個命令按鈕和兩個標(biāo)簽，其名稱分別為Command1、Label1和Label2，然后編寫如下事件過程：Private Sub Command1_Click() a = 0 For i = 1 To 10 a = a + 1 b = 0 For j = 1 To 10 a = a + 1 b = b + 2 Next j Next i Label1.C

10、aption = Str(a） Label2.Caption = Str(b）End Sub 程序運(yùn)行后，單擊命令按鈕，在標(biāo)簽Label1和Label2中顯示的內(nèi)容分別是A）10和20B）20和110C）200和110D）110和20（21）在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的標(biāo)簽，列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個城市名時，該城市名從列表框中消失，并在標(biāo)簽中顯示出來。下列能正確實(shí)現(xiàn)上述操作的程序是 A）Private Sub List1_Click() B）Private Sub List1_Click() Label1.Caption = List

11、1.ListIndex Label1. Name = List1. ListIndex List1.RemoveItem List1.Text List1.RemoveItem List1.Text End Sub End Sub C）Private Sub List1_Click()D）Private Sub List1_Click() Label1.Caption = List1.Text Label1.Name = List1.Text List1.RemoveItem List1.ListIndex List1.RemoveItem List1.ListIndex End Sub En

12、d Sub（22）在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next iEnd Sub程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是 A）1 2 3B）2 3 4C）1 4 7D）1 2 32 4 63 4 52 5 84 5 63 6 94

13、5 63 6 97 8 9（23）在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下代碼：Option Base 0Private Sub Command1_Click() Dim A(4) As Integer,B(4) As Integer For k = 0 To 2 A(k + 1) = InputBox("請輸入一個整數(shù)") B(3 - k) = A(k + 1) Next k Print B(k)End Sub 程序運(yùn)行后，單擊命令按鈕，在輸入對話框中分別輸入2、4、6，輸出結(jié)果為A）0B）2C）3D）4（24）有以下程序：Option Base 1D

14、im arr() As IntegerPrivate Sub Form_Click() Dim 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(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2); arr(3, 4)End Sub 程序運(yùn)行后，單擊窗體，輸出結(jié)果為A）8 13B）0 13C）7 12D）0 0（25）以

15、下敘述中正確的是A）一個Sub過程至少要有一個Exit Sub語句B）一個Sub過程必須有一個End Sub語句C）可以在Sub過程中定義一個Function過程，但不能定義Sub過程D）調(diào)用一個Function過程可以獲得多個返回值（26）有以下程序： Sub subP(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5 a(2) = 6 a(3) = 7 a(4) = 8 subP a() For i

16、 = 1 To 4 Print a(i) Next i End Sub 運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為 A）2B）5C）10D）出錯461267148816（27）設(shè)有如下通用過程：Public Function Fun(xStr As String) As String Dim tStr As String, strL As Integer tStr = "" strL = Len(xStr) i = 1 Do While i <= strL / 2 tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, str

17、L - i + 1, 1) i = i + 1 Loop Fun = tStrEnd Function在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕。然后編寫如下的事件過程：Private Sub Command1_Click() Dim S1 As String S1 = "abcdef" Text1.Text = UCase(Fun(S1)End Sub程序運(yùn)行后，單擊命令按鈕，則Text1中顯示的是A）ABCDEFB）abcdefC）AFBECDD）DEFABC（28）在窗體上畫一個名稱為TxtA的文本框，然后編寫如下的事件過程： Pri

18、vate Sub TxtA_KeyPress(KeyAscii As Integer) . End Sub假定焦點(diǎn)已經(jīng)位于文本框中，則能夠觸發(fā)KeyPress事件的操作是A）單擊鼠標(biāo)B）雙擊文本框C）鼠標(biāo)滑過文本框D）按下鍵盤上的某個鍵（29）在窗體上畫一個命令按鈕和兩個文本框，其名稱分別為Command1、Text1和Text2，然后編寫如下程序：Dim S1 As String, S2 As StringPrivate Sub Form_Load() Text1.Text = "" Text2.Text = ""End SubPrivate Sub

19、Text1_KeyDown(KeyCode As Integer, Shift As Integer) S2 = S2 & Chr(KeyCode)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) S1 = S1 & Chr(KeyAscii)End SubPrivate Sub Command1_Click() Text1.Text = S2 Text2.Text = S1 S1 = "" S2 = ""End Sub程序運(yùn)行后，在Text1中輸入“abc”，然后單擊命令按鈕，

20、在文本框Text1和Text2中顯示的內(nèi)容分別為A）abc和ABCB）abc和abcC）ABC和abcD）ABC和ABC（30）以下說法中正確的是 A）任何時候都可以通過執(zhí)行“工具”菜單中的“菜單編輯器”命令打開菜單編輯器 B）只有當(dāng)某個窗體為當(dāng)前活動窗體時，才能打開菜單編輯器 C）任何時候都可以通過單擊標(biāo)準(zhǔn)工具欄上的“菜單編輯器”按鈕打開菜單編輯器 D）只有當(dāng)代碼窗口為當(dāng)前活動窗口時，才能打開菜單編輯器（31）在窗體上畫一個通用對話框，其名稱為CommonDialog1，然后畫一個命令按鈕，并編寫如下事件過程：Private Sub Command1_Click() CommonDialog

21、1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt| Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex = 3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileNameEnd Sub程序運(yùn)行后，單擊命令按鈕，將顯示一個“打開”對話框，此時在“文件類型”框中顯示的是A）All Files(*.*)B）Text Files(*.txt)C）Executable Fil

22、es(*.exe)D）不確定（32）以下敘述中錯誤的是 A）一個工程中可以包含多個窗體文件 B）在一個窗體文件中用Public定義的通用過程不能被其他窗體調(diào)用 C）窗體和標(biāo)準(zhǔn)模塊需要分別保存為不同類型的磁盤文件 D）用Dim定義的窗體層變量只能在該窗體中使用（33）以下敘述中錯誤的是 A）語句“Dim a, b As Integer”聲明了兩個整型變量 B）不能在標(biāo)準(zhǔn)模塊中定義Static型變量 C）窗體層變量必須先聲明，后使用 D）在事件過程或通用過程內(nèi)定義的變量是局部變量（34）設(shè)有語句：Open "d:Test.txt" For Output As #1 ，以下敘述中

23、錯誤的是 A）若d盤根目錄下無Test.txt文件，則該語句創(chuàng)建此文件 B）用該語句建立的文件的文件號為1 C）該語句打開d盤根目錄下一個已存在的文件Test.txt，之后就可以從文件中讀取信息 D）執(zhí)行該語句后，就可以通過Print #語句向文件Test.txt中寫入信息（35）以下敘述中錯誤的是A）順序文件中的數(shù)據(jù)只能按順序讀寫B(tài)）對同一個文件，可以用不同的方式和不同的文件號打開 C）執(zhí)行Close語句，可將文件緩沖區(qū)中的數(shù)據(jù)寫到文件中D）隨機(jī)文件中各記錄的長度是隨機(jī)的二、填空題（每空2分，共30分）請將每空的正確答案寫在答題卡【1】【15】序號的橫線上，答在試卷上不得分。（1）下列軟件系

24、統(tǒng)結(jié)構(gòu)圖的寬度為 【1】 。（2） 【2】 的任務(wù)是診斷和改正程序中的錯誤。（3）一個關(guān)系表的行稱為 【3】 。（4）按“先進(jìn)后出”原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是 【4】 。（5）數(shù)據(jù)結(jié)構(gòu)分為線性結(jié)構(gòu)和非線性結(jié)構(gòu)，帶鏈的隊列屬于 【5】 。（6）描述“X是小于100的非負(fù)整數(shù)”的Visual Basic表達(dá)式是 【6】 。（7）在窗體上有一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框。程序運(yùn)行后，Command1為禁用（灰色），此時如果在文本框中輸入字符，則命令按鈕Command1變?yōu)榭捎?。請?zhí)羁铡rivate Sub Form_Load() Command1.Enabled

25、= FalseEnd SubPrivate Sub Text1_ 【7】 () Command1.Enabled = TrueEnd Sub（8）在窗體上畫一個名稱為“Command1”的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim a As String a = "123456789" For i = 1 To 5 Print Space(6 - i); Mid$(a, 【8】 , 2 * i - 1) Next iEnd Sub程序運(yùn)行后，單擊命令按鈕，窗體上的輸出結(jié)果是 5 456 34567 2345678 123

26、456789請?zhí)羁?。?）以下程序的功能是：將一維數(shù)組A中的100個元素分別賦給二維數(shù)組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)。請?zhí)羁?。Option Base 1Private Sub Form_Click() Dim i As Integer, j As Integer Dim A(1 To 100) As Integer Dim 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) =