2017年浙江省杭州市蕭山區(qū)高考信息技術(shù)模擬試卷（2）

一、選擇題（本大題共9小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求）

• 1．電視臺每晚播放的新聞，有很多人同時(shí)在觀看，而新聞節(jié)目主持人卻不會因?yàn)椴シ胚@些信息而失去它們．這主要體現(xiàn)了（　　）

  A．信息的表示、傳播、儲存必須依附于某種載體

  B．信息可以脫離它所反映的事物被存儲、保存和傳播

  C．信息是可以傳遞和共享的

  D．信息具有時(shí)效性
  組卷：16引用：2難度：0.9

  解析

• 2．下列多媒體格式中，不屬于多媒體數(shù)據(jù)壓縮標(biāo)準(zhǔn)的是（　?。?/h2>

  A．JPEG

  B．MPEG

  C．MP3

  D．BMP
  組卷：24引用：5難度：0.9

  解析

• 3．下列操作中沒有用到光學(xué)字符識別（OCR）技術(shù)的是（　?。?/h2>

  A．將雜志中的一篇文章通過掃描儀掃描后再使用軟件識別為文本文檔保存起來

  B．某手機(jī) APP 可以通過攝像頭拍攝某道題目并上傳后自動給出試題的解題過程

  C．用手機(jī)的攝像頭把報(bào)紙上的一篇文章拍攝下來通過 QQ 發(fā)送給同學(xué)

  D．某門禁系統(tǒng)可以自動識別車輛的車牌號，做到只有登記在案的車輛才允許進(jìn)入
  組卷：10引用：2難度：0.9

  解析

• 4．關(guān)于Access 數(shù)據(jù)表的操作，下列說法正確的是（　　）

  A．將數(shù)據(jù)表中某列的數(shù)據(jù)全部設(shè)置為0，則該列對應(yīng)字段自動刪除

  B．?dāng)?shù)據(jù)表中必須含有類型為“自動編號”的字段，否則記錄將無序

  C．?dāng)?shù)據(jù)表中記錄只能修改而不能刪除，否則會出現(xiàn)空行

  D．修改字段名，數(shù)據(jù)表中相應(yīng)的字段值不會改變
  組卷：12引用：4難度：0.9

  解析

• 5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，變量x和Flag的值分別是（　?。?/h2>

  A．2，True

  B．3，True

  C．2，F(xiàn)alse

  D．3，F(xiàn)alse
  組卷：9引用：11難度：0.7

  解析

【加試題】

• 16．某校質(zhì)量檢測共n名學(xué)生參加，李老師編寫了一個(gè)試場號座位號編排軟件，輸入選考科目就能根據(jù)該選考科目選考學(xué)生的名單編排試場．具體編排規(guī)則如下：讀取數(shù)據(jù)庫中學(xué)生的學(xué)號、姓名以及選考組合，和隨機(jī)產(chǎn)生一個(gè)3位數(shù)，根據(jù)這個(gè)3位數(shù)和選考科目，排定該選考科目的試場，其中a（i）用于存放第i位學(xué)生的學(xué)號，b（i） 用于存放第i位學(xué)生的 姓名，c（i） 用于存放第i位學(xué)生的選考組合，d（i）用于存放第i位學(xué)生的3位隨機(jī)數(shù)．
  程序界面如圖所示，在文本框Text1中輸入選考科目，單擊“開始編排”按鈕（Command1），根據(jù)產(chǎn)生的隨機(jī)數(shù)和選考科目，進(jìn)行試場編排，每30個(gè)人一個(gè)試場．試場顯示格式一律為：試場號-座位號．
   
  實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請改正．
  Dim n As Integer'考生數(shù)
  Dim a（1000）As String,b（1000）As String,c（1000）As String
  Dim d（1000）As Integer,e（1000）As String
  Private Sub Form_Load （　?。?br />'讀取數(shù)據(jù)庫中學(xué)生的信息，分別將學(xué)號，姓名，選考組合和隨機(jī)數(shù)存入a（i）、b（i）、c（i） d（i）中
  End Sub
  Private Sub Command1_Click （　?。?br /> Dim km As String
   km=Mid（Text1．Text,1，1）
   xk=0'選考實(shí)際人數(shù)
   For i=1 To n
     If km=Mid（c（i），1，1）or km=Mid（c（i），2，1）or km=Mid（c（i），3，1）Then
        xk=xk+1
        a（xk）=a（i）
        b（xk）=b（i）
        c（xk）=c（i）
        d（xk）=d（i）
     End If
   Next i
   For i=1 To xk-1
       k=i
       For j=i+1 To xk
           If    Then k=j
       Next j
       If k＜＞i Then
          t=a（k）：a（k）=a（i）：a（i）=t
          t=b（k）：b（k）=b（i）：b（i）=t
          t=c（k）：c（k）=c（i）：c（i）=t
          t=d（k）：d（k）=d（i）：d（i）=t
      End If
   Next i
   For i=1 To xk
       e（i）=
       List1．AddItem a（i）+““+b（i）+““+c（i）+““+Str（d（i））+““+e（i）
   Next i
  End Sub.
  組卷：9引用：1難度：0.1

  解析

