<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. 江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
      2012春江蘇省計算機二級VB筆試真題

      絕密★ 啟用前

      2012年春

      江蘇省高等學校非計算機專業學生

      計算機基礎知識和應用能力等級考試

      二級試卷

      試卷語種:VB語言

       

        明:

      1.本試卷包括計算機基礎知識部分和程序設計部分,考試時間共12 0分鐘;

      2.本試卷滿分為60,分選擇題和填空題,試卷不分A、B類型;

      3.計算機基礎知識部分全部是選擇題(20),程序設計部分分為選擇題(1 0

        )和填空題(30)兩種;

      4.選擇題用答題卡答題。每一項有A、B、C、D四個可供選擇的答案,請選

        擇其中一個你認為正確的答案,HB鉛筆涂寫在答題卡的相應答題號內。

        每選對一項得1,不選或選錯不得分;

      5.填空題用答題紙答題。請將答案用藍、黑色鋼筆或圓珠筆填寫在答題紙的

        相應答題號內,每個答案只占一行,不得換行。每填對一個答案得1,

        不填或填錯不得分;

      6.請認真填寫并仔細核對答題卡和答題紙上的學校名稱、準考證號和姓名是

        否填寫正確。

      7.考試結束時將試卷、答題卡和答題紙放在桌上,不得帶走。待監考人員收

        畢清點后,方可離場。

       

       

      第一部分  計算機基礎知識

      1.  下列有關信息產業、信息化、信息社會等相關的敘述中,錯誤的是___(1)___    。

          A.信息產業是指生產制造信息設備的制造業,不包含信息服務行業

          B.信息化是一個推動人類社會從工業社會向信息社會轉變的過程

          C.在信息社會中,信息將借助材料和能源的力量產生重要價值而成為社會進步的基

          本要素

          D.目前我國還處于工業化的中期階段,需要大力推進信息化與工業化的融合式發展

      2.  下列有關數字技術與微電子技術的敘述中,錯誤的是___(2)___    。

          A.數字技術的處理對象是"比特",它只有兩種狀態(取值)

          B.在計算機中,經常使用稱為"觸發器"的雙穩態電路來存儲比特,一個觸發器可

          以存儲1個比特  

          C.微電子技術以集成電路為核心,現代集成電路所使用的半導體材料主要是硅

          D.所有的IC卡均只能存儲數據,不能處理和收發數據

      3.  下列有關計算機發展與分類的敘述中,錯誤的是___(3)___

          A.人們通常根據計算機采用的主要電子元器件的不同,將計算機的發展劃分為四代

          B.由于20世紀90年代計算機網絡的發展,計算機應用進入了"網絡計算模式"

          C.目前所有的服務器產品均為小型計算機、大型計算機或巨型計算機,PC機不能作

          為網絡服務器使用

          D.美國的HP、DELL和我國的聯想、方正、同方等均是知名的PC機品牌

      4.  下列有關PCCPU的敘述中,錯誤的是___(4)___。

          A.長期以來,多數PC機采用Intel公司生產的CPU芯片

          B.Intel Core i7是高端的CPU產品,其中i7表示它采用7個內核的結構

          C.目前部分PC機使用AMD公司的CPU芯片,它們與Intel公司的CPU芯片指令

          系統基本一致,因此這些PC機相互兼容

          D.目前我國也能設計、生產PC機的CPU芯片    。

      5.  下列有關PC機主板上CMOSBIOS的敘述中.錯誤的是___(5)___    。

          A.主板上的CMOS芯片是一種易失性存儲器,它通常使用電池供電

          B.BIOS是存儲在主板上閃爍存儲器中的一組程序.每次機器加電時總是首先執行其

          中的程序

          C.CMOS設置程序存儲在CMOS存儲器中,它與BIOS無關

          D.CMOS芯片中存儲了許多配置信息,包括當前的日期與時間、開機密碼等

      6.  下列是PC機使用的四種外設接口,其中最新的一種是___(6)___。

          A.USB3.0

          B.IEEE.1394b

          C.IDE   

          D.紅外線接口(IrDA)

      7.  下列有關掃描儀與數碼相機的敘述中.錯誤的是___(7)___

          A.掃描儀分為平板掃描儀、手持掃描儀、滾筒掃描儀等多種類型.相對來說使用平

          板掃描儀的較多

          B.光學分辨率是掃描儀的主要性能指標,其單位為dpi

          C.目前數碼相機的成像芯片為CCDCMOS.它可以將光信號轉換為電信號

          D.數碼相機所拍攝的數字圖像以GIF格式存儲在存儲卡中

      8.  光盤分為多種不同類型,其容量大小差異較大。對于單面單層、80mmDVD光盤來

        .其容量大約為 ___(8)___。

        A.670MB    B.1.46GB

        C.4.7GB    D.25GB

      9.  通用的應用軟件可以分為若干類型,例如文字處理軟件、信息檢索軟件、媒體播放軟

          件等。在下列軟件中,不屬于文字處理軟件的是___(9)___

          A.WPS

          B.Adobe Acrobat 

          C.Word

          D.Access

      10.下列有關Windows XP操作系統的敘述中,錯誤的是___(10)___

          A.Windows XP分為多種版本.例如家庭版、專業版

          B.Windows xP采用并發多任務方式支持多個任務的執行

          C.Windows XP一般采用按時間片輪轉的策略調度處理器來執行每個任務

          D.虛擬存儲器由主板上的RAM、ROM及顯示卡的顯存聯合組成,它與硬盤無關

      11.在下列有關算法的敘述中.錯誤的是___(11)___

          A.算法的設計一般采用由細到粗、由具體到抽象的方法

          B.算法設計方法有多種,例如枚舉法、迭代法、遞歸法等等

          C.算法的表示可以有多種形式,例如文字說明、流程圖表示、偽代碼等

          D.一個問題的解決往往可以有多種不同的算法

      12.下列有關Microsoft Office 2000(及其后續版本)的敘述中.錯誤的是___(12)___

          A.Word、Excel、PowerPoint創建的文檔,均可以設置打開文件的密碼

          B.Word文檔中,可以插入聲音和視頻對象

          C.ExceI工作簿可以包含的工作表數量、工作表的行數與列數均沒有限制,用戶可以

          根據需要無限制地增加

          D.PowerPoint創建的演示文稿,用戶可以直接將其保存為HTML文件(即網頁)

      13.在下列有關調制解調技術、多路復用技術的敘述中.錯誤的是___(13)___

          A.調制與解調技術中使用的"載波"信號,通常是低頻正弦波信號

          B.調制技術可以分為幅度調制、頻率調制和相位調制

          C.多路復用技術的作用主要是提高傳輸線路的利用率,降低通信成本

          D.多路復用技術可以分為時分復用、頻分復用等類型

      14.目前IPv4協議只有大約36億個地址.很快就會分配完畢。新的IPv6協議把IP地址

          的長度擴展到___(14)___,幾乎可以不受限制地提供IP地址。

          A.32    B.64

          C.128   D.256

      15.下列與IP地址相關的敘述中.錯誤的是___(15)___    。

          A.IP地址由三個部分組成,從左到右分別代表類型號、網絡號和主機號

          B.因特網上的每臺在線主機都必須有IP地址

          C.通過ADSL上網時,用戶主機的IP地址通常是由因特網服務提供者動態分配的

          D.網絡中的路由器不需要設置IP地址

      16。通常所說的TCP/IP協議.是指由100多個協議組成的協議系列(包含下列幾個協議)。

          在下列協議中。實現文件傳輸服務主要依賴 ___(16)___    。

          A.NNTP協議

          B.FTP協議

          C.Telnet協議

          D.SMTP協議

      17.目前有線電視(CATV)系統已經廣泛采用數字技術傳輸電視節目。下列是有關數字有

          線電視的相關敘述.其中錯誤的是___(17)___    。

          A.數字有線電視采用光纖同軸電纜混合網.其主干線部分采用光纖連接到"小區"

          B.數字有線電視網絡依賴于時分多路復用技術

          C.借助數字有線電視網絡接入因特網.需要專用的Cable MODEM或互動式機頂盒

          D.借助數字有線電視網絡接入因特網的多個終端用戶共享連接段線路的帶寬

      18.下列有關文本與文本處理的敘述中,錯誤的是___(18)___    。

          A.文本信息在計算機中存儲時,漢字均為雙字節編碼,非漢字字符均為單字節編碼

          B.文本輸入可以是鍵盤輸入,也可以是聯機手寫輸入、語音輸入等

          C.DOC文檔、HTML網頁、PDF文檔均為豐富格式文本,但它們的格式標記方式

          不同

          D.文本中的字符可以使用不同的字體,不同字體的同一個漢字,其機內碼相同

      19.在未壓縮的情況下.存儲一幅分辨率為1024×102424位彩色數字圖像需要的存儲

        空間大約為 ___(19)___

        A.24KB    B.3MB

        C.8MB    D.24MB

      20.文件擴展名通常用于標識文件的類型。下列4個文件擴展名中,屬于數字波形聲音文

          件的是___(20)___。

          A.   .WAV

          B.   .MIDI

          C.   .AVI

          D.   .MPG

         

       

      第二部分Visual Basic程序設計

      一、選擇題(用答題卡答題,答案依次填在2l30答題號內)

      21.以下說法中,錯誤的是___(21)___。

          A..frm為擴展名的文件是窗體模塊文件

          B..bas為擴展名的文件是標準模塊文件

          C.窗體模塊文件包含該窗體及其窗體上相關控件的屬性信息

          D.標準模塊文件由事件過程、通用過程等內容組成

      22.下列語句中,錯誤的是___(22)___。

        A.Label1.Caption="Hello"      B.Text1.Caption="Hello"

        C.Command1.Caption="Hello"   D.Frame1.Caption="Hello"

      23.在一個控件數組中用___(23)___屬性標識不同的控件數組元素。

        A.TabIndex    B.Index    C.Caption D.Left

      24.select Case X結構語句中(XInteger類型),能正確描述5x10Case語句是___(24)___

          A.Case Is>=5,Is<=10    B.Case 5<=X<=10

          C.Case 5<=X,X<=10      D.Case 5 To 10

      25.分別執行以下語句,輸出結果為True的是___(25)___。

        A.Print CInt(4.5)>Int(4.5)    B.Print CInt(-4.5)>Fix(-4.5)

        C.Print CInt(-4.5)>Int(-4.5)  D.Print CInt(4.5)>Fix(4.5)

      26.數學表達式 -Sin( )對應的VB表達式是___(26)___。

        A.Sqr(x+y)-Sin(Abs(y^2*x)/(x-y))

        B.Sqr(x+y)-Sin(Abs(y^2*x)/x-y)

        C.Sqr(x+y)-Sin(|y^2*x|/(x-y))

        D.Sqr(x+y)-Sin(|y^2*x|/x-y)

      27.以下關于變量的說法中,正確的是___(27)___。

          A.同一個模塊中的模塊級變量不能和局部變量同名

          B.同一模塊的不同過程中的變量名不能相同

          C.不同模塊中的變量名不能相同

          D.不同模塊中的全局變量名可以相同

      28.在窗體的通用聲明處有語句Dim a() As Single,以下重新定義數組的語句中,正確的是___(28)___

        A.ReDim a(3,3):ReDim a(3,4) As Double    B.ReDim a(3,3):ReDim Preserve a(4,4)

        C.ReDim a(3): ReDim a(3,3) As Double     D.ReDim a(3,3):ReDim Preserve a(3,4)

      29.以下有關自定義函數過程的說法中,錯誤的是___(29)___。

          A.在自定義函數過程中可以多次為函數名賦值

          B.如果在函數體內沒有給函數名賦值,則該函數無返回值

          C.函數名的命名規則與變量名的命名規則相同

          D.函數定義時如果沒有說明函數名的類型,則為變體類型

      30.x為字符型變量,n為整型變量,以下關于Mid函數的說法中,錯誤的是___(30)___。

          A.Mid(x,n)表示從字符串x的第n個位置開始向右取所有字符

          B.x="xyz",執行語句Mid(x,1,2)="ab",x的值為"abz"

          C.Mid(x,n,1)的取值與Left(x,n)的取值相同

          D.使用Mid函數可提取字符串中指定位置、指定個數的字符

      二、填空題(請將答案填寫在答題紙的相應答題號內,每個答案只占一行)

      1.執行下面程序,單擊命令按鈕Command1,a(2,3)的值為___(1)___,a(3,4)的值為___(2)___,

      a(5,4)的值為___(3)___。

          Option Explicit

          Private Sub Commandl_Click()

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

            For i=1 TO 5

              For j=1 To 5

                 If  i=1 Or j=1 Then

                   a(i,j)=1

                 Else

                   a(i,j)=a(i-1,j)+a(i,j-1)

                 End If

                 Print a(i,j);

              Next j

              Print

            Next  i

          EndSub

      2.執行下面程序,單擊命令按鈕Cmd1后輸出的fun函數值是___(4)___,a的值是___(5)___    ,

      b的值是___(6)___。

          Option Explicit

          Private Sub Cmd1_Click()

             Dim a As Integer,b As Integer

             a=8

             b=12

             Print fun(a,b);a;b

          End Sub

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

            a=a Mod 5

            b=b\5

            fun=a+b

          End Function

      3.執行下面程序,單擊命令按鈕Cmd1,a(2)的值是___(7)___,a(3)的值是___(8)___,a(5)

      的值是___(9)___。

        Option Explicit

        Option Base 1

        Private Sub Cmd1_Click()

          Dim a() As Integer,i As Integer,n As Integer

          Dim k As Integer

          n=8

          ReDim a(n)

          For i=1 To n

             a(i)=2*i-1

          Next i

          k=2

          Do

             For i=UBound(a) To 1 Step -1

               If i Mod a(k)=0 Then

                   Call delete(a,i)

               End If

             Next i

             k=k+1

          Loop Until a(k)>UBound(a)

          For i=1 To UBound(a)

             Text1=Text1 & Str(a(i))

             If i Mod 5=0 Then Text1=Text1 & vbCrLf

          Next i

        End Sub

        Private Sub delete(a() As Integer,i As Integer)

          Dim k As Integer

          If i<>UBound(a) Then

             For k=i+1 To UBound(a)

                a(k-1)=a(k)

             Next k

          End If

          ReDim Preserve a(UBound(a)1)

        EndSub

      4.執行下面程序,單擊命令按鈕cmdRun,窗體上顯示的第一行內容是___(10)___,第二行內

      容是___(11)___,最后一行內容是___(12)___。

        Option Explicit

        Private Sub CmdRun_Click()

          Dim n As Integer

          n=10

          Print F1(n)

        End Sub

        Private Function F1(ByVal n As Integer)As Integer

          Static x As Integer

          If n>6 Then

             F1=F1(n-2)+n

          Else

             F1=n+x+1

          End If

          x=2*x+1

          Print F1,x

        End Function

       5.執行下面程序,單擊命令按鈕cmd1,窗體上顯示的第一行內容是___(13)___,第二行內容

      ___(14)___ ;最后一行內容是___(15)___

        Option Explicit

        Private Sub Cmdl_Click()

          Dim i As Integer,c As Integer,s As String,t As String*1

          Dim a() As String,s1 As String,jg As Integer

          s="43X17Z23Y"   

          For i=1 To Len(s)

            t=Mid(s,i,1)

            s1=s1 & t

            If t>="X" And t<="Z" Then

               c=c+1

               ReDim Preserve a(c)

               a(c)=s1

               s1=""

            End If

          Next i

          Call sub1(a,jg)

          Print jg

        EndSub

        Private Sub sub1(a() As String,gj As Integer)

          Dim i As Integer

          For i=1 To UBound(a)

             gj=gj+tran(a(i))

          Next i

          gj=gj/UBound(a)

        End Sub

        Private Function tran(ss As String)As Integer

          Dim i As Integer,t As Integer,st As String*1

          Dim P As Integer

          P=Len(ss)-1

          st=Right(ss,1)

          If st="X" Then

             t=8

          ElseIf st="Y" Then

             t=10

          Else

             t=16

          End If

          For i=1 To P

             tran=tran+Val(Mid(ss,i,1))*t^(P-i)

          Next i

          Print tran

       End Function

          6.本程序的功能是按下列公式編寫求積分余弦函數值,當通項的絕對值小于10 時停止計算,請完善

      本程序。(提示:函數fact是用遞歸求階乘。)

          f(x)=lnx+ ,   x>0

         

      Option Explicit

        Private Sub Command1_Click()

          Dim x As Single,y As Single

          Dim k As Integer,tx As Single

          x=Val(Text1.Text)

          y=Log(x)

          Do

            k=k+1

            tx=___(16)___

            y=y+tx

          Loop while  ___(17)___

          Text2.Text=Format(y,"0.#######")

        End Sub

        Private Function fact(ByVal n As Integer)As Long

          If n<=1 Then

             fact=1

          Else

             fact=___(18)___

          EndIf

        End Function

      7.下面程序的功能是從輸入的一串數字中找出全部由該數字串中連續數字組成的素數。

       

      Option Explicit

      Private Sub CmdRun_Click()

        Dim n As Long,s As String

        Dim i As Integer,j As Integer

        S=Text1.Text

        For i=1 To Len(s)

          For j=1 To Len(s)-i+1

            n=___(19)___

            If prime(n)  Then List1.AddItem CStr(n)

          Next j

        Next i

      End Sub

      Private Function prime(___(20)___)As Boolean

          Dim i As Integer

          For i=2 To Sqr(n)

            If n Mod i=0 Then Exit Function

          Next i

          ___(21)___

      End Function

      8.這是一個解密程序。密碼由若干數字組成,每三位為一個數字組,若數字組中所有數字均小于5,

      則該數字組有效,將有效的數字組按5進制轉換成10進制數,再按ASCII代碼轉換為字符就可得到明

      文。

       

        Option Explicit

        Private Sub Command1_Click()

          Dim st As String,p As String

          st=Text1

          Do

             P=___(22)___

             If judge(p) Then

                 Text2=Text2 & Chr(conv(p))

             End If

             st=Right(st,Len(st)-3)

          Loop Until  ___(23)___

        End Sub

        Private Function judge(p As String) As Boolean  '判斷有效數字組

          Dim q As String*1,i As Integer

          For i=1 To Len(p)

            q=Mid(p,i,1)

            If ___(24)___ Then Exit Function

          Next i

          judge=True

        End Function

        Private Function conv(p As String)As Integer     '進制轉換

          Dim k As Integer,q As String*1,i As Integer

          For i=Len(p) To 1 Step-1

            q=Mid(p,i,1)

            conv=conv+Val(q)*5^k

            ___(25)___

          Next i

        End FUnction

      9.以下程序的功能是驗證"數學黑洞6174"。對于任意一個各位數字不全部相同的四位整數,將組成

      該數的數字組合成一個最大的數和一個最小的數,二者相減,判斷其差值是否為6174,若不是,再將

      相減的結果組合成新的最大的數和最小的數,以上過程最多重復7,必得結果6174。程序運行界面

      如圖所示。

        Option Explicit

        Option Base 1

        Private Sub Cmd1_Click()

          Dim i As Integer,k As Integer

          Dim max As Integer min As Integer

          k=Val(Text1)

          For i=1 T0 3  '判斷4位數字是否全部一樣

            If Mid(CStr(k),i,1)<>Mid(CStr(k),i+1,1) Then ___(26)___

          Next i

          If i>3 Then

            MsgBox "輸入的數據不合要求"

            Text1=""

            Exit Sub

          End If

          For i=1 To 7

             Call Validate(k max,min)

             List1.AddItcm k &":" & max &"-" & min & "=" & max-min

             If max-min=6174 Then

                 Exit For

             Else

                k=___(27)___

             End If

          Next i

          If ___(28)___ Then List1.AddItem "驗證失敗!"

        End Sub

        Private Sub Validate(n As Integer,max As Integer,min As Integer)

          Dim i As Integer,t(4)As Integer

          Dim s As String,s1 As String,s2 As String

          S=CStr(n)

          For i=1 To 4

             t(i)=Val(Mid(s,i,1))

          Next i

          Call sort(t)

          For i=1 To 4

            s1=s1 & CStr(t(i))

            s2=___(29)___

          Next i

          min=Val(s1)

          max=VaI(s2)

        End Sub

        Private Sub sort(a() As Integer)

          Dim i As Integer,j As Integer,t As Integer

          For i=1 To UBound(a)-1

            For j=i+1 To UBound(a)

              If ___(30)___ Then

                t=a(i):a(i)=a(j):a(j)=t

              End If

            Next j

          Next i

        End Sub

       

       

       

      一、選擇

      1

      2

      3

      4

      5

      6

      7

      8

      9

      10

      A

      D

      C

      B

      C

      A

      D

      B

      D

      D

      11

      12

      13

      14

      15

      16

      17

      18

      19

      20

      A

      C

      A

      C

      D

      B

      B

      A

      B

      A

      21

      22

      23

      24

      25

      26

      27

      28

      29

      30

      D

      B

      B

      D

      C

      A

      D

      D

      B

      C

      二、填空

      1

      3

      2

      10

      3

      35

      4

      5

      5

      8

      6

      2

      7

      3

      8

      7

      9

      13

      10

      7   1

      11

      15   3

      12

      25

      13

      35

      14

      23

      15

      27

      16

      (-1)^k*x^(2*k)/(2*k*fact(2*k))

      17

      Abs(tx)>=10^-5

      18

      N*fact(n-1)

      19

      Mid(s,i,j)

      20

      N as Long

      21

      Prime=true

      22

      Mid(st,1,3)

      23

      Len(st)=0

      24

      q>=”5”

      25

      K=k+1

      26

      Exit for

      27

      Max-min

      28

      i>7    i=8

      29

      Cstr(t(i)) & s2

      30

      A(i)> a(j)

       

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