(完整word版)江蘇省計(jì)算機(jī)二級(jí)VB模擬試卷1(新版)

1、(7)。江蘇省高等學(xué)校計(jì)算機(jī)等級(jí)考試二級(jí)Visual Basic考試模擬試卷1(本試卷完成時(shí)間 120 分鐘 )第一部分 計(jì)算機(jī)基礎(chǔ)知識(shí)1._下列不同進(jìn)位制的四個(gè)數(shù)中 ,最小的數(shù)是_ (1)_A. 二進(jìn)制數(shù) 1100010B.十進(jìn)制數(shù) 65C.八進(jìn)制數(shù) 77D.十六進(jìn)制數(shù) 452下列關(guān)于 PC 機(jī)主板的敘述正確的是 _。A不同廠家生產(chǎn)的主板，尺寸各不相同B.主板上安裝有存儲(chǔ)器芯片，如ROM 芯片、CMOS 芯片等C. CPU 是直接固定在主板上的，不可更換D. 主板上安裝有電池，在計(jì)算機(jī)斷開(kāi)交流電后，臨時(shí)給計(jì)算機(jī)提供電流，供計(jì)算機(jī)工作3下面關(guān)于 BIOS 的一些敘述正確的是 _。A. BIOS

2、 是存放于 ROM 中的一組高級(jí)語(yǔ)言程序B. BIOS 中含有系統(tǒng)工作時(shí)所需的全部驅(qū)動(dòng)程序C.BIOS 系統(tǒng)由加電自檢程序、系統(tǒng)主引導(dǎo)記錄的裝入程序、CMOS 設(shè)置程序、 基本外圍 設(shè)備的驅(qū)動(dòng)程序組成D. 沒(méi)有 BIOS 的 PC 機(jī)也可以正常啟動(dòng)工作4計(jì)算機(jī)軟件(簡(jiǎn)稱軟件)指的是能指揮計(jì)算機(jī)完成特定任務(wù)的、以電子格式存儲(chǔ)的程序、數(shù) 據(jù)和相關(guān)的文檔。在下列有關(guān)軟件的敘述中,錯(cuò)誤的是 _(4)_。A. 軟件的版權(quán)所有者不一定是軟件作者B. 自由軟件指的是一種無(wú)版權(quán)的軟件，允許修改其源代碼C. 用戶購(gòu)買一個(gè)軟件后，就獲得該軟件版權(quán)D. 共享軟件是一種買前免費(fèi)試用，具有版權(quán)的軟件5. 以下關(guān)于操作系

3、統(tǒng)中多任務(wù)處理的敘述錯(cuò)誤的是 _。A .將 CPU 時(shí)間劃分成許多小片，輪流為多個(gè)程序服務(wù)，這些小片稱為“時(shí)間片”B.由于 CPU 是計(jì)算機(jī)系統(tǒng)中最寶貴的硬件資源，為了提高CPU 的利用率， 一般采用多務(wù) 處理C.正在 CPU 中運(yùn)行的程序稱為前臺(tái)任務(wù)，處于等待狀態(tài)的任務(wù)稱為后臺(tái)任務(wù)D.在單 CPU 環(huán)境下，多個(gè)程序在計(jì)算機(jī)中宏觀上同時(shí)運(yùn)行，微觀上由CPU 輪流執(zhí)行6. 以下關(guān)于 IP 地址的敘述錯(cuò)誤的是 _。A.正在上網(wǎng)(online)的每一臺(tái)計(jì)算機(jī)都有一個(gè)IP 地址B.現(xiàn)在廣泛使用的 IPv4 協(xié)議規(guī)定 IP 地址使用 32 個(gè)二進(jìn)位表示C.IPv4 規(guī)定的 IP 地址快要用完了，取5.下

4、列關(guān)于過(guò)程參數(shù)的敘述中，正確的是5而代之的將是64 位的 IPv5D.IP 地址是計(jì)算機(jī)的邏輯地址，每臺(tái)計(jì)算機(jī)還有各自的物理地址7. 路由器用于連接異構(gòu)的網(wǎng)絡(luò)，它收到一個(gè)IP 數(shù)據(jù)報(bào)后要進(jìn)行許多操作，這些操作不包含A.域名解析B.路由選擇5.下列關(guān)于過(guò)程參數(shù)的敘述中，正確的是5C.幀格式轉(zhuǎn)換D. IP 數(shù)據(jù)報(bào)的轉(zhuǎn)發(fā)8.通過(guò)有線電視接入因特網(wǎng)時(shí)需使用電纜調(diào)制解調(diào)(Cable MODEM)技術(shù)，以下敘述錯(cuò)誤的是(8)_。A. 采用同軸電纜和光纖作為傳輸介質(zhì)B. 收看電視時(shí)不能上網(wǎng)C. 能提供語(yǔ)音、數(shù)據(jù)、圖像傳輸?shù)榷喾N業(yè)務(wù)D. 同一連接段中多個(gè)用戶的信號(hào)都在同一電纜上傳輸9.至目前為止，已發(fā)布多種漢

