1.         根據不同的應用需求，數字音頻采用的編碼方法有多種，文件格式也各不相同。下列的音頻格式中，由微軟公司開發的，采用未壓縮方法編碼的是____。

A. WAV

B. MP3

C. AAC

D. WMA

A

解析:MP3是一種音頻壓縮技術，由于這種壓縮方式的全稱叫MPEG Audio Layer3，所以人們把它簡稱為MP3,WMA是微軟制訂的音頻壓縮文件格式，比mp3標準晚，比mp3還小，比mp3音質還好, WAV是微軟公司（Microsoft)開發的一種聲音文件格式, 采用未壓縮編碼方式。

5

2.         下列有關IP地址(IPv4)和路由器的敘述中，錯誤的是_____。

A. 每個IP地址使用32個字節的二進制數表示，在使用中通常寫成“點分十六進制”的形式

B. IP地址分為五類，其中A類、B類和C類是三個基本類，每類有不同長度的網絡號和主機號

C. IP地址空間的分配由國際組織ICANN負責，目前IP地址空間已分配完畢

D. 路由器是連接異構網絡的關鍵設備，一臺路由器會擁有（使用）多個不同的IP地址

A

解析: 每個IP地址使用32個字節的二進制數表示，在使用中通常寫成“點分十進制”的形式  。

4

3.         字符集及其編碼是計算機中表示、存儲、處理和交換文本信息的基礎，但由于歷史原因，目前不同系統或應用中使用的字符編碼方案并不統一。下列編碼方案中，所有字符均采用等長編碼（編碼長度相同）的是______。

A. GB2312

B. GB18030

C. UTF-8

D. UTF-16

A

解析: GB2312編碼:是我國1981年頒布的第一個國標,該標準選出6763個常用漢字和682個非漢字字符,所有字符采用2字節編碼; GB18030:包含漢字23940個,與GB2312與GBK保持兼容。同時與UCS也接軌,在我國信息處理產品中強制執行,ASCII采用1字節編碼,漢字采用2字節編碼,其他采用4字節編碼; UCS:國際標準化組織(ISO)制定了一個將全世界所有文字與符號集中進行統一編碼,稱為UCS,與其等同的是由微軟等公司共同制定的工業標準Unicode,UCS有兩種標準UTF-8和UTF-16,UTF-8采用ASCII碼用1個字節編碼,拉丁字母,標點符號等采用2字節編碼,漢字采用3個字節編碼,其他極少字符采用4字節編碼,UCS-16是指ASCII和漢字都采用2字節編碼,其他不常用字符采用4字節編碼,在Windows中文版上現在使用UTF-16,也是Java,.NET軟件開發環境等默認的編碼標準。

5

4.         TCP/IP模型將計算機網絡分成下列4層，每一層都包含若干個協議。在TCP/IP模型中，HTTP協議工作在______。

A. 接口層

B. 互連層

C. 傳輸層

D. 應用層

D

解析: TCP/IP包括了100多個協議,將通信問題劃分為四個層次,從高到低依次是應用層、傳輸層、網絡互連層、網絡接口與硬件層,應用層規定了運行在不同主機上的應用程序之間如何通過互連的網絡進行通信,包括的協議如HTTP,SMTP,FTP,TELNET等;傳輸層規定了怎樣進行端-端的數據傳輸,有TCP和UDP兩個協議,TCP協議負責可靠的完成數據從發送計算機到接收計算機的傳輸,UDP是不可靠的數據傳輸協議, 例如音頻和視頻數據的傳輸;網絡互連層規定了在整個互連的網絡中所有計算機統一使用的編址方案和數據包格式(稱為IP數據報),以及IP數據報的轉發機制;網絡接口與硬件層規定了怎樣與各種不同的網絡進行接口,并負責將IP包轉換成適合在特定網絡中傳輸的幀格式  。

4

5.         下列有關計算機網絡組成、分類和工作模式等敘述中，錯誤的是______。

A. 按網絡所覆蓋的地域范圍來分，人們常將計算機網絡分為LAN、ATM、WLAN等類型

B. 有些廣域網是一些機構或組織自行構建的專用網，有些是網絡運營商構建的公用數據網

C. 網絡協議是計算機網絡的重要組成部分，目前互聯網主要采用TCP/IP協議系列

D. 計算機網絡有兩種基本工作模式，即P2P工作模式和C/S工作模式

A

解析: 按網絡所覆蓋的地域范圍來分分為局域網(LAN)、城域網(MAN)、廣域網(WAN)  。

4

6.         下列有關計算機的邏輯組成和分類的敘述中，錯誤的是______。

A. 一臺計算機中往往有多個處理器，它們各有其不同的處理任務，其中CPU是核心部件

B. 主存儲器與CPU高速連接，用來存放已經啟動運行的程序代碼和需要處理的數據

C. 人們提及PC時，泛指臺式機、筆記本電腦、智能手機和平板電腦等個人使用的計算機

D. 嵌入式計算機是內嵌在其他設備中的專用計算機，許多嵌入式計算機都把軟件固化在芯片中

C

解析: 人們提及PC時，泛指臺式機、筆記本電腦等個人使用的計算機  。(注: 一臺計算機中往往有多個處理器,如CPU,圖形處理器等)

2

7.         字符集及其編碼是計算機中表示、存儲、處理和交換文本信息的基礎，但由于歷史原因，目前不同系統或應用中使用的字符編碼方案并不統一。下列編碼方案中，目前在我國信息處理產品中強制貫徹執行的是____。

