2015年10月江蘇省計算機二級VB真考題目

1.         信息技術指的是用來擴展人的信息器官功能、協助人們進行信息處理的一類技術。在下列基本信息技術中,用于擴展人的效應器官功能的是____。

A．感測與識別技術

B．通信與存儲技術

C．計算與處理技術

D．控制與顯示技術

D

解析:擴展人的感覺器官(眼,耳等五官)功能的是感測與識別技術,擴展神經系統功能的通信技術,擴展大腦功能的計算與存儲技術,擴展效應器官(手,腳等)功能的控制與顯示技術。

1

2.         數據通信中數據傳輸速率是最重要的性能指標之一,它指單位時間內傳送的二進位數目,計量單位Gb/s的正確含義是________。

A．兆位每秒

B．千兆位每秒

C．百兆位每秒

D．百萬位每秒

B

解析:1Kb/s=1000b/s, 1Mb/s=1000Kb/s,1Gb/s=1000Mb/s。注意與B的區別1KB=1024B,1MB=1024KB,1GB=1024MB。

1

3.         下列關于PC CPU的敘述中,錯誤的是______。

A．目前CPU芯片的主頻越來越高,主流CPU芯片的主頻已超過10 GHz

B．目前Intel公司的Core i7是一種高端CPU芯片,它有4個或6個內核

C．AMD公司也是重要的PC CPU生產廠商,其CPU芯片與Intel保持指令系統兼容

D．為了提高CPU性能,目前主流CPU芯片都采用了流水線處理技術和超線程技術

A

解析:主流CPU芯片的主頻一般在3GHz左右。

2

4.         USB是一種可以連接多個設備的總線式串行接口,目前在PC及各種數字設備中普遍使用。在下列相關敘述中,錯誤的是____。

A．通過USB接口與PC連接的外部設備均不需要外接電源,所有設備均通過USB接口提供電源

B．USB符合"即插即用"(PnP)規范,USB接口支持熱插拔

C．USB 2.0接口使用4線連接器,其連接器分為A型、B型等類型

D．USB 3.0的最高數據傳輸速率可達數百兆字節每秒

A

解析:USB接口提供+5V電源,如果外部設備的工作電壓超過+5V就無法工作,如打印機等外部設備的工作電壓遠遠高于+5V

2

5.         下列有關操作系統的敘述中,錯誤的是______。

A．目前個人計算機和移動設備使用的操作系統主要有Windows、iOS和Android等

B．UNIX和Linux這兩種操作系統曾經流行,目前基本無用戶使用

C．Windows操作系統采用并發多任務方式支持系統中多個任務的執行

D．在一臺個人計算機中用戶可以安裝兩個不同版本的Windows操作系統

B

解析:UNIX與Linux操作系統與Windows操作系統適用的范圍有區別,UNIX與Linux除了用于一些大型服務器上面,Linux還用在平板電腦,智能手機,嵌入式,用的人非常多。

3

6.         下列關于程序設計語言的敘述中,錯誤的是_____。

A．雖然機器語言不易記憶、機器語言程序難以閱讀和理解,但目前還是有很多人使用其編寫程序

B．匯編語言與計算機的指令系統密切相關,不同類型的計算機,其匯編語言通常不同

C．VBScript語言是VB的子集,用其編寫的程序可以嵌入在HTML文檔中以擴充網頁的功能

D．Java語言是一種適用于網絡環境的程序設計語言,目前許多手機軟件就是用Java語言編寫的

A

解析: 機器語言程序難以閱讀和理解,幾乎沒有人使用其編寫程序

3

7.         在下列有關通信技術的敘述中,錯誤的是____。

A．通信的基本任務是傳遞信息,因而至少需由信源、信宿和信道組成

B．通信可分為模擬通信和數字通信,計算機網絡屬于數字通信

C．在通信系統中,采用多路復用技術的目的主要是提高傳輸線路的傳輸速率和距離

D．學校的計算機機房一般采用5類無屏蔽雙絞線作為局域網的傳輸介質

C

解析: 采用多路復用技術的目的主要是提高傳輸線路的利用率

4

8.         因特網的IP地址由三個部分構成,從左到右分別代表_________ 。

A.類型號、網絡號和主機號

B.網絡號、主機號和類型號

C.網絡號、類型號和主機號