5、字信息的編碼標(biāo)準(zhǔn)。在下列敘述中，錯(cuò)誤的是 _(9)_。A. 無(wú)論采用那種編碼標(biāo)準(zhǔn)(如 GBK UCS-4 等)，漢字的機(jī)內(nèi)碼都是采用 16 位二進(jìn)制表示的B. 中文版 Windows98/2000 操作系統(tǒng)都支持 GB2312-80、GBK 等多種漢字編碼標(biāo)準(zhǔn)。C. GB2312-80 是我國(guó)頒布的第一個(gè)漢字信息編碼的國(guó)家標(biāo)準(zhǔn)。D. 不同的漢字輸入法，其可以輸入的不同漢字個(gè)數(shù)可能有所不同。10. 下列四種聲音文件中，不可能用于保存歌曲的是(10)。A.WAV B. MP3C. MIDID. WMA1.C2.B3.C4.C5.C6.C7.A8.B 9.A10.C第二部分Visual Basic

6、程序設(shè)計(jì)一、選擇題 (共10 分， 每題 2 分)1.下列控件中，無(wú)法用于顯示程序運(yùn)行結(jié)果的是1 。A.TextBox B. ListBox C. PictureBox D. Timer2.下列有關(guān)轉(zhuǎn)換函數(shù)的說(shuō)法中，正確的是2 _。A.Int 和 Clnt 函數(shù)的區(qū)別僅在于返回結(jié)果的數(shù)據(jù)類型不同B.Int 和 Fix 函數(shù)將非整數(shù)數(shù)據(jù)轉(zhuǎn)換成整數(shù)，轉(zhuǎn)換后的結(jié)果類型是LongC.在處理正數(shù)時(shí)，Int 函數(shù)和 Fix 函數(shù)的返回結(jié)果是相同的D. 在處理負(fù)數(shù)時(shí)，Int 函數(shù)和 Fix 函數(shù)的返回結(jié)果是相同的A. Log(x) / Log(10) - Cos(30 * 3.14159 / 180) +

