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

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

• 1．天氣預報的產生，一般先對探測數據進行收集、整理與匯總，最后由專家進行綜合分析、研究得出結論．專家對氣象資料進行綜合分析、研究的過程表明信息具有（　?。?/h2>

  A．載體依附性

  B．可加工性

  C．傳遞性

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

  解析

• 2．小明從網上下載了一個使用IE保存的網頁，得到一個s1．html文件和一個sl_files文件夾，由此可知小明在下載網頁時選擇的保存類型為（　　）

  A．網頁全部	B．Web檔案，單個文件
  C．網頁，僅HTML	D．文本文件
  組卷：8難度：0.9

  解析

• 3．下列應用中，體現了人工智能技術的有（　?。?br />①停車場車牌識別技術的應用
  ②Word軟件的查找、替換功能
  ③手機延時30秒暗屏
  ④手機微信搖一搖識別歌曲名稱
  ⑤二維碼識別
  ⑥刷臉考勤

  A．①③④⑤⑥

  B．①②③⑥

  C．①③④⑥

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

  解析

• 4．使用Access軟件編輯某數據庫的“成績表”如圖a所示，其中“編號”字段數據類型為“自動編號”．在當前狀態(tài)下，將圖b所示A2：C11區(qū)域中的數據成功復制到成績表中，此時“成績表”中（　　）
  

  A．包含3條記錄

  B．包含4個字段

  C．“張均”所在記錄的“編號”值為1

  D．“編號”字段的值不能再修改
  組卷：10難度：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函數可以快速地返回一個數字在數字列表中的排位，而且是同分同名次，非常方便．小明想用VB編寫一個程序來實現類似Rank排名次的功能，程序運行時，隨機產生10個[60，100]之間的隨機數，并顯示在列表框List1中，單擊“排名”按鈕Command1，在列表框List2中輸出數據及其排名，程序運行界面如圖b所示．
  
  實現上述功能的VB程序如下，代碼加框處有錯，請改正．
  加框①處代碼應改為：

   

  ；加框②處代碼應改為：

   

  ．
  Dim a（1 To 10）As Integer'存放原始數據
  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（　?。?br />'隨機產生10個[60，100]之間的隨機數，并顯示在List1中，代碼略
  End Sub.
  組卷：5引用：2難度：0.3

  解析

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

   

  ；
  ②處代碼應為

   

  ；
  ③處代碼應為

   

  ．
  Dim bh（1 To 20）As String,n As Integer'數組bh存儲寶貝的編號，n表示寶貝數
  Dim volume（1 To 20）As Long,value（1 To 20）As Long,vpv（1 To 20）As Single'數組
  value、volume、vpv分別存儲寶貝的價值、體積和單位體積的價格
  Private Sub Form_Load（　?。?br />'本過程的功能是從數據庫讀取每件寶貝的信息，并存儲在數組中，本過程其他語句略
  End Sub
  Private Sub Command1_Click（　?。?br />   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“編號“+“價值“+“體積“+“單位體積“+“裝入背包的體積“
     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“背包總價值為：“+Str（ans）
  End Sub.
  組卷：7引用：1難度：0.3

  解析