絕密★ 啟用前

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.  下列有關PC機CPU的敘述中,錯誤的是___(4)___。

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

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

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

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

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

5.  下列有關PC機主板上CMOS和BIOS的敘述中.錯誤的是___(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.目前數碼相機的成像芯片為CCD或CMOS.它可以將光信號轉換為電信號

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

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

  說.其容量大約為 ___(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×1024的24位彩色數字圖像需要的存儲

  空間大約為 ___(19)___

  A.24KB    B.3MB

  C.8MB    D.24MB

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

    件的是___(20)___。

    A.   .WAV

    B.   .MIDI

    C.   .AVI

    D.   .MPG

第二部分Visual Basic程序設計

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

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結構語句中(X為Integer類型),能正確描述5≤x≤10的Case語句是___(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

一、選擇

二、填空