2020年浙江省湖州市、丽水市、衢州市高考信息技术模拟试卷（4月份）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分．每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．关于信息和信息处理，下列描述错误的是（ ）
组卷：13引用：1难度：0.6 -
2．关于信息的表达与交流，下列描述正确的是（ ）
组卷：2引用：1难度：0.6 -
3．某学生选课系统采用数据库来管理相关信息，其数据库部分界面如图所示。下列说法正确的是（ ）组卷：1引用：1难度：0.6 -
4．关于信息编码，下列描述正确的是（ ）
组卷：5引用：2难度：0.5 -
5．使用 Photoshop 软件制作“渔舟唱晚”作品，部分界面如图所示。下列说法正确的是（ ）
组卷：2引用：1难度：0.5
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
-
15．IPV4点分十进制IP地址可转换为十进制数字形式。编写“模拟IP过滤器”程序，程序功能如下：程序运行时，在列表框List1中显示能通过过滤的IP区间（IP 区间按起始端点升序排序），在文本框Text1中输入需要判断的IP地址，单击“验证”按钮Cmd1，若IP区间有重叠区间则作合并处理，并显示在列表框List2中，然后对输入的IP地址进行判断，判断结果显示在标签Label4中。程序运行界面如图所示：
（1）Cmd1对象属于类（单选，填字母：A．Form B．Label C．TextBox D．CommandButton）。
（2）实现上述功能的 VB 程序如下，请在横线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dim a（1 To 100）As Integer,n As Integer
Private Sub Form_Load （ ）
'本过程从数据库中读取 n 个 IP 地址区间数据，并依次存入数组 a（1）、…、a（2*n）中'
对能通过过滤的 IP 区间按区间起始端点升序排序
'代码略End Sub
Private SubCmd1_Click （ ）
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'合并重叠区间
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
'依次输出排序合并后的区间数据，代码略
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．某小卖部商品相关数据分别存放在相应的数据表中，如图a和图b所示。
编写“商品销售统计”程序功能如下：窗体加载时从数据库中读取商品的相关数据，对各商品类别总销量及名次进行统计，结果在列表框List1中显示；单击“查询”按钮Command1，按商品类别编号从小到大排列，同一类别商品按销量从大到小排序，在列表框List2中显示。程序运行界面如图c所示。
（1）阅读程序可知，gtype（b（3））的初始值为。
（2）请在横线处填入合适的代码。
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'数组 ts 存储每个类别商品总销量Dim
k（1To2000）AsInteger'数组k存储每个类别商品总数Dim m As
Integer,n AsInteger
Private Sub Form_Load（ ）
'从数据库读取 m 条记录中类别编号、商品类别数据分别存储在数组 gid、gtype 中
'从数据库读取n 条记录中类别编号、商品名称、商品销量数据分别存储在数组 b、c、s 中，代码略
For i=1To n'统计各类别商品总销量及商品总数k（b（i））=k（b（i））+1
Next i
For i=1To m'计算各类别商品总销量的名次
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 （ ）
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'对各类别商品按商品销量进行排序
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
