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

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

A．感測與識別技術(shù)

B．通信與存儲技術(shù)

C．計算與處理技術(shù)

D．控制與顯示技術(shù)

D

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

1

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

A．兆位每秒

B．千兆位每秒

C．百兆位每秒

D．百萬位每秒

B

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

1

3.         下列關(guān)于PC CPU的敘述中,錯誤的是______。

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

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

C．AMD公司也是重要的PC CPU生產(chǎn)廠商,其CPU芯片與Intel保持指令系統(tǒng)兼容

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

A

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

2

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

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

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

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

D．USB 3.0的最高數(shù)據(jù)傳輸速率可達數(shù)百兆字節(jié)每秒

A

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

2

5.         下列有關(guān)操作系統(tǒng)的敘述中,錯誤的是______。

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

B．UNIX和Linux這兩種操作系統(tǒng)曾經(jīng)流行,目前基本無用戶使用

C．Windows操作系統(tǒng)采用并發(fā)多任務(wù)方式支持系統(tǒng)中多個任務(wù)的執(zhí)行

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

B

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

3

6.         下列關(guān)于程序設(shè)計語言的敘述中,錯誤的是_____。

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

B．匯編語言與計算機的指令系統(tǒng)密切相關(guān),不同類型的計算機,其匯編語言通常不同

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

D．Java語言是一種適用于網(wǎng)絡(luò)環(huán)境的程序設(shè)計語言,目前許多手機軟件就是用Java語言編寫的

A

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

3

7.         在下列有關(guān)通信技術(shù)的敘述中,錯誤的是____。

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

B．通信可分為模擬通信和數(shù)字通信,計算機網(wǎng)絡(luò)屬于數(shù)字通信

C．在通信系統(tǒng)中,采用多路復(fù)用技術(shù)的目的主要是提高傳輸線路的傳輸速率和距離

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

C

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

4

8.         因特網(wǎng)的IP地址由三個部分構(gòu)成,從左到右分別代表_________ 。

A.類型號、網(wǎng)絡(luò)號和主機號

B.網(wǎng)絡(luò)號、主機號和類型號

C.網(wǎng)絡(luò)號、類型號和主機號

D.主機號、網(wǎng)絡(luò)號和類型號

A

解析:分別對應(yīng)類型號,網(wǎng)絡(luò)號,主機號。

4

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

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

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

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

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

A

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

5

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

A．RGB模型

B．CMYK模型

C．HSB模型

D．YUV模型

B

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

5

【程序設(shè)計理論】

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"對應(yīng)的正確的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.     數(shù)學式 應(yīng)的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的含義是求平方根,根據(jù)題目要求選擇C選項是對的。

4

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

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.     以下有關(guān)Function自定義函數(shù)過程的敘述中,錯誤的是________。

A．Function函數(shù)過程形參的類型與函數(shù)返回值的類型無必然關(guān)系

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

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

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

B

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

7

16.     執(zhí)行下面的程序,單擊命令按鈕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.     執(zhí)行下面的程序,單擊命令按鈕Command1．則數(shù)組元素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．執(zhí)行下面的程序,單擊命令按鈕Commandl,則數(shù)組元素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．執(zhí)行下面的程序,單擊命令按鈕Commandl．則數(shù)組元素yz(l)的值是_____________, 數(shù)組元素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位的十進制正整數(shù),然后依次把該整數(shù)的每一位數(shù)字轉(zhuǎn)換為一個4位二進制數(shù),再合并成為一個16位的二進制數(shù)。例如,輸入十進制數(shù)359,會得到二進制數(shù)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位的十進制正整數(shù)：", "數(shù)值轉(zhuǎn)換", 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 = "十進制數(shù)" & CStr(m) & "的轉(zhuǎn)換結(jié)果是："

    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)改錯時,不得增加或刪除語句,但可適當調(diào)整語句位置。

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

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的各位數(shù)字存入數(shù)組

  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數(shù)

  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"文件,按參考界面形式編輯窗體界面,根據(jù)題目要求編寫和調(diào)試程序后,直接保存所有文件;

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

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

【編程要求】

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

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

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

參考答案:

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 "指定范圍內(nèi)無滿足條件的數(shù) "

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

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