7、Abs(xA2 + Sqr(y) + Exp(x)B. Log(x) / Log(10) - Cos (30) + Abs(xA2 + Sqr(y) + eAxC. Log(x) - Cos(30 * 3.14159 / 180) + Abs(xA2 + Sqr(y) + Exp(x)D. Log(x) - Cos(30) + Abs(xA2 + Sqr(y) + eAx4.下列有關(guān)數(shù)組的說(shuō)法中，錯(cuò)誤的是4 _。A.若模塊中有Option Base 1”語(yǔ)句，則該模塊中的數(shù)組的維下界都為1B. 定長(zhǎng)字符串類型的數(shù)組也可以作為過(guò)程的形式參數(shù)C.只能在標(biāo)準(zhǔn)模塊中用 Public 語(yǔ)句定義全局?jǐn)?shù)組3

8、.數(shù)學(xué)式對(duì)應(yīng)的 VB 表達(dá)式是3。X +5.下列關(guān)于過(guò)程參數(shù)的敘述中，正確的是5D.若 A 是固定大小數(shù)組，執(zhí)行語(yǔ)句Erase A 后，數(shù)組 A 的所有元素被初始化A. 符號(hào)常數(shù)名可以出現(xiàn)在定義過(guò)程的形式參數(shù)表中B.過(guò)程調(diào)用時(shí)，與用ByRef 說(shuō)明的形參結(jié)合的實(shí)在參數(shù)不可以是常數(shù)或表達(dá)式C.在自定義過(guò)程中，用 ByVal 說(shuō)明的形參值發(fā)生改變，不會(huì)影響與之結(jié)合的實(shí)參的值DVB 對(duì)過(guò)程的形式參數(shù)的類型沒(méi)有任何限制二、填空題(共 20 分，每空 2 分)1.執(zhí)行下面程序，單擊命令按鈕Command1，則窗體上顯示的第一行內(nèi)容是 _ (1)第二行內(nèi)容是 _ (2) _ 。Option Explici

9、tPrivate Sub Command1_Click()Dim i As Integer, j As Single, k As Integerj = 11For i = 2 To 10 Step 2.5j = j - 2.5If j = Int(j) Theni = i + j Mod 10Elsei = i + 1End Ifk = i + jNext iPrint iPrint kEnd Sub2. 執(zhí)行下面程序， 單擊命令按鈕 執(zhí)行下面程序， 單擊命令按鈕 Command1 ，則數(shù)組元素 ， 則數(shù)組元素 ，則數(shù)組元素 A(1, 2)的值是 _ (3) _ 、A(2, 1)的值是 _ (

10、4) _ 、A(3, 3) 的值是 _ (5)_ 。Option ExplicitOption Base 1Private Sub Command1_Click()Dim A(3, 3) As Integer, K As IntegerDim i As Integer, j As Integeri = 2j = 1A(i, j) = 39For K = 38 To 31 Step -1 If i - 1 = 0 And j - 1 0 Theni = 3: j = j - 1ElseIf i - 1 0 And j - 1 = 0 Theni = i - 1: j = 3 ElseIf i -

11、 1 = 0 And j - 1 = 0 Theni = 1: j = 2 ElseIf A(i - 1, j - 1) 0 Thenj = j + 1Elsei = i - 1: j = j - 1End IfA(i, j) = KNext KFor i = 1 To 3For j = 1 To 3Text1.Text = Text1.Text & A(i, j) & Next jText1.Text = Text1.Text & vbCrLfNext i End Sub3. 執(zhí)行下面程序，單擊命令按鈕 執(zhí)行下面程序，單擊命令按鈕 Command1 ，則 窗體上顯 示

12、的第一行內(nèi)容是 _( 6)_ ， 最后一行內(nèi)容是_( 7) _ 。Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, k As IntegerFor a = 2 To 3b = a + 1k = Fun(Fun(a, b), b)Print kNext aPrint bEnd SubPrivate Function Fun(a As Integer, b As Integer) As Integerb = a + ba = a + bFun = a + bEnd Function4. 執(zhí)行 下面程

13、序，單擊 命令 按鈕 Command1 ，則 多行 文本框 Text1 中顯示 的第一行 內(nèi)容 是_(8)_ ，第二行 內(nèi)容是 _(9) _ ，第三行 內(nèi)容是 _(10)_ Option ExplicitPrivate Sub Command1_Click()Dim s1 As String, s2 As String, data1 As String, data2 As StringDim i As Integerdata1 = 1011 1010 1110data2 = 1010 1101 1010For i = 1 To Len(data1) Step 5s1 = Mid(data1,

14、i, 4)s2 = Mid(data2, i, 4)Text1.Text = Text1.Text & Subtract(s1, s2) & vbCrLfNext iEnd SubPrivate Fun ction Subtract As Stri ng, s2 As Stri ng) As Stri ngDim i As In teger, k As In teger, L As In tegerDim j As In teger, s As StringL = Len (s1)Fori = 1 To LIf Mid(s1, i, 1) = 0 A nd Mid(s2, i,

15、 1) = 0 The nSubtract = Subtract & 0ElseSubtract = Subtract & 1End IfNext iEnd Function三、操作題（共 50 分）1.完善程序。（共 12 分）【要求】1）打開(kāi)”考生文件夾”中”P1.vbp”文件,完善程序后，直接保存所有文件 。【題目】 本程序的功能是 找出 4500 之間的史密夫數(shù)。 所謂史密夫數(shù)是指該數(shù)的各位數(shù) 字和等于其質(zhì)因子分解中所有質(zhì)因子的各位數(shù)字和。例如 在十進(jìn)制下，202 就是一個(gè)史密夫數(shù)，因?yàn)?2 + 0 + 2 = 4, 202 的質(zhì)因子分解為 2X101, 2 + 1 +

