©無(wú)憂考網(wǎng)為大家收集整理了《2006年3月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB語(yǔ)言筆試試題及答案》供大家參考，希望對(duì)大家有所幫助�。�！

(1)下列選項(xiàng)中不符合良好程序設(shè)計(jì)風(fēng)格的是 （　�。� 。 　　A．源程序要文檔化 　　B．?dāng)?shù)據(jù)說(shuō)明的次序要規(guī)范化 　　C．避免濫用 goto 語(yǔ)句 　　D．模塊設(shè)計(jì)要保證高耦合、高內(nèi)聚 (2)從工程管理角度，軟件設(shè)計(jì)一般分為兩步完成，它們是 （　　） 。 　　A．概要設(shè)計(jì)與詳細(xì)設(shè)計(jì) 　　B．?dāng)?shù)據(jù)設(shè)計(jì)與接口設(shè)計(jì) 　　C．軟件結(jié)構(gòu)設(shè)計(jì)與數(shù)據(jù)設(shè)計(jì) 　　D．過(guò)程設(shè)計(jì)與數(shù)據(jù)設(shè)計(jì) (3)下列選項(xiàng)中不屬于軟件生命周期開(kāi)發(fā)階段任務(wù)的是 （　�。� 。 　　A．軟件測(cè)試 　　B．概要設(shè)計(jì) 　　C．軟件維護(hù) 　　D．詳細(xì)設(shè)計(jì) (4)在數(shù)據(jù)庫(kù)系統(tǒng)中，用戶所見(jiàn)的數(shù)據(jù)模式為 （　�。� 。 　　A．概念模式 　　B．外模式 　　C．內(nèi)模式 　　D．物理模式 (5)數(shù)據(jù)庫(kù)設(shè)計(jì)的四個(gè)階段是：需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)和 （　�。� 。 　　A．編碼設(shè)計(jì) 　　B．測(cè)試階段 　　C．運(yùn)行階段 　　D．物理設(shè)計(jì) (6)設(shè)有如下三個(gè)關(guān)系表： 下列操作中正確的是 （　�。� 。 (7)下列敘述中正確的是 （　�。� 。 　　A．一個(gè)算法的空間復(fù)雜度大，則其空間復(fù)雜度也必定大 　　B．一個(gè)算法的空間復(fù)雜度大，則其時(shí)間復(fù)雜度必定小 　　C．一個(gè)算法的時(shí)間復(fù)雜度大，則其空間復(fù)雜度必定小 　　D．上述三種說(shuō)法都不對(duì) (8)在長(zhǎng)度為 64 的有序線性表中進(jìn)行順序查找，最壞情況下需要比較的次數(shù)為 （　　） 。 　　A．63 　　B．64 　　C．6 　　D．7 (9)數(shù)據(jù)庫(kù)技術(shù)的根本目標(biāo)是要解決數(shù)據(jù)的 （　�。� 。 　　A．存儲(chǔ)問(wèn)題 　　B．共享問(wèn)題 　　C．安全問(wèn)題 　　D．保護(hù)問(wèn)題 (10)對(duì)下列二叉樹(shù)： 進(jìn)行中序遍歷的結(jié)果是 （　�。� 。 　　A．ACBDFEG 　　B．ACBDFGE 　　C．ABDCGEF 　　D．FCADBEG (11)以下敘述中正確的是 （　�。� 。 　　A．窗體的 Name 屬性指定窗體的名稱，用來(lái)標(biāo)識(shí)一個(gè)窗體 　　B．窗體的 Name 屬性值是顯示在窗體標(biāo)題欄中文本 　　C．可以在運(yùn)行期間改變窗體的 Name 屬性的值 　　D．窗體的 Name 屬性值可以為空 (12)以下敘述中錯(cuò)誤的是 （　�。� 。 　　A．打開(kāi)一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體文件 　　B．保存 Visual Basic 程序時(shí)，應(yīng)分別保存窗體文件及工程文件 　　C．Visual Basic 應(yīng)用程序只能以解釋方式執(zhí)行 　　D．窗體文件包含該窗體及其控件的屬性 (13)設(shè) a=2,b=3,c=4, 下列表達(dá)式的值是 （　�。� 。 　　Not a <= c Or 4*c = b^2 And b <> a+c 　　A．-1 　　B．1 　　C．True 　　D．False (14)沒(méi)有如下的用戶定義類型： 　　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)設(shè) a=5,b=6,c=7,d=8 ，執(zhí)行下列語(yǔ)句后， X 的值為 （　�。� 。 X=IIf((a>b)And(c>d),10,20) 　　A．10 　　B．20 　　C．True 　　D．False (16)執(zhí)行以下程序段后，變量 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) 在窗體上畫(huà)一個(gè)文本框（其名稱為 Textl)和一個(gè)標(biāo)簽（其名稱為 Labell)，程序運(yùn)行后，如果在文本框中輸入指定的信息，則立即在標(biāo)簽中顯示相同的內(nèi)容，以下可以實(shí)現(xiàn)上述操作的事件過(guò)程是 （　�。� 。 　　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)在窗體上面畫(huà)一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為 Commandl 和 Labell ，然后編寫(xiě)如下事件過(guò)程： 　　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 　　程序運(yùn)行后，單擊命令按鈕，標(biāo)簽中顯示的內(nèi)容是 　　A．11 　　B．12 　　C．16 　　D．20 (19)在窗體上畫(huà)一個(gè)名稱為 Text1 的文本框和一個(gè)名稱為 Commandl 的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 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 程序運(yùn)行后，單擊命命令按鈕，在文本框中顯示的值是 （　　） 。 　　A．5 　　B．4 　　C．3 　　D．2 (20)在窗體上畫(huà)一個(gè)命令按鈕和兩個(gè)標(biāo)簽，真名和分別為 Commandl 、 Labell 和 Labe12 ，然后編寫(xiě)如下事件過(guò)程： 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 程序運(yùn)行后，單擊命令按鈕，在標(biāo)簽 Labell 和 Labe12 中顯示的內(nèi)容分別為 （　�。� 。 　　A．10 和 20 　　B．20 和 110 　　C．200 和 110 　　D．110 和 20 (21)在窗體上畫(huà)一個(gè)名稱為 Listl 的列表框，一個(gè)名稱為 Labell 的標(biāo)簽，列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，該城市名從列表框中消失，并在標(biāo)簽中顯示出來(lái)。下列能正確實(shí)現(xiàn)上述操作的程序是 （　�。� 。 　　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) 在窗體上畫(huà)一個(gè)名稱為 Commandl 的命令按鈕，然后編寫(xiě)如下程序： 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 Print Next i End Sub 程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是 （　�。� 。

　　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) 在窗體上畫(huà)一個(gè)命令按鈕，名稱為 Command1, 然后編寫(xiě)如下代碼： 　　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(“ 請(qǐng)輸入一個(gè)整數(shù) ”) 　　B(3-k)=A(k+1) 　　Next k 　　Print B(k) 　　End Sub 程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸入 2 、 4 、 6 ，輸入結(jié)果為 （　�。� 。 　　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 程序運(yùn)行后，單擊窗體，輸出結(jié)果為 （　�。� 。 　　A．8 13 　　B．0 13 　　C．7 12 　　D．0 0 (25)以下敘述中正確的是 （　　） 。 　　A．一個(gè) Sub 過(guò)程至少要一個(gè) Exit Sub 語(yǔ)句 　　B．一個(gè) Sub 過(guò)程必須有一個(gè) End Sub 語(yǔ)句 　　C．可以在 Sub 過(guò)程中定義一個(gè) Function 過(guò)程，但不能定義 Sub 過(guò)程 　　D．調(diào)用一個(gè) Function 過(guò)程可以獲得多個(gè)返回值 (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 運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為 （　�。� 。 　　A．2 4 6 8 　　B．5 6 7 8 　　C．10 12 14 16 　　D ．出錯(cuò) (27)設(shè)有如下通用過(guò)程： 　　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 在窗體上畫(huà)一個(gè)名稱為 Textl 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫(xiě)如下的事件過(guò)程： Private Sub Command 1_ Click() Dim S1 As String S1=”abcdef” Text1.Text=UCase(Fun(S1)) End Sub 程序運(yùn)行后，單擊命令按鈕，則 Text1 中顯示的是 （　�。� 。 　　A．ABCDEF 　　B．a(chǎn)bcdef 　　C．AFBECD 　　D．DEFABC (28)在窗體上畫(huà)一個(gè)名稱為 TxtA 的文本框，然后編寫(xiě)如下的事件過(guò)程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦點(diǎn)已經(jīng)位一地文本框中，則能夠觸發(fā) KeyPress 事件的操作是 　　A．單擊鼠標(biāo) 　　B．雙擊文本框 　　C．鼠標(biāo)滑過(guò)文本框 　　D．按下鍵盤(pán)上的某個(gè)鍵 (29)在窗體上畫(huà)一個(gè)命令按鈕和兩上文體，其名稱分別為 Command1 、 Text1 和 Text2 ，然后編寫(xiě)如下程序： 　　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 程序運(yùn)行后，在 Text1 中輸入“ abc ”，然后單擊命令按鈕，在文本框 Text1 和 Text2 中顯示的內(nèi)容分別為 （　�。� 。 　　A．a(chǎn)bc 和 ABC 　　B ．a(chǎn)bc 和 abc 　　C．ABC 和 abc 　　D ．ABC 和 ABC (30)以下說(shuō)法正確的是 （　�。� 。 　　A．任何時(shí)候都可以通過(guò)執(zhí)行“工具”菜單中的“菜單編輯器”命令打開(kāi)菜單編輯器 　　B．只有當(dāng)某個(gè)窗體為當(dāng)前活動(dòng)窗體時(shí)，才能打開(kāi)菜單編輯器 　　C．任何時(shí)候都可以通過(guò)單擊標(biāo)準(zhǔn)工具欄上的“菜單編輯器”按鈕打開(kāi)菜單編輯器 　　D．只有當(dāng)代碼窗品為當(dāng)前活動(dòng)窗口時(shí)，才能找開(kāi)菜單編輯器 (31)在窗體上畫(huà)一個(gè)通用對(duì)話框，其名稱為 CommonDialog1 ，然后畫(huà)一個(gè)命令按鈕，并編寫(xiě)如下事件過(guò)程： 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 程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開(kāi)”對(duì)話框，此時(shí)在“文件類型”框中顯示的是 （　�。� 。 　　A．All Files(*.*) 　　B．Text files(*.txt) 　　C．Executable Files(*.ext) 　　D．不確定 (32)以下敘述錯(cuò)誤的是 　　A．一個(gè)工程中可以包含多個(gè)窗體文件 　　B．在一個(gè)窗體文件中用 Public 定義的通用過(guò)程不能被其他窗體調(diào)用 　　C．窗體和標(biāo)準(zhǔn)模塊需要分別保存為不同類型的磁盤(pán)文件 　　D．�庇� Dim 定義的窗體層變量只能在該窗體中使用 33 �币韵聰⑹鲋绣e(cuò)誤的是（） 　　A．語(yǔ)句“ Dim a, b As Integer ”聲明了兩個(gè)整型變量 　　B．不能在標(biāo)準(zhǔn)模塊中定義 Static 型變量 　　C．窗體層變量必須先聲明，后使用 　　D．在事件過(guò)程或通用過(guò)程內(nèi)定義的變量是局部變量 34 �痹O(shè)有語(yǔ)句： Open "d: ＼ Text.txt" For OutputAs#1 ，以下敘述中錯(cuò)誤的是（） 　　A．若 d 盤(pán)根目錄下無(wú) Text.txt 文件，則該語(yǔ)句創(chuàng)建此文件 　　B．用該語(yǔ)句建立的文件的文件號(hào)為 1 　　C．該語(yǔ)句打開(kāi) d 盤(pán)根目錄下一個(gè)已存在的文件 Text.txt ，之后就可以從文件中讀取信息 　　D．執(zhí)行該語(yǔ)句后，就可以通過(guò) Print# 語(yǔ)句向文件 Text.txt 中寫(xiě)入信息 35 �币韵聰⑹鲋绣e(cuò)誤的是（） 　　A． 順序文件中的數(shù)據(jù)只能按順序讀寫(xiě) 　　B．對(duì)同一個(gè)文件，可以用不同的方式和不同的文件號(hào)打開(kāi) 　　C．執(zhí)行Close 語(yǔ)句，可將文件緩沖區(qū)中的數(shù)據(jù)寫(xiě)到文件中 　　D．隨機(jī)文件中各記錄的長(zhǎng)度是隨機(jī)的 二、填空題（每空 2 分，共 30 分） 請(qǐng)將每空的正確答案寫(xiě)在答題卡【 1 】 ~ 【 15 】序號(hào)的橫線上，答在試卷上不得分。 1 �毕铝熊浖�系統(tǒng)結(jié)構(gòu)圖 的寬度為【 1 】。

2 �薄� 2 】的任務(wù)是診斷和改正程序中的錯(cuò)誤。

3 �币粋�(gè)關(guān)系表的行稱為【 3 】。

4 �卑础跋冗M(jìn)后出”原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是【 4 】。

5 �睌�(shù)據(jù)結(jié)構(gòu)分為線性結(jié)構(gòu)和非線性結(jié)構(gòu)，帶鏈的隊(duì)列屬于【 5 】。

6 �泵枋� "X 是小于 100 的非負(fù)整數(shù) " 的 Visual Basic 表達(dá)式是【 6 】。

7 �痹诖绑w上有一個(gè)名稱為 Command1 的命令按鈕和一個(gè)名稱為 Text1 的文本框。程序運(yùn)行后， Command1 為禁用（灰色），此時(shí)如果在文本框中輸入字符，則命令按鈕 Command1 變?yōu)榭捎�。�?qǐng)?zhí)羁铡?Private Sub Form_Load() C) Ommand1 �� Enabled=False End Sub Private Sub Text1_ 【 7 】 () C) ommand1 �� Enabled=True End Sub

