|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2017年10月江蘇省計算機二級VB考試真題1 |
|
第1套 (2017秋1) 1、 移動通信指的是處于移動狀態(tài)的對象之間的通信，最有代表性的是手機——個人移動通信系統(tǒng)。下列有關(guān)移動通信的敘述中，錯誤的是___________。 A. 基站是個人移動通信系統(tǒng)的重要組成部分，它負責與其周圍區(qū)域內(nèi)所有手機進行通信 B. 無論是最早的第1代個人移動通信，還是處于發(fā)展中的5G，均是采用數(shù)字通信技術(shù) C. 第2代移動通信以語音傳輸技術(shù)為核心，但可提供收發(fā)短信息等數(shù)據(jù)量很少的數(shù)據(jù)業(yè)務(wù) D. 目前智能手機分為多種產(chǎn)品類型，全網(wǎng)通手機一般可以接入國內(nèi)三大運營商的所有網(wǎng)絡(luò) B 解析: 最早的第1代個人移動通信采用模擬通信技術(shù)。 4 2、 數(shù)十年來，硬盤一直是計算機中最重要的外存儲器。下列有關(guān)硬盤的敘述中，錯誤的是_________。 A. 通常硬盤的盤片兩面均可記錄數(shù)據(jù)，因而盤片兩側(cè)各有一個磁頭 B. 所有的硬盤均有多個盤片組成，一般不會僅使用一個盤片，盤片數(shù)越多則容量越大 C. 硬盤盤片直徑一般為3.5、2.5、1.8英寸等，臺式PC通常采用3.5或2.5英寸硬盤 D. 目前內(nèi)置硬盤的接口大多數(shù)為SATA接口，它以告訴串行方式傳輸數(shù)據(jù) B 解析: 硬盤一般由1到4個或1到5個盤片組成,盤片宜少不宜多,單碟盤片的容量越大越好。 2 3、 下列有關(guān)信息、信息技術(shù)、信息產(chǎn)業(yè)、信息化的敘述中，錯誤的是_________。 A. 信息的表現(xiàn)形式多種多樣，其分類也不計其數(shù) B. 所有的信息技術(shù)均采用電子技術(shù)（含激光技術(shù)）進行信息的收集、傳遞、加工、存儲等 C. 信息產(chǎn)業(yè)是戰(zhàn)略性先導產(chǎn)業(yè)，其科技創(chuàng)新含量高，知識、智力和技術(shù)密集 D. 信息化是當今世界發(fā)展的大趨勢，是我國增強國際競爭力和提高綜合國力的關(guān)鍵之一 B 解析: 信息技術(shù)的歷史非常長,主要是為了提高人們的信息器官功能,協(xié)助人們進行信息處理的技術(shù),現(xiàn)代信息技術(shù)采用電子技術(shù)（含激光技術(shù)）進行信息的收集、傳遞、加工、存儲等 。 1 4、 根據(jù)不同的應(yīng)用需求，數(shù)字音頻采用的編碼方法有多種，文件格式也各不相同。下列的音頻格式中，由美國Dolby公司開發(fā)的、在DVD和數(shù)字電視等領(lǐng)域廣泛使用的是______ A. WAV B. MP3 C. AC3 D. ACC C 解析: MP3是一種音頻壓縮技術(shù)，由于這種壓縮方式的全稱叫MPEG Audio Layer3，所以人們把它簡稱為MP3;WMA是微軟制訂的音頻壓縮文件格式，比mp3標準晚，比mp3還小，比mp3音質(zhì)還好 , 采用未壓縮編碼方式;美國杜比公司開發(fā)的AC3, 在DVD和數(shù)字電視等領(lǐng)域廣泛使用;相對于mp3，AAC格式的音質(zhì)更佳，文件更小。 。 5 5、 主機上用于連接I/O設(shè)備的各種插頭、插座，統(tǒng)稱為I/O接口。下列I/O接口中，近年來生產(chǎn)的大多數(shù)筆記本電腦通常不具有的接口（或者說通常不配備的接口）是______ A. PS/2 B. USB C. SATA D. VGA A 解析: PS/2是早期連接有線鼠標的接口,現(xiàn)在主要使用USB接口了 。 2 6、 數(shù)值、文字、圖像、聲音等不同的信息在計算機中的表示方法是不同的。下列相關(guān)敘述中，錯誤的是______。 A. 數(shù)值為負的整數(shù)在計算機中通常采用“反碼”的方法進行表示 B. 文字由一系列“字符”構(gòu)成，每個字符通常使用1-4個字節(jié)的二進制編碼表示 C. 黑白圖像在數(shù)據(jù)庫時，每個像素一般采用8位二進制無符號整數(shù)表示 D. 聲音信息在數(shù)字化時，每個取樣的樣本一般使用8位、12位、14位或16位二進制數(shù)表示 A 解析: 數(shù)值為負的整數(shù)在計算機中通常采用“補碼”的方法進行表示 。 1 7、 字符集及其編碼是計算機中表示、存儲、處理和交換文本信息的基礎(chǔ)，但由于歷史原因，目前不同系統(tǒng)或應(yīng)用中使用的字符編碼方案并不統(tǒng)一。下列有關(guān)漢字編碼的敘述中，錯誤的是______ A. 在我國最早頒布的漢字編碼字符集GB 2312僅包含6000多個漢字，其中沒有繁體漢字 B. 無論是GB 2312、GBK，還是GB 18030，其中西文字符均為單字節(jié)編碼，漢字均為雙字節(jié)編碼 C. 目前在互聯(lián)網(wǎng)的許多應(yīng)用中采用UTF-8編碼，該編碼方案采用可變長度字符編碼 D. 目前在Windows操作系統(tǒng)中常使用UTF-16編碼，在該編碼方案中漢字編碼使用2個字節(jié)表示 B 解析: GB 2312中字符全部采用雙字節(jié) 。 5 8、 操作系統(tǒng)是計算機中重要的一種系統(tǒng)軟件，應(yīng)用軟件必須在操作系統(tǒng)的管理和支持下運行。下列有關(guān)操作系統(tǒng)的敘述中，錯誤的是______ A. 操作系統(tǒng)承擔著資源分配和調(diào)度等任務(wù)，以保證程序正常有序地運行 B. 目前大多數(shù)操作系統(tǒng)都向用戶提供圖形用戶界面，它以窗口形式顯示程序運行狀態(tài) C. 操作系統(tǒng)通常由操作系統(tǒng)內(nèi)核和許多配套軟件、程序庫等組成 D. 所有的計算機都必須安裝操作系統(tǒng)才能工作，操作系統(tǒng)的運行不依賴任何其他軟件 D 解析: 操作系統(tǒng)啟動前依賴于底層的BIOS程序,通過引導加載程序?qū)⒉僮飨到y(tǒng)加載到內(nèi)存中并運行。 3 9、 按照軟件權(quán)益的處置方式來分類,軟件可以分為商品軟件、共享軟件、自由軟件等多種類型,下列相關(guān)敘述中,錯誤的是______ A. 所有的商品軟件都需要用戶付費購買其使用權(quán),且軟件升級均需要再次付費 B. 共享軟件通常是"買前免費試用"的具有版權(quán)的軟件,過了試用期則付費可繼續(xù)使用 C. 自由軟件倡導的軟件"非版權(quán)"原則,允許拷貝、修改和自由傳播 D. 大多數(shù)開源軟件都是多人合作,義務(wù)開發(fā)的成果,其發(fā)展促進了軟件共享和技術(shù)創(chuàng)新 A 解析:商品軟件升級有的需要付費,有的不需要付費。 3 10、 隨著互聯(lián)網(wǎng)技術(shù)和應(yīng)用的發(fā)展,Web已經(jīng)從信息發(fā)布與查詢平臺發(fā)展成為多種信息處理應(yīng)用的平臺,下列有關(guān)敘述中,錯誤的是_______ A. 靜態(tài)網(wǎng)頁通常指那些內(nèi)容基本不變的網(wǎng)頁,除非網(wǎng)頁作者(發(fā)布者)對其修改并重新發(fā)布 B. 動態(tài)網(wǎng)頁的內(nèi)容通常不是預先確定的,而是根據(jù)用戶請求提供的參數(shù)實時生成的頁面 C. Web平臺上運行的信息處理系統(tǒng)(如淘寶、京東等)都是使用動態(tài)網(wǎng)頁技術(shù)開發(fā)實現(xiàn)的 D. 目前所有的動態(tài)網(wǎng)頁都是使用微軟公司的ASP.NET技術(shù)開發(fā)而成的 D 解析:動態(tài)網(wǎng)頁技術(shù)有多種,如Asp.net, Php,Jsp等 。 3
（單選題） 下面關(guān)于自定義函數(shù)的說法，不正確的是_________。 A. 函數(shù)既可以嵌套定義，也可以嵌套調(diào)用 B. 在函數(shù)體中可以多次給函數(shù)名賦值 C. 如果使用Call語句調(diào)用函數(shù)，將放棄函數(shù)的返回值 D. 執(zhí)行函數(shù)體中的Exit Function語句，將會退出該函數(shù)，返回函數(shù)的調(diào)用處 A 解析: 函數(shù)不可以嵌套定義，可以嵌套調(diào)用 。 7 下列四條語句，能在文本框T1中顯示出“2017”字樣的有_________條語句。 A. 1 B. 2 C. 3 D. 4 C 解析: 20+”17”返回的結(jié)果是37，因為20是數(shù)值型，”17”是字符型,兩者通過+連接在一起時,會強制將字符型”17”轉(zhuǎn)換為數(shù)值型然后加在一起; 20 & “17”這里的&是強制連接符,會強制將20與17連接在一起,所以是2017; ”20”+”17”返回2017,兩者因為都是字符型,所以這里的+號是連接的意思; 17+”2e3” 因為17是數(shù)值型，”2e3”是字符型,兩者通過+連接在一起時,會強制將字符型”2e3”轉(zhuǎn)換為數(shù)值型,因為e在VB中表示10的次方,所以2e3就是2×10^3=2000,然后加上17,所以是2017 。 2 若有數(shù)組聲明：Dim a(3,-2 To 2)As Integer,則a數(shù)組共有______個元素。 A. 6 B. 12 C. 15 D. 20 D 解析:因為默認情況下,數(shù)組的下標從0開始, 所以a數(shù)組的第一維是從0到3,第二維是-2 to 2，所以是 a(0,-2), a(0,-1),a(0,0),a(0,1),a(0,2), a(1,-2), a(1,-1),a(1,0),a(1,1),a(1,2), a(2,-2), a(2,-1),a(2,0),a(2,1),a(2,2), a(3,-2), a(3,-1),a(3,0),a(3,1),a(3,2)共有20個元素。 6 以下關(guān)于名為win的Sub過程，定義正確的是__________。 A. Private Sub win(a As String * 3 , b() As Integer) B. Private Sub win(ByVal a As String , ByVal b() As Integer) C. Sub win(a As String , b(10) As Integer) D. Sub win(a() As String * 3 , b() As Integer) D 解析:A錯, 形參是定長字符串時只能是數(shù)組,不允許變量;B錯,b()是數(shù)組,作為形參時,不允許前面加Byval; C錯,數(shù)組作為形參時只能是b() 這樣寫法,不允許里面加常量。 7 1. （單選題）： a為整型變量且a = 2.5，則表達式Len(Str(12.3)) + Len(CStr(4.5)) + Len(a) + a的值為__________。 A. 10 B. 11 C. 12 D. 13 C 解析:Str的作用是將數(shù)值型轉(zhuǎn)換為字符型,并保留符號位,通過Str(12.3)將數(shù)值12.3轉(zhuǎn)換為字符 12.3,注意轉(zhuǎn)換后 12.3的前面有一個空格,所以Len(Str(12.3))的返回值是5, CStr(4.5)直接將數(shù)值型4.5轉(zhuǎn)換為字符型4.5,不保留符號位,所以Len(CStr(4.5))的返回值是3,因為a是整型,不是字符型, Len(a)返回a所占的字節(jié)數(shù),所以是2,如果a是double型,Len(a)返回結(jié)果是8,因為a是整型,當執(zhí)行a=2.5時,實際賦值給a是2,因為在VB中有個特殊約定,”當小數(shù)點只有1位時,如果個位數(shù)是偶數(shù),則五舍六入,其他情況都是四舍五入”,題目如果改為是a=2.51那么a就是3.。 2 執(zhí)行下面程序，單擊窗體，窗體上第一行顯示的內(nèi)容是____________ ，最后一行顯示的內(nèi)容是____________ 。 Option Explicit Private Sub Form_Click() Dim i As Integer, n1 As Integer, n2 As Integer n1 = 10: n2 = 1 For i = n1 To n2 Step -2 Print "8"; n1 = n1 - 1 n2 = n2 + 1 i = i - 1 Next i Print Print i Print n2 End Sub 8888@5 解析:因為文字描述不如視頻清晰,具體見視頻詳細講解。 5 執(zhí)行下面程序，單擊窗體，則窗體上顯示的第二行內(nèi)容是____________ ，第三行內(nèi)容是____________ 。 Option Explicit Private Sub Form_Click() Dim n As Integer n = 1 Call Star(n) End Sub Private Sub Star(n As Integer) Dim i As Integer If n < 4 Then Call Star(n + 1) Print n; For i = 1 To n Print "*"; Next i Print End If End Sub 2**@1* 解析: 因為文字描述不如視頻清晰,具體見視頻詳細講解。 7 執(zhí)行下面程序，單擊命令按鈕Command1，則數(shù)組元素a(1,2)的值是____________ ，a(2,1)的值是____________ ，a(3,3)的值是____________ 。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, a() As Integer k = 3: ReDim a(k, k) For i = 1 To k a(1, i) = (k - i + 1) ^ 3 Next i For i = 2 To k For j = 2 To k a(i, j) = a(i - 1, j - 1) Next j a(i, 1) = a(i - 1, k) Next i For i = 1 To k For j = 1 To k Print a(i, j); Next j Print Next i End Sub 8@1@27 解析: 因為文字描述不如視頻清晰,具體見視頻詳細講解。 7 執(zhí)行下面程序，單擊命令按鈕Command1，則窗體上顯示的第一行內(nèi)容是____________ ，第二行內(nèi)容是____________ ，第三行內(nèi)容是____________ 。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim n As Integer, i As Integer, st As String Dim ary() As Integer st = "CAD" For i = 1 To Len(st) ReDim Preserve ary(i) ary(i) = Asc(Mid(st, i, 1)) - 64 Next i Call sortary(ary) Print st For i = 1 To UBound(ary) Print Chr(ary(i) + 64); n = n * 10 + ary(i) Next i Print Print n End Sub Private Sub sortary(sort() As Integer) Dim i As Integer, j As Integer, temp As Integer For i = 1 To UBound(sort) For j = 1 To UBound(sort) - i If sort(j) < sort(j + 1) Then temp = sort(j) sort(j) = sort(j + 1) sort(j + 1) = temp End If Next j Next i End Sub CAD@DCA@431 解析: 因為文字描述不如視頻清晰,具體見視頻詳細講解。 7
1（完善程序）： 【要求】 1)打開T盤中“P1.vbp”文件，完善程序后，直接保存所有文件。 【題目】 下面程序的功能是，求出多個數(shù)（最多6個數(shù)）的最大公約數(shù)。
Option Explicit Option Base 1 Private Sub Command1_Click() Dim arr() As Long, n As Integer, i As Integer Dim m1 As Integer, n1 As Integer n = Val(InputBox("求幾個數(shù)的最大公約數(shù)？（最多求6個數(shù)）")) If n > 6 Then Exit Sub (1) For i = 1 To n arr(i) = Val(InputBox("請輸入第" & i & "個數(shù)：")) Picture1.Print arr(i); Next i Picture1.Print (2) For i = 2 To n m1 = arr(i) Call gcd(m1, n1) If n1 = 1 Then Exit For Next i Picture1.Print "以上"; n; "個數(shù)的最大公約數(shù)是："; n1 End Sub Private Sub gcd(a As Integer, b As Integer) Dim r As Integer r = a Mod b Do While (3) a = b b = r (4) Loop End Sub Redim arr(n)@ n1=arr(1)@ r<>0@ r=a mod b 參考答案 (1)Redim arr(n) (2)n1=arr(1) (3)r<>0 (4)r=a mod b 2（改錯題）： 【要求】 (1)打開T盤中“P2.vbp”文件，按參考界面形式編輯窗體界面，改正程序中的錯誤后，直接保存所有文件； (2)改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置。 【題目】本程序的功能是，生成包含10個元素的按升序排列的數(shù)組，且數(shù)組元素是不含重復數(shù)字的三位隨機數(shù)。
Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, temp As Integer, n As Integer Dim i As Integer, j As Integer Do temp = Int(Rnd * 900 + 100) If judge(temp) Then For i = 1 To n If temp < a(i) Then Exit For Next i If i <= n Then For j = n To i a(j + 1) = a(j) Next j a(i) = temp Else a(n + 1) = temp End If n = n + 1 End If Loop While n <= 10 For i = 1 To 10 Text1.Text = Text1.Text & a(i) & " " Next i End Sub Private Function judge(n As Integer) As Boolean Dim i As Integer, j As Integer, k As Integer, a() As Integer Do k = k + 1 ReDim Preserve a(k) a(k) = n Mod 10 n = n \ 10 Loop Until n <= 0 For i = 1 To k For j = i + 1 To k If a(i) = a(j) Then Exit For Next j Next i judge = True End Function For j = n To i修改為For j = n To i Step -1@ Loop While n <= 10修改為Loop While n < 10@judge(n As Integer)修改為judge(ByVal n As Integer)@ If a(i) = a(j) Then Exit For修改為If a(i) = a(j) Then Exit Function 參考答案 (1)For j = n To i修改為For j = n To i Step -1 (2) Loop While n <= 10修改為Loop While n < 10 (3)judge(n As Integer)修改為judge(ByVal n As Integer)@ (4)If a(i) = a(j) Then Exit For修改為If a(i) = a(j) Then Exit Function 3（編程題）： 【要求】 (1)打開T盤中“P3.vbp”文件，根據(jù)題目要求編寫和調(diào)試程序后，直接保存所有文件； (2)程序代碼書寫應(yīng)呈鋸齒形，否則適當扣分。 【題目】 編寫程序，找出指定范圍內(nèi)的所有半素數(shù)。半素數(shù)，是指可以表示為兩個素數(shù)乘積的自然數(shù)。 【編程要求】 (1)程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； (2)運行程序，先在文本框中輸入查找的范圍，然后單擊“查找”按鈕，將指定范圍內(nèi)所有的半素數(shù)按要求的格式輸出到列表框中；單擊“清空”按鈕，將文本框和列表框清空，并將焦點設(shè)置到“從”文本框上；單擊“退出”按鈕，結(jié)束程序運行； (3)程序中至少應(yīng)定義一個通用過程，用于判斷整數(shù)是否是素數(shù)。
Option Explicit Option Base 1 Private Sub Command1_Click() Dim n1 As Integer, n2 As Integer Dim i As Integer, j As Integer n1 = Text1.Text n2 = Text2.Text For i = n1 To n2 For j = 2 To Sqr(i) If i / j = Int(i / j) Then If prime(j) And prime(i / j) Then List1.AddItem i & "=" & j & "*" & i / j End If End If Next j Next i End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" List1.Clear Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub Private Function prime(n As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(n) If n Mod i = 0 Then Exit Function Next i prime = True End Function |
