2005年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷

1、2005年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB筆試試卷（含參考答案）計(jì)算機(jī)等級(jí)考試網(wǎng) 更新：2010-7-29 編輯：fatcatthea（21）有如下程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter < 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序運(yùn)行后，單擊窗體，

2、輸出結(jié)果為A）15 0 B）20 -1C）10 True D）10 False（22）有如下程序：Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A）12 B）30 C）24 D）18（23）在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：P

3、rivate Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A）12 B）13 C）14 D）15（24）在窗體上畫(huà)一個(gè)命令按鈕，其名稱(chēng)為Command1，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Clic

4、k()Dim a1(4, 4), a2(4, 4)For i = 1 To 4For j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub程序運(yùn)行后，單擊命令按鈕，在窗體上輸出的是A）6 6 B）10 5 C）7 21 D）6 12（25）有如下程序：Option Base 1Private Sub Form_Click()Dim arr, SumSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)Fo

5、r i = 1 To 10If arr(i) / 3 = arr(i) 3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為A）25 B）26 C）27 D）28（26）在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc("A") + (i - 1)Next iFor Each b In aPrint b;NextEnd Sub程序運(yùn)行后，單擊命令按

6、鈕，輸出結(jié)果是A）ABCDE B）1 2 3 4 5C）abcde D）出錯(cuò)信息（27）以下關(guān)于函數(shù)過(guò)程的敘述中，正確的是A）如果不指明函數(shù)過(guò)程參數(shù)的類(lèi)型，則該參數(shù)沒(méi)有數(shù)據(jù)類(lèi)型B）函數(shù)過(guò)程的返回值可以有多個(gè)C）當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以引用方式傳遞D）函數(shù)過(guò)程形參的類(lèi)型與函數(shù)返回值的類(lèi)型沒(méi)有關(guān)系（28）函數(shù)過(guò)程F1的功能是：如果參數(shù)b為奇數(shù)，則返回值為1，否則返回值為0。以下能正確實(shí)現(xiàn)上述功能的代碼是A）Function F1(b As Integer)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd Function

7、B）Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 0ElseF1 = 1End IfEnd FunctionC）Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 1ElseF1 = 0End IfEnd FunctionD）Function F1(b As Integer)If b Mod 2 <> 0 ThenReturn 0ElseReturn 1End IfEnd Function（29）以下關(guān)于KeyPress事件過(guò)程中參數(shù)KeyAscii的敘述中正確的是A）KeyAscii

8、參數(shù)是所按鍵的ASCII碼B）KeyAscii參數(shù)的數(shù)據(jù)類(lèi)型為字符串C）KeyAscii參數(shù)可以省略D）KeyAscii參數(shù)是所按鍵上標(biāo)注的字符（30）設(shè)窗體上有一個(gè)名為T(mén)ext1的文本框，并編寫(xiě)如下程序：Private Sub Form_Load()ShowText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, _Shift As Integer, X As Single, Y As Single)Print "程序設(shè)計(jì)"End SubPrivate

9、 Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print "Visual Basic"End Sub程序運(yùn)行后，如果在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內(nèi)容是A）Visual Basic B）程序設(shè)計(jì)C）Visual Basic程序設(shè)計(jì) D）a程序設(shè)計(jì)31）假定有下表所列的菜單結(jié)構(gòu)：標(biāo)題 名稱(chēng) 層次顯示 appear 1（主菜單）大圖標(biāo) bigicon 2（子菜單）小圖標(biāo) smallicon 2（子菜單）要求程序運(yùn)行后，如果單擊菜單項(xiàng)“大圖標(biāo)”，則在該菜單項(xiàng)前添加一個(gè)“?”。以下正確的事件

10、過(guò)程是A）Private Sub bigicon_Click()bigicon.Checked = FalseEnd SubB）Private Sub bigicon_Click()Me. appear.bigicon.Checked = TrueEnd SubC）Private Sub bigicon_Click()bigicon.Checked = TrueEnd SubD）Private Sub bigicon_Click()appear.bigicon.Checked = TrueEnd Sub（32）假定通用對(duì)話(huà)框的名稱(chēng)為CommonDialog1，命令按鈕的名稱(chēng)為Command1，

11、則單擊命令按鈕后，能使打開(kāi)的對(duì)話(huà)框的標(biāo)題為“New Title”的事件過(guò)程是A）Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowPrinterEnd SubB）Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowFontEnd SubC）Private Sub Command1_Click()CommonDialog1

12、.DialogTitle = "New Title"CommonDialog1.ShowOpenEnd SubD）Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowColorEnd Sub（33）如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是A）任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體B）不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊C）用Hide方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體D）如果工程中含有Sub Main過(guò)程，則程序一定首先執(zhí)行該

13、過(guò)程（34）假定在工程文件中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類(lèi)型Type BooksName As String * 10TelNum As String * 20End Type要求當(dāng)執(zhí)行事件過(guò)程Command1_Click時(shí)，在順序文件Person.txt中寫(xiě)入一條記錄。下列能夠完成該操作的事件過(guò)程是A）Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Output As #1B.Name = InputBox("輸入姓名")B.TelNum = InputBox(&

