|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2018年3月江蘇省計算機二級VB考試真題第1套 |
|
1. 根據(jù)不同的應用需求，數(shù)字音頻采用的編碼方法有多種，文件格式也各不相同。下列的音頻格式中，由微軟公司開發(fā)的，采用未壓縮方法編碼的是____。 A. WAV B. MP3 C. AAC D. WMA A 解析:MP3是一種音頻壓縮技術，由于這種壓縮方式的全稱叫MPEG Audio Layer3，所以人們把它簡稱為MP3,WMA是微軟制訂的音頻壓縮文件格式，比mp3標準晚，比mp3還小，比mp3音質還好, WAV是微軟公司（Microsoft)開發(fā)的一種聲音文件格式, 采用未壓縮編碼方式。 5 2. 下列有關IP地址(IPv4)和路由器的敘述中，錯誤的是_____。 A. 每個IP地址使用32個字節(jié)的二進制數(shù)表示，在使用中通常寫成“點分十六進制”的形式 B. IP地址分為五類，其中A類、B類和C類是三個基本類，每類有不同長度的網(wǎng)絡號和主機號 C. IP地址空間的分配由國際組織ICANN負責，目前IP地址空間已分配完畢 D. 路由器是連接異構網(wǎng)絡的關鍵設備，一臺路由器會擁有（使用）多個不同的IP地址 A 解析: 每個IP地址使用32個字節(jié)的二進制數(shù)表示，在使用中通常寫成“點分十進制”的形式 。 4 3. 字符集及其編碼是計算機中表示、存儲、處理和交換文本信息的基礎，但由于歷史原因，目前不同系統(tǒng)或應用中使用的字符編碼方案并不統(tǒng)一。下列編碼方案中，所有字符均采用等長編碼（編碼長度相同）的是______。 A. GB2312 B. GB18030 C. UTF-8 D. UTF-16 A 解析: GB2312編碼:是我國1981年頒布的第一個國標,該標準選出6763個常用漢字和682個非漢字字符,所有字符采用2字節(jié)編碼; GB18030:包含漢字23940個,與GB2312與GBK保持兼容。同時與UCS也接軌,在我國信息處理產品中強制執(zhí)行,ASCII采用1字節(jié)編碼,漢字采用2字節(jié)編碼,其他采用4字節(jié)編碼; UCS:國際標準化組織(ISO)制定了一個將全世界所有文字與符號集中進行統(tǒng)一編碼,稱為UCS,與其等同的是由微軟等公司共同制定的工業(yè)標準Unicode,UCS有兩種標準UTF-8和UTF-16,UTF-8采用ASCII碼用1個字節(jié)編碼,拉丁字母,標點符號等采用2字節(jié)編碼,漢字采用3個字節(jié)編碼,其他極少字符采用4字節(jié)編碼,UCS-16是指ASCII和漢字都采用2字節(jié)編碼,其他不常用字符采用4字節(jié)編碼,在Windows中文版上現(xiàn)在使用UTF-16,也是Java,.NET軟件開發(fā)環(huán)境等默認的編碼標準。 5 4. TCP/IP模型將計算機網(wǎng)絡分成下列4層，每一層都包含若干個協(xié)議。在TCP/IP模型中，HTTP協(xié)議工作在______。 A. 接口層 B. 互連層 C. 傳輸層 D. 應用層 D 解析: TCP/IP包括了100多個協(xié)議,將通信問題劃分為四個層次,從高到低依次是應用層、傳輸層、網(wǎng)絡互連層、網(wǎng)絡接口與硬件層,應用層規(guī)定了運行在不同主機上的應用程序之間如何通過互連的網(wǎng)絡進行通信,包括的協(xié)議如HTTP,SMTP,FTP,TELNET等;傳輸層規(guī)定了怎樣進行端-端的數(shù)據(jù)傳輸,有TCP和UDP兩個協(xié)議,TCP協(xié)議負責可靠的完成數(shù)據(jù)從發(fā)送計算機到接收計算機的傳輸,UDP是不可靠的數(shù)據(jù)傳輸協(xié)議, 例如音頻和視頻數(shù)據(jù)的傳輸;網(wǎng)絡互連層規(guī)定了在整個互連的網(wǎng)絡中所有計算機統(tǒng)一使用的編址方案和數(shù)據(jù)包格式(稱為IP數(shù)據(jù)報),以及IP數(shù)據(jù)報的轉發(fā)機制;網(wǎng)絡接口與硬件層規(guī)定了怎樣與各種不同的網(wǎng)絡進行接口,并負責將IP包轉換成適合在特定網(wǎng)絡中傳輸?shù)膸袷?/SPAN> 。 4 5. 下列有關計算機網(wǎng)絡組成、分類和工作模式等敘述中，錯誤的是______。 A. 按網(wǎng)絡所覆蓋的地域范圍來分，人們常將計算機網(wǎng)絡分為LAN、ATM、WLAN等類型 B. 有些廣域網(wǎng)是一些機構或組織自行構建的專用網(wǎng)，有些是網(wǎng)絡運營商構建的公用數(shù)據(jù)網(wǎng) C. 網(wǎng)絡協(xié)議是計算機網(wǎng)絡的重要組成部分，目前互聯(lián)網(wǎng)主要采用TCP/IP協(xié)議系列 D. 計算機網(wǎng)絡有兩種基本工作模式，即P2P工作模式和C/S工作模式 A 解析: 按網(wǎng)絡所覆蓋的地域范圍來分分為局域網(wǎng)(LAN)、城域網(wǎng)(MAN)、廣域網(wǎng)(WAN) 。 4 6. 下列有關計算機的邏輯組成和分類的敘述中，錯誤的是______。 A. 一臺計算機中往往有多個處理器，它們各有其不同的處理任務，其中CPU是核心部件 B. 主存儲器與CPU高速連接，用來存放已經啟動運行的程序代碼和需要處理的數(shù)據(jù) C. 人們提及PC時，泛指臺式機、筆記本電腦、智能手機和平板電腦等個人使用的計算機 D. 嵌入式計算機是內嵌在其他設備中的專用計算機，許多嵌入式計算機都把軟件固化在芯片中 C 解析: 人們提及PC時，泛指臺式機、筆記本電腦等個人使用的計算機 。(注: 一臺計算機中往往有多個處理器,如CPU,圖形處理器等) 2 7. 字符集及其編碼是計算機中表示、存儲、處理和交換文本信息的基礎，但由于歷史原因，目前不同系統(tǒng)或應用中使用的字符編碼方案并不統(tǒng)一。下列編碼方案中，目前在我國信息處理產品中強制貫徹執(zhí)行的是____。 A. GB 2312 B. GBK C. GB 18030 D. UCS/Unicode C 解析: GB18030:包含漢字23940個,與GB2312與GBK保持兼容。同時與UCS也接軌,在我國信息處理產品中強制執(zhí)行。 5 8. 在現(xiàn)代通信系統(tǒng)中，為了能有效地提高數(shù)據(jù)鏈路的利用率、降低通信成本，一般使用多路復用技術讓多路信號同時共用一條傳輸線進行傳輸。用戶通過電話線使用ADSL技術接入互聯(lián)網(wǎng)時，ADSL技術接入方式主要是使用了______。 A. TDM B. WDM C. FDM D. CDM C 解析:時分多路復用(TDM)是各終端設備按不同時間來輪流使用同一線路來傳輸數(shù)據(jù),是計算機網(wǎng)絡傳輸使用的主要方式,頻分多路復用(FDM)是將不同信源發(fā)出的信號調制在不同頻率的載波上,波分多路復用(WDM)是在一根光纖傳輸不同波長的光波。碼分是指每個用戶分配一個地址碼,各個碼型互不重疊,通信各方之間不會相互干擾,且抗干攏能力強 。 4 9. 光盤是目前常見的輔助存儲器。下列相關敘述中，錯誤的是____。 A. 光盤存儲器由光盤驅動器和光盤片兩部分組成，光盤的基片是鋁合金材料 B. 從接口來看，目前內置DVD光驅與主機的接口主要是SATA，外置的主要是USB C. DVD光盤分為單面單層、單面雙層等多種類型，目前最常用的是單面單層的盤片 D. BD光驅采用波長較短的藍色激光在光盤上進行數(shù)據(jù)讀寫，因而提高了光盤存儲容量 A 解析: 光盤的基片是耐熱的有機玻璃 。 2 10. 在微軟公司的Office軟件中內置了一種程序設計語言，用戶可以使用它來編寫程序以擴展功能。該語言是_____。 A. VBA B. VBScript C. Java D. C# A 解析: VBA用于編寫程序來擴展Office軟件的功能,VBScript用于嵌入到Html文檔中以擴充網(wǎng)頁的功能,Java用于網(wǎng)絡編程,包括編寫安卓智能手機的App,Object-C語言是iPhone和iPad編程的語言, Lisp語言與PROLOG語言主要用于人工智能,Ada語言用于飛行器控制,MATLAB是一種面向向量和矩陣運算的數(shù)值計算語言。 3
1（單選題）： 可以作為VB應用程序啟動對象的是______。 A. ①④ B. ①② C. ③④ D. ②③ D 解析:在VB中,能作為啟動對象的包括窗體模塊,sub main過程。 3 表達式37.6 Mod 5的結果數(shù)據(jù)類型為______。 A. 整型 B. 長整型 C. 單精度 D. 雙精度 B 解析:Mod運算符的作用是取余數(shù),要求Mod左右兩邊都是整型或長整型,首先將雙精度類型37.6轉換為長整型38,然后再執(zhí)行38 Mod 5,根據(jù)VB約定,兩個不同的類型的數(shù)值運算時返回的是占字節(jié)多的類型,因為長整型數(shù)值38占4個字節(jié),整型5占2個字節(jié),所以得到結果長整型3,如果直接寫 37 mod 5因為37與5都是整型,所以返回結果整型2 。 3 在多窗體程序中，僅用于將窗體Form2從內存中卸載的語句是______。 A. Form2.Unload B. Unload Form2 C. End D. Form2.Hide B 解析:A選項沒有這種寫法,C選項是結束整個程序運行,D選項是Form2隱藏。 2 下列關于Len函數(shù)的敘述，錯誤的是________。 A. 該函數(shù)可以接收數(shù)值型常量作為其參數(shù) B. 該函數(shù)可以接收數(shù)值型變量作為其參數(shù) C. 該函數(shù)可以接收字符型常量作為其參數(shù) D. 若該函數(shù)的參數(shù)為非字符型變量，則其返回該類型變量所占用的存儲空間的大小 A 解析: 該函數(shù)不可以接收數(shù)值型常量作為其參數(shù) 。 3 Sub過程與Function過程最根本的區(qū)別是____。 A. Sub過程使用Call語句或直接使用過程名調用，而Function過程不可以 B. Function過程可以有參數(shù)，Sub過程不可以 C. 兩種過程參數(shù)的傳遞方式不同 D. Sub過程的過程名不能返回值，而Function可以 D 解析: Sub過程的過程名不能返回值，而Function過程名可以返回值是兩者最根本的區(qū)別。 7 6 （填空題 <2空> ） ： 執(zhí)行下面程序，單擊Command1按鈕，則a(1)的值是____________ ，a(4)的值是____________ 。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(4) As Integer, i As Integer For i = 1 To 4 a(i) = F1(a, i) + a(i) Next i For i = 1 To 4 Print a(i) Next i End Sub Private Function F1(a() As Integer, x As Integer) As Integer Dim i As Integer If i Mod 2 <> 0 Then a(x) = x Else F1 = F1 + x End If End Function 1@4 解析: 因為文字描述不如視頻清晰,具體見視頻詳細講解 7 7 （填空題 <2空> ） ： 執(zhí)行下面程序，單擊Command1按鈕，則窗體上顯示的數(shù)組元素a(2)的值是____________ ，a(3)的值是____________ 。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(3) As Integer, b As Integer, i As Integer For i = 1 To 3 a(i) = i Next i b = UBound(a) Call sub1(a, b) For i = 1 To 3 Print a(i); Next i End Sub Private Sub sub1(m() As Integer, n As Integer) If n > 1 Then m(n) = m(n) + n Call sub1(m, n - 1) End If End Sub 4@6 解析: 因為文字描述不如視頻清晰,具體見視頻詳細講解 7 8 （填空題 <3空> ） ： 執(zhí)行下面程序，單擊命令按鈕Command1，窗體上顯示的第一行內容是____________ ，a數(shù)組元素的個數(shù)是____________ ，其中a(2)的值是____________ 。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim St As String, i As Integer Dim a() As String, j As Integer, k As Integer St = "abcd" Call Sub1(St) Print St For i = 1 To Len(St) For j = i + 1 To Len(St) If Mid(St, i, 1) = Mid(St, j, 1) Then Exit For Next j If j <= Len(St) Then k = k + 1 ReDim Preserve a(k) a(k) = Mid(St, i, 1) Print a(k) End If Next i End Sub Private Sub Sub1(S As String) Dim i As Integer For i = 1 To Len(S) \ 2 Mid(S, i, 1) = Mid(S, Len(S) - i + 1, 1) Next i End Sub dccd@2@c 解析: 因為文字描述不如視頻清晰,具體見視頻詳細講解 7 9 （填空題 <3空> ） ： 執(zhí)行下面程序，單擊命令按鈕Command1，則a(1,2)的值是____________ ，a(2,3)的值是____________ ，a(3,3)的值是____________ 。 Option Explicit Option Base 1 Private a(3, 3) As Integer Private Sub Form_Activate() Dim i As Integer, j As Integer, k As Integer k = 1 For i = 1 To 3 For j = 1 To 3 a(i, j) = k k = k + 1 Next j Next i End Sub Private Sub Command1_Click() Dim b(4) As Integer, i As Integer, j As Integer, t As Integer b(1) = 2 For i = 2 To 4 b(i) = i - 1 Next i t = a(b(1), b(4)) a(b(1), b(4)) = a(b(2), b(1)) a(b(2), b(1)) = a(b(3), b(2)) a(b(3), b(2)) = a(b(4), b(3)) a(b(4), b(3)) = t For i = 1 To 3 For j = 1 To 3 Print a(i, j); Next j Print Next i End Sub 4@2@9 解析: 因為文字描述不如視頻清晰,具體見視頻詳細講解 7 1（完善程序）： 【要求】 1)打開T盤中“P1.vbp”文件，完善程序后，直接保存所有文件。 【題目】 下面程序的功能是，隨機生成10個不含數(shù)字0且由5位不同數(shù)字組成的整數(shù)，再將所生成的五位整數(shù)轉換為由組成該數(shù)的數(shù)字構成的最小整數(shù)后輸出。
Option Explicit Private Sub Command1_Click() Dim a(1 To 10) As Long, b(0 To 9) As Boolean, c(1 To 5) As Integer Dim i As Integer, j As Integer, k As Integer, n As Long For i = 1 To 10 n = Int(Rnd * 90000) + 10000 Erase b b(0) = True For j = 1 To 5 c(j) = Mid(n, j, 1) If b(c(j)) = False Then b(c(j)) = True Else (1) End If Next j If j = 6 Then Call Sort(c) For k = 1 To 5 a(i) = a(i) * 10 + c(k) Next k List1.AddItem a(i) Else (2) End If Next i End Sub Private Sub Sort(a() As Integer) Dim i As Integer, t As Integer, ub As Integer, f As Boolean ub = UBound(a) f = True Do While f (3) ub = ub - 1 For i = 1 To ub If a(i) > a(i + 1) Then f = True (4) a(i) = a(i + 1) a(i + 1) = t End If Next i Loop End Sub Exit For@i=i-1@f=false@t=a(i) (1)Exit For (2)i=i-1 (3)f=false (4)t=a(i) 因為文字描述不如視頻清晰,請查看自帶的本題目的視頻詳細講解 2（改錯題）： 【要求】 (1)打開T盤中“P2.vbp”文件，按參考界面形式編輯窗體界面，改正程序中的錯誤后，直接保存所有文件； (2)改錯時，不得增加或刪除語句，但可適當調整語句位置。 【題目】本程序的功能是：生成一個4×4的數(shù)組，并根據(jù)數(shù)組中元素的大小生成一個標記數(shù)組。在標記數(shù)組中字母“L”表示數(shù)組的對應位置元素為最大，字母“S”表示隨組的對應位置元素為最�。ㄈ舸嬖诙鄠�相等的最大或最小元素也用字母“L”與“S”標記），其他非最大最小元素均用“0”表示。
Option Explicit Dim a(4, 4) As Variant, i As Integer, j As Integer Private Sub Command1_Click() For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 90) + 10 Next j Next i Call printsz(Picture1) End Sub Private Sub Command2_Click() Dim Max As Integer, Min As Integer, a(4, 4) As Integer Max = 0 Min = 0 For i = 1 To 4 For j = 1 To 4 If a(i, j) > Max Then Max = a(i, j) If a(i, j) < Min Then Min = a(i, j) Next j Next i Call bj(Max, Min) End Sub Private Sub bj(m As Integer, n As Integer) For i = 1 To 4 For j = 1 To 4 If a(i, j) = m Then a(i, j) = L ElseIf a(i, j) = n Then a(i, j) = S Else a(i, j) = "0" End If Next j Next i Call printsz(Picture2) End Sub Private Sub printsz(pic As Control) pic.Cls For i = 1 To 4 For j = 1 To 4 pic.Print a(i, j); " "; Next j pic.Print Next i End Sub Dim Max As Integer, Min As Integer, a(4, 4) As Integer修改為Dim Max As Integer, Min As Integer@ Max = 0修改為Max=a(1,1) Min = 0修改為Min=a(1,1)@ a(i, j) = L修改為a(i, j) = “L”@ a(i, j) = S修改為a(i, j) = “S” (1)Dim Max As Integer, Min As Integer, a(4, 4) As Integer修改為Dim Max As Integer, Min As Integer@ (2)Max = 0修改為Max=a(1,1) Min = 0修改為Min=a(1,1) (3)a(i, j) = L修改為a(i, j) = “L” (4)a(i, j) = S修改為a(i, j) = “S” 因為文字描述不如視頻清晰,請查看自帶的本題目的視頻詳細講解 3（編程題）： 【要求】 (1)打開T盤中“P3.vbp”文件，根據(jù)題目要求編寫和調試程序后，直接保存所有文件； (2)程序代碼書寫應呈鋸齒形，否則適當扣分。 【題目】 找出任意給定的兩個自然數(shù)的相同因子（因子中不包含1和該數(shù)本身）。 【編程要求】 (1)程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； (2)運行程序，單擊“查找”按鈕，根據(jù)文本框1和文本框2中給定的數(shù)字，分別求出它們除1和本身外的因子，并最終求出這兩個數(shù)的相同因子輸出在文本框3中，若兩個數(shù)沒有相同因子，則在文本框3中輸出”沒有相同因子”；單擊“退出”按鈕，則結束程序運行； (3)程序中必須包含一個求因子的通用過程。
Option Explicit Option Base 1 Private Sub Command1_Click() Dim a() As Integer, b() As Integer, c() As Integer Dim n1 As Integer, n2 As Integer Dim i As Integer, j As Integer, k As Integer n1 = Text1.Text n2 = Text2.Text Call yinzi(n1, a) Call yinzi(n2, b) For i = 1 To UBound(a) For j = 1 To UBound(b) If a(i) = b(j) Then k = k + 1 ReDim Preserve c(k) c(k) = a(i) End If Next j Next i Text3.Text = n1 & "的因子: " For i = 1 To UBound(a) Text3.Text = Text3.Text & a(i) & " " Next i Text3.Text = Text3.Text & vbCrLf Text3.Text = Text3.Text & n2 & "的因子: " For i = 1 To UBound(b) Text3.Text = Text3.Text & b(i) & " " Next i Text3.Text = Text3.Text & vbCrLf If k = 0 Then Text3.Text = Text3.Text & "沒有相同的因子數(shù):" Else Text3.Text = Text3.Text & "相同的因子數(shù):" For i = 1 To UBound(c) Text3.Text = Text3.Text & c(i) & " " Next i End If End Sub Private Sub Command2_Click() End End Sub Private Sub yinzi(n As Integer, c() As Integer) Dim i As Integer, k As Integer For i = 2 To n - 1 If n Mod i = 0 Then k = k + 1 ReDim Preserve c(k) c(k) = i End If Next i End Sub 因為文字描述不如視頻清晰,請查看自帶的本題目的視頻詳細講解 |
