2017年浙江省嘉興市普通高校招生選考信息技術(shù)試卷
發(fā)布：2025/1/4 2:30:2
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．下列有關(guān)信息的說(shuō)法中錯(cuò)誤的是（ ）
組卷：11引用：1難度：0.9 -
2．下列有關(guān)網(wǎng)頁(yè)的說(shuō)法中錯(cuò)誤的是（ ）
組卷：11引用：1難度：0.9 -
3．下列應(yīng)用中，使用了OCR技術(shù)的是（ ）
①車輛牌照識(shí)別系統(tǒng)拍攝車輛照片后，自動(dòng)識(shí)別出其中的車牌號(hào)碼
②視頻監(jiān)控系統(tǒng)監(jiān)測(cè)紅綠燈路口的車輛通行情況
③某手機(jī)云筆記App通過(guò)掃描文字稿件，自動(dòng)識(shí)別后轉(zhuǎn)化為可編輯的文本
④手機(jī)拍攝練習(xí)題解題過(guò)程照片，并發(fā)布在班級(jí)QQ群中討論
⑤某手機(jī)銀行App轉(zhuǎn)賬時(shí)，通過(guò)掃描銀行卡自動(dòng)輸入卡號(hào)．組卷：7引用：1難度：0.9 -
4．下列有關(guān)Access數(shù)據(jù)表的操作，說(shuō)法正確的是（ ?。?/h2>
組卷：8引用：1難度：0.5 -
5．已知二進(jìn)制數(shù)“1000B”是二進(jìn)制數(shù)“10B”的4倍，那么十六進(jìn)制數(shù)“B00H”是十六進(jìn)制數(shù)“BH”的幾倍（ ?。?/h2>
組卷：5引用：1難度：0.5
二、解答題（共5小題，滿分26分）
-
16．【加試題】簡(jiǎn)化的VB詞頻統(tǒng)計(jì)程序．程序功能為：在文本框Text1中輸入一篇英文文章，在文本框Text2中輸入一個(gè)英文單詞，單擊按鈕Command1后，在文本框Text3中顯示這個(gè)英文單詞出現(xiàn)的次數(shù)．程序運(yùn)行界面如圖所示．
查找的英文單詞由連續(xù)的ASCII英文字符（a～z或A～Z）組成．組合詞程序會(huì)進(jìn)行分解，如river-small可拆分為2個(gè)單詞river和small.查找的英文單詞不區(qū)分大小寫．程序代碼如下：
Private Sub Command1_Click（ ）
Dim article As String,f As String,count As Integer
Dim i As Integer,begin As Integer,s As String
article=Text1．Text：f=Text2．Text：count=0
begin=1
For i=1 To Len（article）
t=Mid（article,i,1）
If Not （t＞=“A“And t＜=“Z“Or t＞=“a“And t＜=“z“） Then
If i＞begin Then
s=
'（1）
If LowerCase（f）=LowerCase（s） Then
count=count+1
End If
begin=i+1
End If
Next i
Text3．Text=“出現(xiàn)次數(shù)為：“+Str（count）+“次“
End Sub
'單詞轉(zhuǎn)化為全小寫的形式
Function LowerCase（word As String） As String
Dim i As Integer,e As String
For i=1 To Len（word）
c=Mid（word,i,1）
'小寫英文字母的ASCII碼值比大寫字母的值大32
If c＞=“A“And c＜=“Z“Then c=
'（2）
LowerCase=LowerCase+e
Next i
End Function
程序中（1）、（2）處加框代碼有誤，請(qǐng)改正．
（1）處加框代碼應(yīng)修改為：．
（2）處加框代碼應(yīng)修改為：．組卷：5引用：1難度：0.3 -
17．【加試題】領(lǐng)禮物．圣誕節(jié)到了，教室里放滿了禮物，大家站在同一位置即原點(diǎn)（0，0）處，根據(jù)自己拿禮物的序號(hào)輪流去拿禮物，每個(gè)人只能拿離自己最近的禮物，每件禮物的位置用坐標(biāo)（x,y）表示．如果有多個(gè)禮物離你的距離相等（精確到小數(shù)后二位）且最近，則這些禮物都?xì)w你所有．
程序運(yùn)行時(shí)，在文本框Text1中輸入共有禮物數(shù)n,單擊“讀取數(shù)據(jù)”按鈕Command1，將從數(shù)據(jù)庫(kù)gift.accdb中讀取n個(gè)禮物的信息存儲(chǔ)在相應(yīng)的數(shù)組中，并顯示在列表框List1中；在文本框Text2中輸入輪到你拿禮物的序號(hào)（即第幾個(gè)拿），單擊“計(jì)算”按鈕Command2，則在列表框List2顯示你獲得的禮物信息，并在列表框list2最后一行顯示獲得的禮物總數(shù)．程序運(yùn)行界面如圖所示．
實(shí)現(xiàn)上述功能的VB程序代碼如下，請(qǐng)回答下列問(wèn)題．
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim bh（1 To 100）As String'數(shù)組bh存儲(chǔ)禮物的編號(hào)
Dim x（1 To 100）As Single,y（1 To 100）As Single'數(shù)組x、y分別存儲(chǔ)禮物的橫坐標(biāo)和縱坐標(biāo)
Dim dist（1 To 100）As Single'數(shù)組dist存儲(chǔ)禮物到原點(diǎn)的距離
Dim n As Integer'變量n表示禮物數(shù)
Private Sub Command1_Click（ ）
Dim i As Integer
'從數(shù)據(jù)庫(kù)中讀取n件禮物的編號(hào)、橫坐標(biāo)、縱坐標(biāo)，并存儲(chǔ)在相應(yīng)的數(shù)組中
'代碼略，下面代碼的功能是計(jì)算各禮物到原點(diǎn)的距離
For i=1 To n
dist（i）=
List1．AddItem bh（i）+““+Str（x（i））+““+Str（y（i））+““+Str（dist（i））
Next i
End Sub
Private Sub Command2_Click（ ?。?br /> Dim xh As Integer,i As Integer,j As Integer,k As Integer
Dim temp1 As String,temp2 As Single,p As Single,s As Single
xh=Val（Text2．Text）
'將禮物按到原點(diǎn)的距離從小到大排序，代碼略
i=0：j=1：s=0
Do While（i＜xh）And（j＜=n）
If dist（j）＜＞s Then
i=i+1
End If
j=j+1
Loop
u=0
j=j-1
Do While
List2．AddItem bh（j）+Str（x（j））+Str（y（j））+Str（dist（j））
u=u+1
j=j+1
Loop
List2．AddItem“total：“+Str（u）
End Sub
（1）請(qǐng)?jiān)诔绦驒M線處填入合適的語(yǔ)句：
劃線①處應(yīng)填入的語(yǔ)句為：；
劃線②處應(yīng)填入的語(yǔ)句為：；
劃線③處應(yīng)填入的語(yǔ)句為：．
（2）假設(shè)現(xiàn)共有14件禮物，禮物的信息如圖所示，你輪到第10個(gè)拿禮物，則你獲得的禮物數(shù)為．組卷：5引用：1難度：0.1