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