【正文】 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678,45,324,528,439,387,87,875,273,823) For i= ____（ 14） ______ For j= ___（ 15） ___to 10 If a(i) =a(j) Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub 模擬卷答案 筆試模擬試卷答案 1. 筆試模擬試卷一 【單選題】 15. C A C B B 610. C C B C D C C D A 1620. D A D A C A C D D 2630. C B D D B 31— A D B B 【填空題】 (1) 邏輯 (2) 實例化 (3) 內(nèi)聚 (4) 軟件生命周期 (5) 實體完整性 (6) 4 (7) 468 (8) X=0 (9) X (10) 計算機 (11) 等級考試 (12) Output (13) EOF(1) (14 )Close (15) 36 2. 筆試模擬試卷二 【單選題】 15. D B B D A 610. D C B D B 1115. B A C D A 1620. A C D A C 2125. D C D C C 2630. B A C A C 31— 35. D D C B B 【填空題】 (1) 數(shù)據(jù)的存儲結(jié)構(gòu) (2) 物理設(shè)計 (3) 概要 (4) 中序遍歷 (5) 文檔 (6) False (7) BASIC (8) 678910 (9) 0 （ 10） num Mod 5 = 3 （ 11） SetFocus (12) 1234 (13) 1 （ 14） Int(Rnd * 200 + 100)（ 15） a(i) Mod 7 = 0 3. 筆試模擬試卷三 【單選題】 15. D C B A D 610. A C D B C 1115. C C D D D 1620. B B B C A 2125. D B D B D 2630. A D D A A 31— 35. A B B D C 【填空題】 （ 1） ATBZXCTP （ 2） n(n1)/2 （ 3）可重用性 （ 4）變換型 （ 5） 1:n（一對多） （ 6）小于 0的整數(shù) （ 7） RemoveItem （ 8） 3 （ 9） now （ 10） asic （ 11） 3 (12） S=S+N （ 13） SmaxMin （ 14） a to 9 （ 15） i+1 。 num =0 While num=2 num = num+1 Wend Print num 12. 下面是一個體操評分程序， 20 位評委，除去一個最高分和一個最低分，計算平均分 (設(shè)滿分為10分 )。 Lcase(Mid(QBASIC,3,4))的值是 ___（ 10） _______。 7．下列代碼功能為：單擊窗體時，移除 List1（ ListBox控件）的 第一項內(nèi)容，請補充完成 Private Sub C1_Click() （ 7） ______ 0 End Sub 8．設(shè) a=6，則執(zhí)行 x=IIf(a5,3,0)后， x 的值為 ____（ 8） ______。如果一個學(xué)校有許多教師，而一個教師只歸屬于一個學(xué)校，則實體集學(xué)校和實體集教師之間的聯(lián)系 是屬于 （ 5） 的聯(lián)系。 4．?dāng)?shù)據(jù)流圖的類型有 （ 4） 和事務(wù)型。 3．一個類可以從直接或間接的祖先中繼承所有屬性和方法。 A. 根據(jù)數(shù)組說明的方式，可將數(shù)組分為動態(tài)數(shù)組和靜態(tài)數(shù)組 B. 在過程 中，不能用 private語句定義數(shù)組 C. 利用 Redim語句重新定維時，不得改變已經(jīng)說明過的數(shù)組的數(shù)據(jù)類型 D. 利用 Redim語句重新定維后，原有的數(shù)組元素內(nèi)容必定丟失 35. 單擊命令按鈕時，下列程序代碼的執(zhí)行結(jié)果為 ________ 。 B. =val() +val( ) C. = + D. =val() amp。 A． Exit Sub B. Exit C. Return D. Resume 32. 在文本框 Text1中輸入數(shù)字 12， Text2中輸入數(shù)字 34，執(zhí)行以下語句，可使文本框 Text3中顯示 46__ ____。 A． Private Sub List1_Click() Print End Sub B． Private Sub List1_Click() Print End Sub C． Private Sub List1_Click() Print (ListIndex) End Sub D． Private Sub Form_Click() Print () End Sub 30．建立函數(shù)的目的之一是 ______。 A．事件過程是響應(yīng)特定事件的一段程序 B．不同的對象可以具有相同名稱的方法 C．對象的方法是執(zhí)行指定操作的過程 D．對象事件的名稱可以由編程者指定 28. 以下關(guān)于 Visual Basic特點的敘述中，錯誤的是 ______。 A. 1 2 3 2 4 6 3 6 9 B. 2 3 4 3 4 5 4 5 6 C. 1 4 7 2 5 8 3 5 9 D. 1 2 3 4 5 6 7 8 9 26. 通用過程可以通過執(zhí) 行“工具”菜單中的什么命令來建立 ______。 Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print KeyCode End Sub A. 97 B. 65 C. 0 D. 出錯 25. 在窗體上畫一個名稱為 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 To3 a(i,j)=(i1)*3+j Print a(i,j)。 A. 在 KeyPress事件過程中不能識別鍵盤的按下與釋放 B. 在 KeyPress事件過程中不能識別回車鍵 C. 在 KeyDown和 KeyUp事件過程中 ,將鍵盤輸入的 A和 a視作相同的字母 D. 在 KeyDown 和 KeyUp 事件過程中，從大鍵盤上輸入的 1和從右側(cè)小鍵盤上輸入的 1被視作不同的字符 23. 設(shè) a=2,b=3,c=4,表達式 Not a=c Or 4*c=b^2 And ba+c 的值是 ______。 A. a被定義為 Integer類型變量 B. b被定義為 Integer類型變量 C. c中的數(shù)據(jù)是字符串 D. d中的數(shù)據(jù)是日期類型 21. 以下敘述中錯誤的是 ______。 A. 4 2 B. 12 18 C. 12 30 D. 4 6 ， x的值為 ______。 Private Sub Command1_Click() a = 300 b = 20 a = a + b b = a b a = a b print b End Sub A. 20 B. 300 C. 30 D. 200 ______。 A. Ctrl+C B. Ctrl+Z C. 單擊“停止運行”按鈕 D. Ctrl+Break ，正確的是 ______。 A. 事件是系統(tǒng)預(yù)先為對象定義的能被對象識別的動作 B. 事件可分為系統(tǒng)事件與用戶事件兩類 C. VB中所有控件對象的默認事件都是 Click D. VB為每個對象設(shè)置好各種事件，并定義事件過程名，但過程代碼必須由用戶自行編寫 13. 在窗體上畫一個名稱為 Tx