2017年浙江省嘉興市普通高校招生選考教學(xué)信息技術(shù)試卷

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

• 1．天氣預(yù)報(bào)的產(chǎn)生，一般先對(duì)探測(cè)數(shù)據(jù)進(jìn)行收集、整理與匯總，最后由專家進(jìn)行綜合分析、研究得出結(jié)論．專家對(duì)氣象資料進(jìn)行綜合分析、研究的過(guò)程表明信息具有（　?。?/h2>

  A．載體依附性

  B．可加工性

  C．傳遞性

  D．共享性
  組卷：11引用：1難度：0.9

  解析

• 2．小明從網(wǎng)上下載了一個(gè)使用IE保存的網(wǎng)頁(yè)，得到一個(gè)s1．html文件和一個(gè)sl_files文件夾，由此可知小明在下載網(wǎng)頁(yè)時(shí)選擇的保存類型為（　?。?/h2>

  A．網(wǎng)頁(yè)全部	B．Web檔案，單個(gè)文件
  C．網(wǎng)頁(yè)，僅HTML	D．文本文件
  組卷：8引用：1難度：0.9

  解析

• 3．下列應(yīng)用中，體現(xiàn)了人工智能技術(shù)的有（　　）
  ①停車場(chǎng)車牌識(shí)別技術(shù)的應(yīng)用
  ②Word軟件的查找、替換功能
  ③手機(jī)延時(shí)30秒暗屏
  ④手機(jī)微信搖一搖識(shí)別歌曲名稱
  ⑤二維碼識(shí)別
  ⑥刷臉考勤

  A．①③④⑤⑥

  B．①②③⑥

  C．①③④⑥

  D．①④⑥
  組卷：14引用：8難度：0.9

  解析

• 4．使用Access軟件編輯某數(shù)據(jù)庫(kù)的“成績(jī)表”如圖a所示，其中“編號(hào)”字段數(shù)據(jù)類型為“自動(dòng)編號(hào)”．在當(dāng)前狀態(tài)下，將圖b所示A2：C11區(qū)域中的數(shù)據(jù)成功復(fù)制到成績(jī)表中，此時(shí)“成績(jī)表”中（　?。?br />

  A．包含3條記錄

  B．包含4個(gè)字段

  C．“張均”所在記錄的“編號(hào)”值為1

  D．“編號(hào)”字段的值不能再修改
  組卷：10引用：3難度：0.7

  解析

• 5．某算法的部分流程圖如圖所示，執(zhí)行完這部分流程后，變量i,s的值分別是（　?。?br />

  A．3  9

  B．4  18

  C．5  18

  D．6  43
  組卷：2引用：2難度：0.7

  解析

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

• 16．【加試題】如圖a所示，在Excel中使用Rank函數(shù)可以快速地返回一個(gè)數(shù)字在數(shù)字列表中的排位，而且是同分同名次，非常方便．小明想用VB編寫(xiě)一個(gè)程序來(lái)實(shí)現(xiàn)類似Rank排名次的功能，程序運(yùn)行時(shí)，隨機(jī)產(chǎn)生10個(gè)[60，100]之間的隨機(jī)數(shù)，并顯示在列表框List1中，單擊“排名”按鈕Command1，在列表框List2中輸出數(shù)據(jù)及其排名，程序運(yùn)行界面如圖b所示．
  
  實(shí)現(xiàn)上述功能的VB程序如下，代碼加框處有錯(cuò)，請(qǐng)改正．
  加框①處代碼應(yīng)改為：

   

  ；加框②處代碼應(yīng)改為：

   

  ．
  Dim a（1 To 10）As Integer'存放原始數(shù)據(jù)
  Dim b（1 To 10）As Integer'存放名次
  Private Sub Command1_Click（　?。?br />   Dim i As Integer,j As Integer,n As Integer
     For i=1 To 10
         n=0
         For j=1 To 10
            If Then n=n+1'①
  
         Next j'②
     Next i
     For i=1 To 10
         List2．AddItem a（i） &““& b（i）
     Next i
  End Sub
  Private Sub Form_Load（　　）
  '隨機(jī)產(chǎn)生10個(gè)[60，100]之間的隨機(jī)數(shù)，并顯示在List1中，代碼略
  End Sub.
  組卷：5引用：2難度：0.3

  解析