8 �痹诖绑w上畫(huà)一個(gè)名稱為 "Command1" 的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 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 程序運(yùn)行后，單擊命令按鈕，窗體上的輸出結(jié)果是 5 456 34567 2345678 123456789 請(qǐng)?zhí)羁铡?

9 �币韵鲁绦虻墓δ苁牵簩⒁痪S組 A 中的 100 個(gè)元素分別賦給二維數(shù)組 B 的每個(gè)元素并打印出來(lái)，要求把 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 ）。請(qǐng)?zhí)羁铡?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 Print Next i End Sub

10 �痹诖绑w上畫(huà)一個(gè)名稱為 Combo1 的組合框，然后畫(huà)兩個(gè)名稱分別為 Label1 、 Label2 ，標(biāo)題分別為 " 城市名稱 " 和空白的標(biāo)簽。程序運(yùn)行后，在組合框中輸入一個(gè)新項(xiàng)目并按回車鍵，如果輸入的項(xiàng)目在組合框的列表中不存在，則自動(dòng)將其添加到組合框的列表中，并在 Label2 中給出提示 " 已成功添加新輸入頁(yè)。 " ，如圖所示。如果輸入的項(xiàng)目已存在，則在 Label2 中給出提示 " 輸入項(xiàng)已在組合框中。 " 。請(qǐng)?zhí)羁铡?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=" 輸入項(xiàng)已在組合框中。 " Exit Sub End If Next i Label2 �� Caption=" 已成功添加新輸入項(xiàng)。 " C) ombo1 �薄� 13 】 Combo1 �� Text End If End Sub