• 17．某校質(zhì)量檢測共n名學(xué)生參加，李老師編寫了一個(gè)試場號座位號查詢軟件，輸入學(xué)號就能查詢該生的姓名和試場號座位號．?dāng)?shù)組a、b分別保存了本次考試所有學(xué)生的學(xué)號和姓名信息．第i個(gè)學(xué)生的學(xué)號保存在a（i）中，對應(yīng)的姓名保存在b（i）中．程序界面如圖所示，在文本框Text1中輸入學(xué)號，單擊“開始查詢”按鈕（Command1），電腦就開始查找該學(xué)號的信息，如果找到對應(yīng)的信息，就顯示所屬學(xué)生的姓名和選考組合，并顯示在Text2和Text3中，Text4語數(shù)外的試場信息，Label（1），Label（2），Label（3）分別顯示選考科目，相對應(yīng)的Text5（1），Text5（2），Text5（3）分別顯示對應(yīng)的試場信息；如果沒有找到，則顯示“找不到”．
  
  相應(yīng)程序如下，在程序①和②橫線處填入適當(dāng)?shù)恼Z句和代碼，把程序補(bǔ)充完整．
  （1）程序段Function部分主要采用了

   

   算法（填：順序查找/對分查找）；
  （2）在程序畫線①處應(yīng)填入

   

  ；
  在程序畫線②處應(yīng)填入

   

  ．
  Dim n As Integer'考生數(shù)
  Dim a（1000）As String,b（1000）As String
  Dim xk（1 To 3）As String
  Private Sub Command1_Click （　?。?br /> Dim x As string
   s1=“政治歷史地理物理化學(xué)生物技術(shù)“
      Dim conn As New ADODB．Connection
      Dim rs As New ADODB．Recordset
      conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=“& App.Path &“\students.jye.ai“
      conn.Open
      Set rs.ActiveConnection=conn
      rs.Open“學(xué)生信息“
      n=0
      m=0
      Do While Not rs.EOF'到記錄集最后一條記錄后退出循環(huán)
          n=n+1'計(jì)數(shù)
          a（n）=rs.Fields（“學(xué)號“）
          b（n）=rs.Fields（“姓名“）
          rs.MoveNext'移動到下一條記錄
      Loop
      rs.MoveFirst
   x=Text1．Text
   pos=①
   If pos＞0 Then
     rs.Move pos
     zh=rs.Fields（“選考組合“）
     Text2．Text=b（pos）
     Text3．Text=zh
     Text4．Text=rs.Fields（“語數(shù)外“）
     For i=1 To 3
       xk（i）=Mid（zh,i,1）
       For j=1 To 13 Step 2
           If       ②Then
              Label（i）．Caption=Mid（s1，j,2）
              Text5（i）．Text=rs.Fields（xk（i））
           End If
      Next j
    Next i
   Else
     Text2．Text=“找不到“
   End If
  End Sub
  
  Function Search（Key As String） As Integer
    Dim i As Integer,j As Integer
     i=1
     j=n
     Do While i＜=j
      m=Fix（（i+j）/2）
      If Key=Val（a（m）） Then
        Search=m
        Exit Function
      ElseIf a（m）＞Key Then
          j=m-1
      Else
          i=m+1
      End If
    Loop
    Search=0
  End Function.
  組卷：12引用：1難度：0.1

  解析