D.主機號、網絡號和類型號

A

解析:分別對應類型號,網絡號,主機號。

4

9.         以下關于漢字編碼標準的敘述中,錯誤的是_____。

A．Unicode和GB 18030中的漢字編碼是相同的

B．GB 18030漢字編碼標準兼容GBK標準和GB 2312標準

C．我國臺灣地區使用的漢字編碼標準主要是BIG5

D．GB 18030編碼標準收錄的漢字數目超過2萬個

A

解析:GB18030中漢字使用2個字節來表示,共包含23940個漢字,Unicode中的漢字是將中日韓越等多個國家的漢字組合在一起,字形相同編碼就一致,不論其語音和發音是否相同。GB18030與Unicode兩者所使用的漢字編碼是完全不同的。

5

10.     顏色空間的類型,指彩色圖像所使用的顏色描述方法,也叫顏色模型。下列顏色模型中,彩色打印機通常使用的是_____。

A．RGB模型

B．CMYK模型

C．HSB模型

D．YUV模型

B

解析:顯示器使用RGB(紅,綠,藍)模型,彩色打印機使用CMYK(青,品紅,黃,黑)模型,圖像編輯軟件使用HSB(色彩,飽和度,亮度)模型,彩色信號傳輸使用YUV(亮度、色度)模型。

5

【程序設計理論】

11.     以下所列的5個控件中,具有Caption屬性的有_______個。
①CommandButton（命令按鈕）  ②Frame（框架）③OptionButton（單選按鈕）④ListBox(列表框)  ⑤TextBox（文本框）

A．5

B．4

C．3

D．2

C

解析:具有Caption屬性的常用控件包括CommandButton,Frame,Lable,OptionButton,CheckBox

3

12.     "A≥B>C"對應的正確的VB表達式是____________。

A．A>=B And >C

B．A>=B>C

C．A>=B Or B>C

D．A>=B And B>C

D

解析:A選項語法有錯誤 。B選項首先運行A>=B返回假值0或真值-1,然后用0或-1與C比較,與題意不同。C選項含義是A>=B或者B>C有一個成立即返回真值,與題目要求不同。

3

13.     數學式 應的VB表達式是________。

A. (x+ Sqr(x^2+ 1))^(1/3)+Cos(x+y)/x*y

B.1/(x+ Sqr(x*x+1)）^3+Cos(x+y)/（x*y)

C. (x+ Sqr(x^2+1)) ^(1/3)+ Cos(x+y)/(x*y)

D.x+Sqr(x^2+1)^(1/3)+Cos(x+y)/(x*y)

C

解析:sqr的含義是求平方根,根據題目要求選擇C選項是對的。

4

14.     窗體模塊的通用聲明處有語句Option Base 1,下列在某事件過程中用于說明數組的語句中,錯誤的是____。

A. Dim A(15,3 To 5) As Integer

B. Static A(15,3 To 5) As Integer

C.Dim A(15,-3 To -5) As Integer

D. Dim A(15,-5 To -3) As Integer

C

解析:因為To排列是按照從小到大排序的,C選項中-3是大于-5的,所以錯誤。

6

15.     以下有關Function自定義函數過程的敘述中,錯誤的是________。

A．Function函數過程形參的類型與函數返回值的類型無必然關系

B．Function函數過程通過函數名返回的值可以有多個

C．Function函數過程的數組形參,只能以傳址方式傳遞

D．如果未指明Function函數過程名的類型,則返回值為變體類型

B

解析:Function函數過程通過函數名返回的值只能有1個

7

16.     執行下面的程序,單擊命令按鈕Commandl,則窗體上顯示的第一行是_____________   ,第三行是_____________   。

Option Explicit

Option Base 1

Private Sub Command1_Click()

  Dim s As String, k As Integer

  Dim q As String, a() As String, n As Integer

  s = "ABCDEFG"

  n = 1

  Do

     k = k + 1

     ReDim Preserve a(k)

     a(k) = Mid(s, n, n)

     n = n + 1

  Loop While n + Len(a(k)) <= Len(s)

  For n = 1 To UBound(a)

    q = " "

    Call sub1(a(n), q)

    Print q

  Next n

End Sub