11 �痹诖绑w上畫(huà)一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為 Command1 和 Text1 ，然后編寫(xiě)如下事件過(guò)程： 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 程序的功能是，打開(kāi) D 盤(pán)根目錄下的文本文件 myfile �� txt, 讀取它的全部?jī)?nèi)容并顯示在文本框中。請(qǐng)?zhí)羁?一、選擇題

1 �� D 解析：模塊設(shè)計(jì)要保證低耦合，高內(nèi)聚。

2 �� A 解析：從技術(shù)觀點(diǎn)來(lái)看，軟件設(shè)計(jì)包括軟件結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)設(shè)計(jì)、接口設(shè)計(jì)、過(guò)程設(shè)計(jì)。從工程管理角度，軟件設(shè)計(jì)分為兩步完成：概要設(shè)計(jì)和詳細(xì)設(shè)計(jì)。

3 �� C 解析：軟件維護(hù)屬于軟件生命周期的維護(hù)階段。

4 �� B 解析：外模式是用戶的數(shù)據(jù)視圖，就是用戶所見(jiàn)到的數(shù)據(jù)模式。

5 �� D

6 �� C

7 �� D

8 �� B

9 �� B

10 �盇

11 �盇 解析：窗體的 Caption 屬性值是顯示在窗體標(biāo)題欄中的文本；窗體的 Name 屬性是只讀屬性，即只可以通過(guò)屬性窗口改變屬性值，在運(yùn)行時(shí)能改變； Name 屬性值不能為空。