16、 0 + 1 = 4。I tj史密夫裁口可1書(shū)422275335941212022&5274Ariwarwar*iawniwiriwm有!足仃：Opti on ExplicitOption Base 1Private Sub Comma nd1_Click()Dim i As In teger, he As In tegerDim n As In teger, pf() As In tegerFor n = 4 To 500Call Pfactor(n, pf)If UBound(pf) 1 Then(1)For i =1 To UBound(pf)he=he + Sum(pf(i)N

17、ext iIf Sum(n) = he ThenList1.AddItem n EndIfEnd IfNext nEnd SubPrivate Sub Pfactor(ByVal n As Integer, f() As Integer) 質(zhì)因子分解Dim k As Integer, P As Integerk = 2DoDo While _ (2)_P = P + 1ReDim Preserve f(P)f(P) = k n = n kLoop _ (3)_Loop Until n = 1End SubPrivate Function Sum(ByVal n As Integer) As I

18、ntegerDim S As String, L As Integer, k As Integer, i As IntegerS = CStr(n) _(4)For i = 1 To L k = Val(Mid(S, i, 1) Sum = Sum + kNext iEnd Function2. 改錯(cuò)題(共 16 分)【要求】1) 打開(kāi)”考生文件夾”中”P2.vbp”文件，改正程序中的錯(cuò)誤后，直接保存所有文件;2) 改錯(cuò)時(shí)，不得增加或刪除語(yǔ)句但可適當(dāng)調(diào)整位置?！绢}目】 本程序的功能是 在給定的數(shù)字串中 ( 在給定的數(shù)字串中 ( 1 2 1 709473)找出所有 的素?cái)?shù)子串。Opti on E

19、xplicitPrivate Sub Comma nd1_Click()Dim n As Integer, St As String, L As Integer, Flg As BooleanDim i As Integer, j As Integer, C As String, s As Stringn = Val(Text1.Text)St = CStr( n)L = Len(n)Fori = 1 To LFlg = FalseForj = 1 To L - i + 1C = Mid(St, j, i)If Left(C, 1) 0 A nd Prime(Val(C) The ns = s

20、 & C & ” ”Flg = TrueEnd IfNext jIf Flg Then s = s & vbCrLfNext iText2.Text = sEnd SubPrivate Function Prime(M As Long) As Boolea nDim i As LongFor i = 2 To In t(Sqr(M)If M Mod i = 0 Then Exit ForNext iPrime = TrueEnd Function3.編程題（22 分）【要求】1）打開(kāi)“考生文件夾”中“ P3.vbp”文件，按參考界面形式編輯窗體，根據(jù)題目要求編寫 和調(diào)試

21、程序后，直接保存所有文件；2）程序代碼書(shū)寫應(yīng)呈鋸齒形，否則適當(dāng)扣分?！绢}目】 編寫程序，生成由兩位隨機(jī)整數(shù)組成的數(shù)組，刪除數(shù)組中數(shù)值相同的數(shù)組元素?！揪幊桃蟆?）程序參考界面如圖所示，編程時(shí)不得增加或減少對(duì)象改變的窗體種類，窗體及界面元素大小適中，且均可見(jiàn)；2）運(yùn)行程序，單擊“生成”按鈕，在 InputBox 對(duì)話框中輸入需要生成的數(shù)組元素個(gè)數(shù)并生成由兩位隨機(jī)整數(shù)組成的數(shù)組顯示在文本框1 中；單擊“刪除重復(fù)數(shù)”按鈕將數(shù)組中出現(xiàn)的重復(fù)數(shù)刪除后顯示在文本框2 中；單擊“清除”按鈕，將所有文本框清空，焦點(diǎn)置于“生成”按鈕上；3）程序中至少應(yīng)定義一個(gè)通用過(guò)程，用于將數(shù)組中的重復(fù)數(shù)刪除。參考答案一、V

22、B 選擇題（共 10 分，每題 2 分）1. D 2. C 3. A 4. A 5. C二、VB 填空題（共 20 分，每空 2 分）1. 132.173. 334.395. 366467178101191111101110三、VB 操作題(共 50 分)1. 完善程序 (共 12 分)(1) he = 0(2) n Mod k = 0(3) k = k + 1(4) L = Len(S)2. 改錯(cuò)題(共 16 分)Option ExplicitPrivate Sub Command1_Click()Dim n As Long, St As String, L As Integer, Flg

23、As BooleanDim i As Integer, j As Integer, C As String, s As Stringn = Val(Text1.Text)St = CStr(n)L = Len(St)For i = 1 To LFlg = FalseFor j = 1 To L - i + 1C = Mid(St, j, i)If Left(C, 1) 0 And Prime(Val(C) Thens = s & C & Flg = TrueEnd IfNext jIf Flg Then s = s & vbCrLfNext iText2.Text = sEnd SubPrivate Function Prime(M As Long) As BooleanDim i As LongFor i = 2 To Int(Sqr(M)If M Mod i = 0 Then