2017年浙江省信息技術考前押寶試卷（3）

一、選擇題（共12小題，每小題2分，滿分24分）

• 1．支付寶掃碼付款是一種新型的付款方式，付款時只需要給收銀員掃一下就可以完成支付，支付寶付款碼的產生過程屬于（　　）

  A．信息的采集

  B．信息的表達

  C．信息的發布

  D．信息的編碼
  組卷：7引用：3難度：0.9

  解析

• 2．如圖為中國工商銀行LOGO，此圖片存在冗余可進行數據壓縮，該圖片的冗余主要表現為（　　）

  A．結構冗余

  B．空間冗余

  C．視頻冗余

  D．時間冗余
  組卷：4引用：1難度：0.9

  解析

• 3．某軟件對用戶輸入的4位十進制數字密碼加密存儲，加密規則為每個數字加6后再轉換為4位二進制數字，并取反，即0變1，1變0，當用戶輸入的密碼為1925時，加密后存儲的密碼為（　　）

  A．0111 1111 1000 1011	B．1000 0000 0111 0100
  C．0001 1001 0010 0101	D．1110 0110 1101 1010
  組卷：10引用：1難度：0.9

  解析

• 4．UltraEdit軟件觀察字符內碼，結果如圖所示，則圖中內碼表示的對象可能是（　　）
  

  A．2個GB2312字符	B．4個GB2312字符
  C．4個ASCII字符	D．8個ASCII字符
  組卷：6引用：1難度：0.5

  解析

• 5．棱鏡門事件的主角斯諾登說：“一旦連上網絡，無論采用什么樣的保護措施，你都不可能安全．”另外，今日維基解密披露的機密文件介紹了中情局全球秘密黑客計劃的規劃和方向：惡意代碼庫以及數十個可侵入包括蘋果iPhone、谷歌安卓系統、微軟視窗操作系統、三星電視等流行IT產品的武器化黑客工具…，比如，CIA“哭泣天使”程序讓電視假關機，智能電視變竊聽器，從這些事例中我們可以判斷：（　　）

  A．任何信息安全防護措施都毫無價值

  B．網絡中存在非法監聽行為

  C．信息安全問題只與網絡有關

  D．一旦連上網絡，我們可能會有生命危險
  組卷：4引用：1難度：0.7

  解析

二、解答題（共5小題，滿分26分）

• 16．【加試題】從鍵盤鍵入一組無序整數，比如依次輸入78，18，-3，0，8，-6，9，2，當輸入為空時，這組數據將在列表框List1中依次有序輸出，完善下面的VB程序，在橫線處填入合適的語句，完成程序設計．
  List.Clear
  Const n=100
  Dim a（-1 To n） As Integer
  Dim m As Integer,i As Integer
  Dim j As Integer
  Dim t As String,x As Integer
  m=0
  t=InputBox（“請輸入X的值：“）
  Do While t＜＞““And m＜n
          x=Val（t）
          i=m
          Do While x＜a（i-1）And i＞0
  

   

  
                  i=i-1
          Loop
          a（i）=x
  

   

  
          t=InputBox（“請輸入X的值：“）
  Loop
  For i=0 To m-1
          List1．AddItem a（i）
  Next i.
  組卷：6引用：1難度：0.3

  解析

• 17．【加試題】某單位招聘事業單位工作人員，2015年和2016年各有4000名和2600名考生報名，下列VB程序統計兩次考試都參加的考生信息．程序界面如圖所示，2015年和2016年的考生信息分別顯示在List1和List2中，點擊“統計”按鈕，在List3中顯示兩次都參加的考生信息和總人數．
  
  （1）實現上述功能的VB程序如下，請在橫線處填入合適的代碼．
  Dim a（1 To 4000）As String
  Dim b（1 To 2600）As String
  Private Sub Form_Load（　　）
  Dim conn As New ADODB．connection
  Dim rs As New ADODB．Recordset
  Dim constr As String
  constr=“Provider=Microsoft.ace.OLEDB.12.0；“
  constr=constr &“Data Source=“& App.Path+“\data\kaosheng.jye.ai“
  conn.ConnectionString=constr
  conn.open（　　）
  Dim sql As String
  Rem將參加2015年考試的考生身份證號碼按升序存放在a數組中
  sql=“select*from kaoshenginfo where year='2015'order by sfzh asc“
  rs.jye.ai sql,conn
  i=0
  Do While Not rs.EOF
          i=i+1
          a（i）=rs（“sfzh“）
          List1．AddItem （a（i））
          rs.MoveNext
  Loop
  Rem將參加2016年考試的考生身份證號碼按升序存放在b數組中
  sql=“select*from kaoshenginfo where year='2016'order by sfzh asc“
  rs.jye.ai sql,conn
  i=0
  Do While Not rs.EOF
          i=i+1
          b（i）=rs（“sfzh“）
          List2．AddItem （b（i））
          rs.MoveNext
  Loop
  End Sub
  Private Sub Command1_Click（　　）
  Dim bot As Integer,top As Integer,m As Integer
  Dim i As Integer,ans As Integer'ans用于記錄兩次均參加考試的考生數
  ans=0
  For i=1 To 2600
         bot=1
         top=4000
         Do While bot＜=top
                 m=Fix（（bot+top）/2）
                 If a（m）=b（i） Then
                        List3．AddItem a（m）
  

   

  
                        Exit Do
                 ElseIf

   

   Then
                         top=m-1
                 Else
  

   

  
                 End If
         Loop
  Next i
  List3．AddItem“總計“+Str（ans）+“人次“
  End Sub
  （2）分析上述代碼，在數據庫中用于存放考生身份證號碼的字段名稱是

   

  ．
  組卷：7引用：1難度：0.1

  解析