Private Sub sub1(s As String, q As String)

  Dim i As Integer

  For i = 1 To Len(s)

    q = Mid(s, i, 1) & q

 Next i

End Sub

A@EDC

解析:因文字解析不如視頻清晰,具體請查看視頻詳細解析

7

17.     執行下面的程序,單擊命令按鈕Command1．則數組元素a(l,2)的值是_____________,a(3,1)的值是_____________   。

Option Explicit

Option Base 1

Private Sub Command1_Click()

  Dim a(3, 3) As Integer, i As Integer, j As Integer

  For i = 1 To 3

    For j = 1 To 3

       If (i + j) Mod 2 = 0 Then

         a(i, j) = i + j

       Else

         a(i, j) = (i * 3 + j) / 2

       End If

       Print a(i, j);

    Next j

    Print

  Next i

End Sub

2@4

解析:因文字解析不如視頻清晰,具體請查看視頻詳細解析

6

8．執行下面的程序,單擊命令按鈕Commandl,則數組元素a(5)的值是_____________,窗體上顯示的第二行是_____________,第三行是_____________。

Option Explicit

Option Base 1

Private Sub Command1_Click()

  Dim i As Integer, a(5) As Integer, j As Integer

  For i = 1 To 5

     a(i) = 2 * i - 1

     Print a(i);

  Next i

  Print

  For i = a(5) To a(3) Step -1

    Print fun(i, a(i - 4))

  Next i

End Sub

Private Function fun(a As Integer, b As Integer) As Integer

  a = a - 1

  b = b - 1

  fun = (a + b) / 2

End Function

8@8@5

解析:因文字解析不如視頻清晰,具體請查看視頻詳細解析

7

9．執行下面的程序,單擊命令按鈕Commandl．則數組元素yz(l)的值是_____________, 數組元素yz(3)的值是_____________,窗體上顯示的最后一行是_____________。

Option Explicit

Option Base 1

Private Sub Command1_Click()

  Dim n As Integer, yz() As Integer, s As Integer

  Dim i As Integer

  n = 12

  Call subl(n, yz)

  For i = 1 To UBound(yz)

    s = s + yz(i)

    Print yz(i)

  Next i

  Print s

End Sub

Private Sub subl(n As Integer, a() As Integer)

  Dim k As Integer, i As Integer

  For i = 2 To n / 2

    If n Mod i = 0 Then

      k = k + 1

      ReDim Preserve a(k)

      a(k) = i

    End If

  Next i

End Sub

2@4@15

解析:因文字解析不如視頻清晰,具體請查看視頻詳細解析

7

【操作題】

10．

完善程序

【要求】

打開T盤中的"Pl.vbp"文件,完善程序后,直接保存所有文件。

【題目】本程序的功能是,先從鍵盤上輸入一個不超過4位的十進制正整數,然后依次把該整數的每一位數字轉換為一個4位二進制數,再合并成為一個16位的二進制數。例如,輸入十進制數359,會得到二進制數0000001101011001．見下圖。

Option Explicit

Private Sub Command1_Click()

  Dim s As String, m As String

  Dim i As Integer, j As Integer, n As Integer

  m = InputBox("輸入一個長度不超過4位的十進制正整數：", "數值轉換", 359)

  j = Len(m)

  For i = 1 To j

  n = Val(______(1)______)

  s = s & cover(n)

    Next i

    For i = 1 To 4 - j

    s = ______(2)______

    Next i

    Label1.Caption = "十進制數" & CStr(m) & "的轉換結果是："

    Text1.Text = s

End Sub

Private Function cover(ByVal n As Integer) As String

  Dim s As String, k As Integer

  Do Until n < 1

      k =  _____(3)______

      s = CStr(k) & s

      n = n \ 2

  Loop

  If Len(s) < 4 Then

    s = "0000" & s

    cover = ______(4)______

  Else

    cover = s

  End If

End Function

Mid(m,i,1)@" 0000" & s@ n Mod 2@Right( s, 4)

解析

(l) Mid(m,i,1)

( 2) " 0000" & s  

(3) n Mod 2 

(4) Right( s, 4)

解析:因文字解析不如視頻清晰,具體請查看視頻詳細解析

7

11．

改錯題

【要求】

(l)打開T盤中的"P2.vbp"文件,改正程序中的錯誤后．直接保存所有文件;

