2020年浙江省湖州市、麗水市、衢州市高考信息技術(shù)模擬試卷（4月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、多選、錯(cuò)選均不得分）
-
1．關(guān)于信息和信息處理，下列描述錯(cuò)誤的是（ ?。?/h2>
組卷：12引用：1難度：0.6 -
2．關(guān)于信息的表達(dá)與交流，下列描述正確的是（ ?。?/h2>
組卷：2引用：1難度：0.6 -
3．某學(xué)生選課系統(tǒng)采用數(shù)據(jù)庫來管理相關(guān)信息，其數(shù)據(jù)庫部分界面如圖所示。下列說法正確的是（ ?。?/h2>組卷：1引用：1難度：0.6 -
4．關(guān)于信息編碼，下列描述正確的是（ ）
組卷：5引用：2難度：0.5 -
5．使用 Photoshop 軟件制作“漁舟唱晚”作品，部分界面如圖所示。下列說法正確的是（ ?。?br />
組卷：2引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．IPV4點(diǎn)分十進(jìn)制IP地址可轉(zhuǎn)換為十進(jìn)制數(shù)字形式。編寫“模擬IP過濾器”程序，程序功能如下：程序運(yùn)行時(shí)，在列表框List1中顯示能通過過濾的IP區(qū)間（IP 區(qū)間按起始端點(diǎn)升序排序），在文本框Text1中輸入需要判斷的IP地址，單擊“驗(yàn)證”按鈕Cmd1，若IP區(qū)間有重疊區(qū)間則作合并處理，并顯示在列表框List2中，然后對輸入的IP地址進(jìn)行判斷，判斷結(jié)果顯示在標(biāo)簽Label4中。程序運(yùn)行界面如圖所示：
（1）Cmd1對象屬于類（單選，填字母：A．Form B．Label C．TextBox D．CommandButton）。
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請?jiān)跈M線處填入合適的代碼。
（3）程序中加框處代碼有錯(cuò)，請改正。
Dim a（1 To 100）As Integer,n As Integer
Private Sub Form_Load （ ?。?br />'本過程從數(shù)據(jù)庫中讀取 n 個(gè) IP 地址區(qū)間數(shù)據(jù)，并依次存入數(shù)組 a（1）、…、a（2*n）中'
對能通過過濾的 IP 區(qū)間按區(qū)間起始端點(diǎn)升序排序
'代碼略End Sub
Private SubCmd1_Click （ ?。?br />Dim ip As Integer,L As Integer,R As Integer Dim i As Integer,pos As Integer,f As Boolean ip=Val（Text1．Text）
L=a（1）：R=a（2）：i=3：pos=1'合并重疊區(qū)間
Do While i＜=2*n-1
If①Then
If a（i+1）＞R Then R=a（i+1）
Else
a（2*pos-1）=L
a（2*pos）=R
pos=pos+1
L=a（i）
R=a（i+1）
End If
②
Loop
a（2*pos-1）=L：a（2*pos）=R
'依次輸出排序合并后的區(qū)間數(shù)據(jù)，代碼略
ip＜a（1）And ip＞a（pos）
If
Then'判斷請求的 IP 地址
Label4．Caption=″IP 需過濾″
Else
i=1：f=False
Do While i＜=pos And Not f If③Then
i=i+1 Else
Label4．Caption=“IP 不需過濾“f=True
End If Loop
If f=False Then Label4．Caption=“IP需過濾“End If
End Sub組卷：3引用：1難度：0.2 -
16．某小賣部商品相關(guān)數(shù)據(jù)分別存放在相應(yīng)的數(shù)據(jù)表中，如圖a和圖b所示。
編寫“商品銷售統(tǒng)計(jì)”程序功能如下：窗體加載時(shí)從數(shù)據(jù)庫中讀取商品的相關(guān)數(shù)據(jù)，對各商品類別總銷量及名次進(jìn)行統(tǒng)計(jì)，結(jié)果在列表框List1中顯示；單擊“查詢”按鈕Command1，按商品類別編號從小到大排列，同一類別商品按銷量從大到小排序，在列表框List2中顯示。程序運(yùn)行界面如圖c所示。
（1）閱讀程序可知，gtype（b（3））的初始值為。
（2）請?jiān)跈M線處填入合適的代碼。
Dim a（1 To 2000）As Integer,b（1 To 2000）As Integer,s（1 To 2000）As Integer
Dim gid（1 To 100）As Integer,t（1 To 2000）AsInteger
Dim c（1 To 2000）As String,gtype（1 To 100）AsString
Dimts（1To100）AsInteger'數(shù)組 ts 存儲每個(gè)類別商品總銷量Dim
k（1To2000）AsInteger'數(shù)組k存儲每個(gè)類別商品總數(shù)Dim m As
Integer,n AsInteger
Private Sub Form_Load（ ）
'從數(shù)據(jù)庫讀取 m 條記錄中類別編號、商品類別數(shù)據(jù)分別存儲在數(shù)組 gid、gtype 中
'從數(shù)據(jù)庫讀取n 條記錄中類別編號、商品名稱、商品銷量數(shù)據(jù)分別存儲在數(shù)組 b、c、s 中，代碼略
For i=1To n'統(tǒng)計(jì)各類別商品總銷量及商品總數(shù)k（b（i））=k（b（i））+1
Next i
For i=1To m'計(jì)算各類別商品總銷量的名次
p=0
For j=1 To m
If ts（i）＜ts（j） Then p=p+1
mc（i）=p+1
Next j Next i
List1．AddItem″類別銷量名次″
For i=1 Tom
List1．AddItem gtype（i）+″″+Str（ts（i））+″″+Str（mc（i））
Nexti
End Sub
Private Sub Command1_Click （ ?。?br /> DimiAsInteger,jAsInteger,posAsInteger,tmpAsInteger,pAsInteger p=1
For i=1 To m
a（i）=p
p=p+k（i）
Next i
For i=1 To n
p=b（i） t（a（p））=i
a（p）=a（p）+1
Next i
pos=1
For i=1To m'對各類別商品按商品銷量進(jìn)行排序
For j=pos To pos+k（i）-2tmp=
t（j）：t（j）=t（p）：t（p）=tmp
Next j
pos=pos+k（i）
Next i
List2．AddItem″類別 商品 商品 銷量″
For i=1 Ton
List2．AddItem+″″+geshi（c（t（i）））+″″+Str（s（t（i）））
Nexti
End Sub
Function f（head As Integer,tail As Integer） As Integer Dim i As Integer,p As Integer
p=head-1
For i=head To tail
If s（t（i））＞s（t（p）） Then p=i
Next i
f=p
EndFunction
Function geshi（s As String） As String
'格式輸出，代碼略
End Function組卷：3引用：1難度：0.2