2015-2016學年浙江省寧波市九校聯考高二（下）月考信息技術試卷

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

• 1．網站驗證碼中的語音校驗碼昌通過聲音來進行驗證的．當點擊語音驗證碼時，出現語音提示，按語音說明，輸入驗證碼，正確即可通過驗證，其目的是提升信息的（　　）

  A．真實性

  B．真偽性

  C．共享性

  D．安全性
  組卷：3引用：2難度：0.9

  解析

• 2．使用OCR軟件對圖象文件進行文字識別，部分界面如圖所示．則下列說法正確的是（　　）
  

  A．待識別對象為“文檔說明．txt”

  B．識別的結果保存在“文檔說明．tif”中

  C．圖中區域①顯示的是待識別的對象

  D．圖中區域②顯示的是圖象文件的內容
  組卷：11引用：4難度：0.9

  解析

• 3．ASCII碼表中的大寫字母Z后有6個其他字符，接著便是小寫字母a。現在已知：字母Y的ASCII碼為（1011001）₂，則字母b的ASCII碼用十六進制表示是（　　）

  A．61H

  B．62H

  C．63H

  D．64H
  組卷：13引用：6難度：0.9

  解析

• 4．某外貿公司為了管理公司員工的信息，用Access建立了一張數據表，表結構如圖所示，在該表中下列操作能成功的是（　　）

  A．在“員工號”字段中輸入“0155”

  B．在“出生年月”字段輸入“一九九零年六月四日”

  C．在“證件照”字段插入各位員工的證件照照片

  D．在“薪水”字段輸入“500元”
  組卷：3引用：1難度：0.5

  解析

• 5．如圖所示流程圖片斷，該流程圖中循環部分結束后，變量S的值是（　　）
  

  A．5

  B．6

  C．15

  D．16
  組卷：3引用：1難度：0.7

  解析

二、非選擇題（共5小題，滿分26分）

• 16．在最近舉行的校五有歌會中，藝術組的老師統計出各班（高一、高二各10個班，共20個班級參賽）的原始成績后，利用技術組老師設計的VB程序的功能如下：各班原始成績顯示在左邊的列表框List1中，單擊“排序”按鈕，各班成績按從高到低的順序排列，并顯示在右邊的列表框List2中，程序界面如圖所示：
  實現上述功能的VB如下：
  Dim a（1 to 50）As Integer
  Dim b（1 to 50）As String
  Private Sub Form_-Load（　　）
  ’各班成績存儲在a（i）中，各班編號存儲在b（i）中，代碼略
  End Sub
  Private Sub Commandl_-Click（　　）
  ’①
        For j=1 to 19-i
  If

   

  Then’②
  t1=a（j）：a（j）=a（j+1）：a（j+1）=t1
  t2=b（j）：b（j）=b（j+1）：b（j+1）=t2
          End If
  Next j
  Next i
  For i=1 to 20
      List2．AddItem b（i）+““+
  Str（a（i））
  Next i
  End Sub
  （1）在不改動其他語句的情況下，標號①應改為

   

  ．
  （2）標號②處缺少的語句為

   

  ．
  組卷：1引用：1難度：0.3

  解析

• 17．小明班有50個同學，某次技術考試的成績保存在數據庫文件“Student.jye.ai”的“技術成績”表中，表結構如圖所示，實現如下功能：窗體加載時，能自動讀取“技術成績”表中的數據，并且顯示在列表框list1中，當點擊“顯示名次”按鈕，可將相應學生的姓名和名次顯示在列表框list2中名次的設置要求是：若比甲同學分數高的有x人，則甲同學名次為x+1．
  實現上述功能的VB代碼如下，請在橫線處填入合適代碼．
  Const n=50
  Dim a（1 to n） As String
  Dim b（1 to n） As Single
  Dim c （1 to n） As Integer
  Private Sub Form _-Load（　　）
  Dim conn As New ADDODB．Connection
  Dim rs As New ADODB．Recordset
  Dim i As Integer
  conn.ConnetionString=“Provider=Microsoft.ACE．
  OLEDB.12.0；Data Suurce=“+App.Path+“\Student.jye.ai“
  conn.Open
  Set.rs.ActiveConnection=conn
  rs.Open“SEECT#FROM 技術成績“
  For i=1 to n
      a（i）=rs.Fieds（1）
      b（i）=rs.Fields（2）
      List1．AddIten a（i）+str（b（i））
      rs.MoveNext
  Next i
  rs.Close
  conn.Close
  End Sub
  Private Sub Commandl-Click（　　）
  Dim rank As Integer,x As Single
  c（1）=1
  rank=1
  x=b（1）
  For i=2 to n
      If b（i）＜＞x Then
  

   

  '①
          x=b（i）
      End If
  

   

  '②
  Next i
  For i=1 to n
      List2．AddItem

   

  '③
  Next i
  End Sub.
  組卷：3引用：1難度：0.1

  解析