<source id="v77gz"></source>
    <u id="v77gz"><p id="v77gz"></p></u>

      <samp id="v77gz"></samp>

      <var id="v77gz"><td id="v77gz"><ins id="v77gz"></ins></td></var>

      <video id="v77gz"></video>
      <source id="v77gz"></source>
    1. 江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
      2015年10月江蘇省計算機二級VB真考題目

      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個內核

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

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

      A

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

      2

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

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

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

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

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

      A

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

      2

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

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

      BUNIXLinux這兩種操作系統曾經流行,目前基本無用戶使用

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

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

      B

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

      3

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

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

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

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

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

      A

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

      3

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

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

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

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

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

      C

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

      4

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

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

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

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

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

      A

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

      4

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

      AUnicodeGB 18030中的漢字編碼是相同的

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

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

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

      A

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

      5

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

      ARGB模型

      BCMYK模型

      CHSB模型

      DYUV模型

      B

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

      5

       

       

      【程序設計理論】

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

      A5

      B4

      C3

      D2

      C

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

      3

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

      AA>=B And >C

      BA>=B>C

      CA>=B Or B>C

      DA>=B And B>C

      D

      解析:A選項語法有錯誤 。B選項首先運行A>=B返回假值0或真值-1,然后用0-1C比較,與題意不同。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自定義函數過程的敘述中,錯誤的是________。

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

      BFunction函數過程通過函數名返回的值可以有多個

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

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

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

      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

       

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

       

      中文在线字幕第一页_中文字幕高跟丝袜作品番号_亚洲中文无无码第_日本亚洲欧美国产日韩a??y_在线观看亚洲av无码专区