12 �盋 解析：在 Visual Basic 環(huán)境中，程序可以用解釋方式運(yùn)行，也可以生成可執(zhí)行文件�� EXE 運(yùn)行。

13 �盌 解析：此題考察的是運(yùn)算符的優(yōu)先級(jí)別。根據(jù)表達(dá)式的執(zhí)行順序和運(yùn)算符的優(yōu)先級(jí)別，原式可以寫(xiě)成：（ Not(a<=c) ） Or (((4 * c)=(b ^ 2)) AnD (b<>(a+c))) 我們可以在計(jì)算機(jī)上用以下代碼運(yùn)行驗(yàn)證：

Private Sub Form_Click()

a=2

b=3 c=4

Print (Not a <= c Or 4 * c=b ^ 2 AnD b <> a+c)

EnD Sub

14 �� B 解析：題目中所給出的是用戶自定義類型，在這里要注意新類型的名稱是 StuDent ，所以選項(xiàng) C 、 D 均不正確；我們知道對(duì)于類型成員的引用是：對(duì)象、屬性（方法），所以 A 不正確。

15 �� D 解析： IIf(expr,truepart,falsepart) 根據(jù)表達(dá)式的值，來(lái)返回兩部分中的其中一個(gè)；由于表達(dá)式的條件部分運(yùn)算結(jié)果為“ True AnD False ”，所以無(wú)法判斷返回值，輸出結(jié)果為 False 。我們可以在計(jì)算機(jī)上用以下代碼運(yùn)行驗(yàn)證：