14、quot;輸入電話(huà)號(hào)碼")Write #1, B.Name, B.TelNumClose #1End SubB）Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Input As #1B.Name = InputBox("輸入姓名")B.TelNum = InputBox("輸入電話(huà)號(hào)碼")Print #1, B.Name, B.TelNumClose #1End SubC）Private Sub Command1_Click()Dim B A

15、s BooksOpen "c:Person.txt" For Output As #1Name = InputBox("輸入姓名")TelNum = InputBox("輸入電話(huà)號(hào)碼")Write #1, BClose #1End SubD）Private Sub Command1_Click()Dim B As BookOpen "c:Person.txt" For Input As #1Name = InputBox("輸入姓名")TelNum = InputBox("輸入電話(huà)號(hào)碼

16、")Print #1, B.Name, B.TelNumClose #1End Sub（35）目錄列表框的Path屬性的作用是A）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名B）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄結(jié)構(gòu)C）顯示根目錄下的文件名D）顯示指定路徑下的文件二、填空題（每空2分，共30分）請(qǐng)將每空的正確答案寫(xiě)在答題卡【1】【15】序號(hào)的橫線(xiàn)上，答在試卷上不得分。（1）數(shù)據(jù)管理技術(shù)發(fā)展過(guò)程經(jīng)過(guò)人工管理、文件系統(tǒng)和數(shù)據(jù)庫(kù)系統(tǒng)三個(gè)階段，其中數(shù)據(jù)獨(dú)立性最高的階段是 【1】 。（2）算法復(fù)雜度主要包括時(shí)間復(fù)雜度和 【2】 復(fù)雜度。（3）在進(jìn)行模塊測(cè)試時(shí)，要為每個(gè)被測(cè)試的模塊另外設(shè)計(jì)兩類(lèi)

17、模塊：驅(qū)動(dòng)模塊和承接模塊（樁模塊）。其中 【3】 的作用是將測(cè)試數(shù)據(jù)傳送給被測(cè)試的模塊，并顯示被測(cè)試模塊所產(chǎn)生的結(jié)果。（4）一棵二叉樹(shù)第六層（根結(jié)點(diǎn)為第一層）的結(jié)點(diǎn)數(shù)最多為 【4】 個(gè)。（5）數(shù)據(jù)結(jié)構(gòu)分為邏輯結(jié)構(gòu)和存儲(chǔ)結(jié)構(gòu)，循環(huán)隊(duì)列屬于 【5】 結(jié)構(gòu)。（6）設(shè)有以下函數(shù)過(guò)程：Function fun(m As Integer) As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd Function若在程序中用語(yǔ)句 s = fun(10) 調(diào)用此

18、函數(shù)，則s的值為 【6】 。（7）在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框，然后編寫(xiě)命令按鈕的Click事件過(guò)程。程序運(yùn)行后，在文本框中輸入一串英文字母（不區(qū)分大小寫(xiě)），單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫(xiě)方式降序顯示到Text1中。例如，若在Text1中輸入的是abDfdb，則單擊Command1按鈕后Text1中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC。請(qǐng)?zhí)羁?。Private Sub Command1_Click( )Dim str As String, s As String, c As Stringstr = UCase(Text1)s =

19、""c = "Z"While c >= "A"If InStr(str, c) = 0 Thens = 【7】End Ifc = Chr$(Asc(c) 【8】 )WendIf s <> "" ThenText1 = sEnd If（8） 在n個(gè)運(yùn)動(dòng)員中選出任意r個(gè)人參加比賽，有很多種不同的選法，選法的個(gè)數(shù)可以用公式 計(jì)算。下圖窗體中3個(gè)文本框的名稱(chēng)依次是Text1、Text2、Text3。程序運(yùn)行時(shí)在Text1、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個(gè)數(shù)，并顯示在

20、Text3文本框中(見(jiàn)下圖)。請(qǐng)?zhí)羁?。Private Sub Command1_Click( )Dim r As Integer, n As Integern = Text1r = Text2Text3 = fun(n) / fun(【9】 ) / fun(r)End SubFunction fun(n As Integer) as longDim t As Long【10】For k = 1 To nt = t * kNextfun = tEnd Function（9）以下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為T(mén)ext1的文本框數(shù)組，然后畫(huà)一個(gè)名為T(mén)ext2的文本框和名為Command1的

21、命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，單擊“計(jì)算得分”命令按鈕，則最后得分顯示在Text2文本框中（去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分），如圖所示。請(qǐng)?zhí)羁?。Private Sub Command1_Click( )Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1(0)max = Text1(0)min = 【11】For k = 【12】 To 6If max < Text1(k) Thenmax = Text1(k)End IfIf min > Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2 = (【13】 ) / 5（10）如圖所示