2017年浙江省嘉興市普通高校招生選考教學信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．天氣預報的產生，一般先對探測數據進行收集、整理與匯總，最后由專家進行綜合分析、研究得出結論．專家對氣象資料進行綜合分析、研究的過程表明信息具有（ ?。?/h2>
組卷：11引用：1難度：0.9 -
2．小明從網上下載了一個使用IE保存的網頁，得到一個s1．html文件和一個sl_files文件夾，由此可知小明在下載網頁時選擇的保存類型為（ ?。?/h2>
組卷：8引用：1難度：0.9 -
3．下列應用中，體現了人工智能技術的有（ ）
①停車場車牌識別技術的應用
②Word軟件的查找、替換功能
③手機延時30秒暗屏
④手機微信搖一搖識別歌曲名稱
⑤二維碼識別
⑥刷臉考勤組卷：15難度：0.9 -
4．使用Access軟件編輯某數據庫的“成績表”如圖a所示，其中“編號”字段數據類型為“自動編號”．在當前狀態下，將圖b所示A2：C11區域中的數據成功復制到成績表中，此時“成績表”中（ ）
組卷：10引用：3難度：0.7 -
5．某算法的部分流程圖如圖所示，執行完這部分流程后，變量i,s的值分別是（ ?。?br />
組卷：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件寶貝，每件寶貝都標了編號、體積和價值，還給了他一個規定體積的背包，只要能裝入背包的東西都歸老漁夫所有，老漁夫如何裝包得到的總價值才最大（每件寶貝都可以分割為最小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