• 17．【加試題】從前有一位老漁夫，有一天他捕到了一只大金龜，在金龜?shù)目嗫喟笙?，老漁夫放走了金龜，為了報(bào)恩，大金龜給老漁夫準(zhǔn)備了一份厚禮．大金龜拿出了n件寶貝，每件寶貝都標(biāo)了編號(hào)、體積和價(jià)值，還給了他一個(gè)規(guī)定體積的背包，只要能裝入背包的東西都?xì)w老漁夫所有，老漁夫如何裝包得到的總價(jià)值才最大（每件寶貝都可以分割為最小1個(gè)單位體積．如：編號(hào)001的寶貝，價(jià)值100，體積50，最小可以分割為50份）．
  小林編寫(xiě)了一個(gè)VB程序，實(shí)現(xiàn)如下功能：程序運(yùn)行時(shí)，首先從數(shù)據(jù)庫(kù)讀取每件寶貝的編號(hào)、價(jià)值和體積，分別存儲(chǔ)在數(shù)組bh、value、volume中，并顯示在列表框List1中；在文本框Text1中輸入背包的體積，單擊“求解”按鈕Command1后，在列表框List2中顯示依次所取的寶貝的相關(guān)信息，最后，在列表框List2中最后一行顯示背包的總價(jià)值．程序運(yùn)行界面如圖所示．
  
  本題算法思想：
  （1）首先計(jì)算出每件寶貝的單位價(jià)值（單位價(jià)值=價(jià)值/體積）．
  （2）由于每件寶貝是可以任意分割的，因此，先將寶貝按單位價(jià)值降序排序，然后依次從單位價(jià)值最大的寶貝開(kāi)始裝入背包，直到裝滿整個(gè)背包為止．
  實(shí)現(xiàn)上述功能的程序如下，請(qǐng)?jiān)诔绦虍?huà)線處填入合適的語(yǔ)句或代碼．
  ①處代碼應(yīng)為

   

  ；
  ②處代碼應(yīng)為

   

  ；
  ③處代碼應(yīng)為

   

  ．
  Dim bh（1 To 20）As String,n As Integer'數(shù)組bh存儲(chǔ)寶貝的編號(hào)，n表示寶貝數(shù)
  Dim volume（1 To 20）As Long,value（1 To 20）As Long,vpv（1 To 20）As Single'數(shù)組
  value、volume、vpv分別存儲(chǔ)寶貝的價(jià)值、體積和單位體積的價(jià)格
  Private Sub Form_Load（　?。?br />'本過(guò)程的功能是從數(shù)據(jù)庫(kù)讀取每件寶貝的信息，并存儲(chǔ)在數(shù)組中，本過(guò)程其他語(yǔ)句略
  End Sub
  Private Sub Command1_Click（　　）
     Dim m As Integer,i As Integer,j  As Integer,ans As Single
     Dim temp1 As String,temp2 As Integer,temp3 As Integer,temp4 As Single
     m=Val（Text1．Text）
     For i=1 To n
         vpv（i）=

   

  
     Next i
     For i=1 To n-1
         For j=n To i+1 Step-1
             If vpv（j）＞vpv（j-1）Then
                 temp1=bh（j）：bh（j）=bh（j-1）：bh（j-1）=temp1
                 temp2=value（j）：value（j）=value（j-1）：value（j-1）=temp2
                 temp3=volume（j）：volume（j）=volume（j-1）：volume（j-1）=temp2
                 temp4=vpv（j）：vpv（j）=vpv（j-1）：vpv（j-1）=temp3
             EndIf
         Next j
     Next i
     i=1：j=n：ans=0
     List2．AddItem“編號(hào)“+“價(jià)值“+“體積“+“單位體積“+“裝入背包的體積“
     Do While m＞0 And j＞=1
         If m-volume（i）＞=0 Then
  

   

  
            List.AddItem bh（i） &““& value（i） &““& volume（i） & vpv（i）+&““& volume（i））
         Else
            ans=ans+m*vpv（i）
            List2．AddItem bh（i） &““& value（i） &““& volume（i） &““& vpv（i） &““& m
         EndIf
  

   

  
         i=i+1；j=j-1
     Loop
     List2．AddItem“背包總價(jià)值為：“+Str（ans）
  End Sub.
  組卷：7引用：1難度：0.3

  解析