2017年浙江省嘉興市普通高校招生選考教學(xué)信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．天氣預(yù)報(bào)的產(chǎn)生，一般先對(duì)探測(cè)數(shù)據(jù)進(jìn)行收集、整理與匯總，最后由專家進(jìn)行綜合分析、研究得出結(jié)論．專家對(duì)氣象資料進(jìn)行綜合分析、研究的過程表明信息具有（ ）
組卷：11引用：1難度：0.9 -
2．小明從網(wǎng)上下載了一個(gè)使用IE保存的網(wǎng)頁，得到一個(gè)s1．html文件和一個(gè)sl_files文件夾，由此可知小明在下載網(wǎng)頁時(shí)選擇的保存類型為（ ?。?/h2>
組卷：8引用：1難度：0.9 -
3．下列應(yīng)用中，體現(xiàn)了人工智能技術(shù)的有（ ?。?br />①停車場(chǎng)車牌識(shí)別技術(shù)的應(yīng)用
②Word軟件的查找、替換功能
③手機(jī)延時(shí)30秒暗屏
④手機(jī)微信搖一搖識(shí)別歌曲名稱
⑤二維碼識(shí)別
⑥刷臉考勤組卷：15引用：8難度：0.9 -
4．使用Access軟件編輯某數(shù)據(jù)庫的“成績(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 />
組卷：10引用：3難度：0.7 -
5．某算法的部分流程圖如圖所示，執(zhí)行完這部分流程后，變量i,s的值分別是（ ）
組卷：2引用：2難度：0.7
二、解答題（共5小題，滿分26分）
-
16．【加試題】如圖a所示，在Excel中使用Rank函數(shù)可以快速地返回一個(gè)數(shù)字在數(shù)字列表中的排位，而且是同分同名次，非常方便．小明想用VB編寫一個(gè)程序來實(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（ ?。?br />'隨機(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份）．
小林編寫了一個(gè)VB程序，實(shí)現(xiàn)如下功能：程序運(yùn)行時(shí)，首先從數(shù)據(jù)庫讀取每件寶貝的編號(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à)值最大的寶貝開始裝入背包，直到裝滿整個(gè)背包為止．
實(shí)現(xiàn)上述功能的程序如下，請(qǐng)?jiān)诔绦虍嬀€處填入合適的語句或代碼．
①處代碼應(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（ ）
'本過程的功能是從數(shù)據(jù)庫讀取每件寶貝的信息，并存儲(chǔ)在數(shù)組中，本過程其他語句略
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“編號(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