A. GB 2312

B. GBK

C. GB 18030

D. UCS/Unicode

C

解析: GB18030:包含漢字23940個,與GB2312與GBK保持兼容。同時與UCS也接軌,在我國信息處理產品中強制執行。

5

8.         在現代通信系統中，為了能有效地提高數據鏈路的利用率、降低通信成本，一般使用多路復用技術讓多路信號同時共用一條傳輸線進行傳輸。用戶通過電話線使用ADSL技術接入互聯網時，ADSL技術接入方式主要是使用了______。

A. TDM

B. WDM

C. FDM

D. CDM

C

解析:時分多路復用(TDM)是各終端設備按不同時間來輪流使用同一線路來傳輸數據,是計算機網絡傳輸使用的主要方式,頻分多路復用(FDM)是將不同信源發出的信號調制在不同頻率的載波上,波分多路復用(WDM)是在一根光纖傳輸不同波長的光波。碼分是指每個用戶分配一個地址碼,各個碼型互不重疊,通信各方之間不會相互干擾,且抗干攏能力強  。

4

9.         光盤是目前常見的輔助存儲器。下列相關敘述中，錯誤的是____。

A. 光盤存儲器由光盤驅動器和光盤片兩部分組成，光盤的基片是鋁合金材料

B. 從接口來看，目前內置DVD光驅與主機的接口主要是SATA，外置的主要是USB

C. DVD光盤分為單面單層、單面雙層等多種類型，目前最常用的是單面單層的盤片

D. BD光驅采用波長較短的藍色激光在光盤上進行數據讀寫，因而提高了光盤存儲容量

A

解析: 光盤的基片是耐熱的有機玻璃 。

2

10.     在微軟公司的Office軟件中內置了一種程序設計語言，用戶可以使用它來編寫程序以擴展功能。該語言是_____。

A. VBA

B. VBScript

C. Java

D. C#

A

解析: VBA用于編寫程序來擴展Office軟件的功能,VBScript用于嵌入到Html文檔中以擴充網頁的功能,Java用于網絡編程,包括編寫安卓智能手機的App,Object-C語言是iPhone和iPad編程的語言, Lisp語言與PROLOG語言主要用于人工智能,Ada語言用于飛行器控制,MATLAB是一種面向向量和矩陣運算的數值計算語言。

3

1（單選題）：

可以作為VB應用程序啟動對象的是______。
①標準模塊   ②窗體模塊   ③Sub Main   ④事件過程

A. ①④

B. ①②

C. ③④

D. ②③

D

解析:在VB中,能作為啟動對象的包括窗體模塊,sub main過程。

3

表達式37.6 Mod 5的結果數據類型為______。

A. 整型

B. 長整型

C. 單精度

D. 雙精度

B

解析:Mod運算符的作用是取余數,要求Mod左右兩邊都是整型或長整型,首先將雙精度類型37.6轉換為長整型38,然后再執行38 Mod 5,根據VB約定,兩個不同的類型的數值運算時返回的是占字節多的類型,因為長整型數值38占4個字節,整型5占2個字節,所以得到結果長整型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函數的敘述，錯誤的是________。

A. 該函數可以接收數值型常量作為其參數

B. 該函數可以接收數值型變量作為其參數

C. 該函數可以接收字符型常量作為其參數

D. 若該函數的參數為非字符型變量，則其返回該類型變量所占用的存儲空間的大小

A

解析: 該函數不可以接收數值型常量作為其參數 。

3

Sub過程與Function過程最根本的區別是____。

A.  Sub過程使用Call語句或直接使用過程名調用，而Function過程不可以

B.  Function過程可以有參數，Sub過程不可以

C.  兩種過程參數的傳遞方式不同

D.  Sub過程的過程名不能返回值，而Function可以

D

解析: Sub過程的過程名不能返回值，而Function過程名可以返回值是兩者最根本的區別。

7

6 （填空題 <2空> ） ：

執行下面程序，單擊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空> ） ：

執行下面程序，單擊Command1按鈕，則窗體上顯示的數組元素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空> ） ：

執行下面程序，單擊命令按鈕Command1，窗體上顯示的第一行內容是____________   ，a數組元素的個數是____________   ，其中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空> ） ：

執行下面程序，單擊命令按鈕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個不含數字0且由5位不同數字組成的整數，再將所生成的五位整數轉換為由組成該數的數字構成的最小整數后輸出。

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的數組，并根據數組中元素的大小生成一個標記數組。在標記數組中字母“L”表示數組的對應位置元素為最大，字母“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”文件，根據題目要求編寫和調試程序后，直接保存所有文件；

(2)程序代碼書寫應呈鋸齒形，否則適當扣分。

【題目】

找出任意給定的兩個自然數的相同因子（因子中不包含1和該數本身）。

【編程要求】

(1)程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見；

(2)運行程序，單擊“查找”按鈕，根據文本框1和文本框2中給定的數字，分別求出它們除1和本身外的因子，并最終求出這兩個數的相同因子輸出在文本框3中，若兩個數沒有相同因子，則在文本框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 & "沒有相同的因子數:"

  Else

    Text3.Text = Text3.Text & "相同的因子數:"

    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

因為文字描述不如視頻清晰,請查看自帶的本題目的視頻詳細講解