(2)改錯時,不得增加或刪除語句,但可適當調整語句位置。

【題目】本程序的功能是找出100到60000之內的所有Armstrong數（參考界面見下圖）。所謂Armstrong數是指滿足以下條件的n位正整數：組成該數的各位數字的n次方之和等于該數本身。例如,153=1^3+5^3+3^3,所以153是一個3位Armstrong數。

Option Explicit

Private Sub Command1_Click()

  Dim n  As Long, flg As Boolean, st As String

  st = ""

  For n = 100 To 60000

    Call Arms(n, flg, st)

    If flg Then

       List1.AddItem n & "=" & st

    End If

  Next n

End Sub

Private Sub dec(n As Long, num() As Integer)  ' 組成n的各位數字存入數組

  Dim k As Integer

  Do

    k = k + 1

    ReDim num(k)

    num(k) = n Mod 10

    n = n \ 10

  Loop While n <> 0

End Sub

Private Sub Arms(n As Long, flg As Boolean, st As String)  '判別n是否為Armstrong數

  Dim num() As Integer, i As Integer, k As Integer

  Dim sum As Integer

  flg = False

  Call dec(n, num)

  k = Len(CStr(n))

  sum = 0

  For i = k To 1 Step -1

    sum = sum + num(i) ^ k

    st = st & num(i) & "^" & k & "+"

  Next i

  If sum = n Then

    flg = True

    st = Left(st, Len(st) - 1)

  End If

End Sub

st = ""挪至For n = 100 To 60000的下一行@ Private Sub dec(n As Long, num() As Integer)修改為Private Sub dec(byval n As Long, num() As Integer)@ ReDim num(k)修改為ReDim Preserve num(k)@ Dim sum As Integer修改為Dim sum As Long

參考答案:

(1) st = ""挪至For n = 100 To 60000的下一行

(2) Private Sub dec(n As Long, num() As Integer)修改為Private Sub dec(byval n As Long, num() As Integer)

(3) ReDim num(k)修改為ReDim Preserve num(k)

(4) Dim sum As Integer修改為Dim sum As Long

因文字解析不如視頻清晰,具體請查看視頻詳細解析

1

12．

編程題

【要求】

(1)打開T盤中的"P3.vbp"文件,按參考界面形式編輯窗體界面,根據題目要求編寫和調試程序后,直接保存所有文件;

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

【題目】編寫程序,找出給定范圍內所有等于兩個平方數之和的素數。

【編程要求】

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

(2)運行程序,在"a："文本框中輸入數據范圍的起始值,在"b:"文本框中輸人數據范圍的終止值后,單擊"查找"按鈕,若數據范圍內存在滿足條件的素數,則將它們按參考界面所示的格式輸出到列表框中,否則在列表框中輸出"指定范圍內無滿足條件的數"的信息;單擊"清除"按鈕,將所有文本框與列表框清空,焦點置于"a："文本框上;

(3)程序中至少應定義一個通用過程,用于判斷一個整數是否為素數或判斷一個整數是否等于兩個平方數之和。

參考答案:

Option Explicit

Private Sub Command1_Click()

  Dim a As Integer, b As Integer, n As Integer

  Dim s1 As Integer, s2 As Integer, flg As Boolean

  a = Val(Text1.Text)

  b = Val(Text2.Text)

  For n = a To b

    If prime(n) Then

      Call judge(n, flg, s1, s2)

       If flg Then

         List1.AddItem n & " =" & Sqr(s1) & "^2 + " & Sqr(s2) & "^2"

       End If

    End If

  Next n

  If List1.ListCount = 0 Then List1.AddItem "指定范圍內無滿足條件的數 "

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

Private Sub judge(n As Integer, flg As Boolean, s1 As Integer, s2 As Integer)

  Dim k As Integer

  flg = False

  For k = 1 To Sqr(n)

    s1 = k ^ 2

    s2 = n - s1

    If s2 < 0 Then Exit Sub

    If Int(Sqr(s2)) = Sqr(s2) Then

      flg = True

      Exit Sub

    End If

  Next k

End Sub

Private Sub Command2_Click()

  Text1.Text = " "

  Text2.Text = " "

  List1.Clear

  Text1.SetFocus

End Sub

因文字解析不如視頻清晰,具體請查看視頻詳細解析