2005年9月全國計算機等級考試二級VB筆試試卷

1、2005年9月全國計算機等級考試二級VB筆試試卷（含參考答案）計算機等級考試網 更新：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程序運行后，單擊窗體，

2、輸出結果為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程序運行后，單擊窗體，輸出結果為A）12 B）30 C）24 D）18（23）在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：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程序運行后，單擊命令按鈕，在文本框中顯示的值是A）12 B）13 C）14 D）15（24）在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：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程序運行后，單擊命令按鈕，在窗體上輸出的是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程序運行后，單擊窗體，輸出結果為A）25 B）26 C）27 D）28（26）在窗體上畫一個命令按鈕，然后編寫如下事件過程：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程序運行后，單擊命令按

6、鈕，輸出結果是A）ABCDE B）1 2 3 4 5C）abcde D）出錯信息（27）以下關于函數過程的敘述中，正確的是A）如果不指明函數過程參數的類型，則該參數沒有數據類型B）函數過程的返回值可以有多個C）當數組作為函數過程的參數時，既能以傳值方式傳遞，也能以引用方式傳遞D）函數過程形參的類型與函數返回值的類型沒有關系（28）函數過程F1的功能是：如果參數b為奇數，則返回值為1，否則返回值為0。以下能正確實現上述功能的代碼是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）以下關于KeyPress事件過程中參數KeyAscii的敘述中正確的是A）KeyAscii

8、參數是所按鍵的ASCII碼B）KeyAscii參數的數據類型為字符串C）KeyAscii參數可以省略D）KeyAscii參數是所按鍵上標注的字符（30）設窗體上有一個名為Text1的文本框，并編寫如下程序：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 "程序設計"End SubPrivate

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

10、過程是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）假定通用對話框的名稱為CommonDialog1，命令按鈕的名稱為Command1，

11、則單擊命令按鈕后，能使打開的對話框的標題為“New Title”的事件過程是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）如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是A）任何時刻最多只有一個窗體是活動窗體B）不能把標準模塊設置為啟動模塊C）用Hide方法只是隱藏一個窗體，不能從內存中清除該窗體D）如果工程中含有Sub Main過程，則程序一定首先執(zhí)行該

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

14、quot;輸入電話號碼")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("輸入電話號碼")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("輸入電話號碼")Write #1, BClose #1End SubD）Private Sub Command1_Click()Dim B As BookOpen "c:Person.txt" For Input As #1Name = InputBox("輸入姓名")TelNum = InputBox("輸入電話號碼

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

17、模塊：驅動模塊和承接模塊（樁模塊）。其中 【3】 的作用是將測試數據傳送給被測試的模塊，并顯示被測試模塊所產生的結果。（4）一棵二叉樹第六層（根結點為第一層）的結點數最多為 【4】 個。（5）數據結構分為邏輯結構和存儲結構，循環(huán)隊列屬于 【5】 結構。（6）設有以下函數過程：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若在程序中用語句 s = fun(10) 調用此

18、函數，則s的值為 【6】 。（7）在窗體上畫一個命令按鈕和一個文本框，然后編寫命令按鈕的Click事件過程。程序運行后，在文本框中輸入一串英文字母（不區(qū)分大小寫），單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫方式降序顯示到Text1中。例如，若在Text1中輸入的是abDfdb，則單擊Command1按鈕后Text1中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC。請?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個運動員中選出任意r個人參加比賽，有很多種不同的選法，選法的個數可以用公式 計算。下圖窗體中3個文本框的名稱依次是Text1、Text2、Text3。程序運行時在Text1、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個數，并顯示在

20、Text3文本框中(見下圖)。請?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）以下是一個比賽評分程序。在窗體上建立一個名為Text1的文本框數組，然后畫一個名為Text2的文本框和名為Command1的

21、命令按鈕。運行時在文本框數組中輸入7個分數，單擊“計算得分”命令按鈕，則最后得分顯示在Text2文本框中（去掉一個最高分和一個最低分后的平均分即為最后得分），如圖所示。請?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）如圖所示