Private Sub Form_Click()

a=5

b=6

c=7

D=8

Print x=IIf((a>b) AnD (c

EnD Sub

16 �� D 解析： MiD(string,start\[, length\]) 返回 Variant (String), 其中包含字符串指定數(shù)量的字符；

Right (string, length) 返回 Variant (String) ，其中包含從字符串右邊取出的指定數(shù)量的字符；

UCase(String) 返回 Variant (String) ，其中包含轉(zhuǎn)成大寫(xiě)的字符串；

我們可以在計(jì)算機(jī)上用以下代碼運(yùn)行驗(yàn)證：

Private Sub Form_Click()

a$="Visual Basic Programming"

b$="Quick"

Print b$ & UCase (MiD$ (a$,7,6)) & Right$(a$,12)

EnD Sub

17 �� B 解析：此題考察的是控鍵的常用事件；

Change 事件在用戶向文本框中輸入新信息，或當(dāng)程序把 Text 屬性設(shè)置為新值從而改變文本框的 Text 屬性時(shí)觸發(fā)，用戶每鍵入一個(gè)字符，會(huì)引發(fā)一次該事件；

Click 事件是用戶鼠標(biāo)單擊文本框時(shí)觸發(fā)；

18 �� B 解析：此題考察的是循環(huán)的嵌套， Counter 的初始值為 0 ，

當(dāng) I=1 時(shí)，進(jìn)入內(nèi)層循環(huán)，內(nèi)層循環(huán)語(yǔ)句執(zhí)行完畢后， Counter 的值為 3 ；

當(dāng) I=2 時(shí)，進(jìn)入內(nèi)層循環(huán)時(shí)， Counter 的值仍為 3 ，內(nèi)層循環(huán)語(yǔ)句執(zhí)行完畢后， Counter 的值為 6 ；以此類推，程序全部執(zhí)行完畢， Counter 的值為 12 。

19 �� C 解析：在此題中要注意 Exit For 語(yǔ)句，該語(yǔ)句是跳出循環(huán)體，變量 n 記錄循環(huán)執(zhí)行次數(shù)。由于循環(huán)跳出的條件是 I>10 ，而 I 的步長(zhǎng)為 3 ，所以循環(huán)只執(zhí)行了 3 次。

20 �� D 解析：此題考察的仍然是循環(huán)的嵌套，要注意變量 a 和 b 的變化時(shí)機(jī)。

21 �� C 解析：列表框的 Text 屬性值為最后一次選中的表項(xiàng)的文本；列表框的 List InDex 屬性是已選中的表項(xiàng)的位置。

22 �� D

23 �� B 解析： A （ 0 ） =2,A(1)=4,A(2)=6;B(2)=A(0)=2,B(1)=A(1)=4,B(0)=A(2)=6 。

24 �� B 解析：此題考察的是動(dòng)態(tài)數(shù)組，在通用中定義的數(shù)組，我們并沒(méi)有給它界定范圍，也沒(méi)有賦初值，在過(guò)程中用 ReDim 語(yǔ)句具體定義數(shù)組，此題中要分清兩個(gè)數(shù)組的界限。

25 �� B 解析：在 Sub 過(guò)程定義中 Exit Sub 語(yǔ)句是可選的，但不是必需的，是否需要要根據(jù)情況而定；

在 Sub 過(guò)程內(nèi)，不能定義 Sub 過(guò)程或 Function 過(guò)程，且 Sub 過(guò)程不能嵌套； Founction 過(guò)程只能返回一個(gè)值。

26 �� A 解析： Sub 過(guò)程的調(diào)用，注意變量的作用域：

Dim a(1 To 4) As Integer

a(1)=5

a(2)=6

a(3)=7

a(4)=8

語(yǔ)句是在過(guò)程內(nèi)部定義的，屬于局部變量，只在定義它的過(guò)程中使用，所以運(yùn)行結(jié)果不受以上程序段的影響。

27 �� C 解析： Len(string | varname) 返回 Long, 其中包含字符串內(nèi)字符的數(shù)目，或是存儲(chǔ)一變量所需的字節(jié)數(shù)；

28 �� D 解析： KeyPress 事件是在壓下鍵盤(pán)上的某個(gè)鍵時(shí)觸發(fā)。

29 �� C 解析： Chr(charcoDe) 返回 String ，其中包含有與指定的字符代碼相關(guān)的字符。

控件的 KeyPress 事件的 KeyAscii 參數(shù)是所按鍵的 ASCII 碼；

控件的 KeyDown 事件的 KeyCoDe 是按鍵的實(shí)際的 ASCII 碼，該碼以“鍵”為主，而不是以“字符”為準(zhǔn)。

30 �� B

31 �� C 解析：文件對(duì)話框的 Filter 屬性用來(lái)指定在對(duì)話框中顯示的文件類型；文件對(duì)話框的 FilterInDex 屬性用來(lái)指定默認(rèn)的過(guò)濾器，注意 FilterInDex 屬性的最小值為 1 。

32 �� B 解析：用 Public 短語(yǔ)定義的通用過(guò)程是公有過(guò)程，可以在程序的任何地方調(diào)用。如果當(dāng)前窗體要調(diào)用其他窗體中的公有過(guò)程，要加上那個(gè)窗體的窗體名作為前綴。

33 �� A 解析：當(dāng)在一個(gè) Dim 語(yǔ)句中定義多個(gè)變量時(shí)，每個(gè)變量都要用 As 子句聲明其類型，否則該變量被看作變體類型。

34 �� C

35 �� D 解析：隨機(jī)文件的記錄是定長(zhǎng)記錄。

二、填空題

1 �薄� 1 】 3

解析：在程序結(jié)構(gòu)圖的有關(guān)術(shù)語(yǔ)中，寬度的概念是：整體控制跨度，即各層中所含的模塊數(shù)的值，由圖可得此軟件系統(tǒng)結(jié)構(gòu)圖的寬度為 3 。

2 �薄� 2 】程序調(diào)試

解析：在完成對(duì)程序的測(cè)試之后將進(jìn)行程序調(diào)試。程序調(diào)試的任務(wù)是診斷和改正程序中的錯(cuò)誤。

3 �薄� 3 】元組

解析：在關(guān)系中，水平方向的行稱為元組，垂直方向的列稱為屬性，每一列有一個(gè)屬性名。

4 �薄� 4 】棧

解析：棧是限定只在一端進(jìn)行插入和刪除操作的線性表，通常稱插入、刪除的這一端為棧頂，另一端為棧底。棧按照“先進(jìn)后出”或“后進(jìn)先出”的原則組織數(shù)據(jù)。

5 �薄� 5 】線性結(jié)構(gòu)

解析：與棧類似，隊(duì)列也是線性表，可以采用鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)。所以帶鏈的隊(duì)列屬于線性結(jié)構(gòu)。

6 �薄� 6 】 X ％ >=0 anD X ％ <100

解析：可以用類型聲明符聲明變量類型，下面是常用類型及其類型說(shuō)明符：整塑％ 長(zhǎng)整型＆單精度浮點(diǎn)數(shù) ! 雙精度浮點(diǎn)數(shù) # 貨幣型 @ 字符串型 $

本題要在這個(gè)表達(dá)式中體現(xiàn)出 3 個(gè)重點(diǎn)。第 1 點(diǎn)是小于 100 ，可寫(xiě)成“ <100 ”；第 2 點(diǎn)是非負(fù)，可用“ >=0 來(lái)表示”；最后 1 點(diǎn)要體現(xiàn)出 X 是整數(shù)，所以可在變量 X 后面加一個(gè)百分號(hào)“％”。

7 �薄� 7 】 Change

解析：每當(dāng)用戶修改或通過(guò)代碼修改文本框中的文本內(nèi)容時(shí)，將觸發(fā)其 Change 事件。通過(guò)該事件可通知程序何時(shí)修改了文本框的文本，可以使用該事件隨時(shí)獲得文本框的文本，并更新數(shù)據(jù)、同步其他控件顯示等。

8 �薄� 8 】 6-i

解析： MiD $( 字符串，起始位置 \[ ，個(gè)數(shù) \]) 函數(shù)用于取出字符串從指定位置開(kāi)始的含指定個(gè)數(shù)字符的字符串。本題 MiD $ 的作用在于依次取出字符串居中位置的 1 、 3 、 5 、 7 、 9 個(gè)字符。故取字符串起始位置為 6-i ，即依次為 5 、 4 、 3 、 2 、 1 。

9 �薄� 9 】 10

【 10 】 10

【 11 】 A((i-1)*10+j)

解析：根據(jù)題意，在嵌套循環(huán)中， i 為外循環(huán)變量 , 循環(huán)次數(shù)為 10 次，控制數(shù)組 B 的行值， j 為內(nèi)循環(huán)變量．循環(huán)次數(shù)為 10 次，決定著數(shù)組 B 的列值，然后根據(jù)數(shù)組下標(biāo)的關(guān)系，可寫(xiě)出 (i-1)*10+j 表達(dá)式 , 從而相應(yīng)地對(duì)數(shù)組 B 進(jìn)行賦值。二維數(shù)組 B 的元素與一維數(shù)組 A 的元素存在這樣的對(duì)應(yīng)關(guān)系： B(i ， j)=A((i-1)*10+j) ，如 B(1 ， 1)=A(1) 、 B(2 ， 1)=A(11) 、 B(10 ， 1)=A(91) 。

10 �薄� 12 】 Combo1 ． List(i)

【 13 】 ADDItem

解析：組合框中的 List 屬性用來(lái)列出表項(xiàng)的內(nèi)容。該屬性保存了列表框中所有數(shù)組的值，可以通過(guò)下標(biāo)訪問(wèn)數(shù)組中的值 ( 下標(biāo)從 0 開(kāi)始 ) ，其格式為： \[ 組合框． \]List( 下標(biāo) ) ，特別注意的是“下標(biāo)”相當(dāng)于索引值，指示著表項(xiàng)中某一項(xiàng)表中內(nèi)容的位置，第一項(xiàng)的索引值為 0 ，第二項(xiàng)為 1 ，依此類推，這個(gè)參數(shù)非常重要不可省略。此題循環(huán)變量 i 從 0 開(kāi)始循環(huán)直至組合框中總的表項(xiàng)數(shù)，不難理解這相當(dāng)于上面提到的下標(biāo)參數(shù)。組合框的 ADDItem 方法用于在組合框中插入一行文本，其格式為：組合框． ADDltem 項(xiàng)目字符串 \[ ，索引值 \] 。

11 �薄� 14 】 Input

【 15 】 Not EOF(1)

解析：打開(kāi)順序文件的基本格式為：

Open FileName For MoDe As #FileNumber 。

其中， FileName 表示要打開(kāi)的文件的路徑； MoDe 為打開(kāi)模式； OutPut 用于輸出、 AppenD 用于追加寫(xiě)入、 Input 用于讀取； FiLeNumber 為打開(kāi)文件時(shí)指定的句柄 ( 即文件號(hào) ) 。在讀文件時(shí)，經(jīng)常用 Do While 循環(huán)和 Input # 語(yǔ)句讀入數(shù)據(jù)，以 Not EOF( 文件號(hào) ) 為循環(huán)條件。 EOF

( 文件號(hào) ) 用于判斷是否讀到文件結(jié)尾。