2021年浙江省高考信息技术仿真试卷（三）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．下列关于浏览器及信息获取的说法中正确的是（ ）
组卷：3引用：1难度：0.6 -
2．下列有关word相关功能说法不正确的是（ ）
组卷：2引用：1难度：0.5 -
3．设计“小微图书管理系统”时，新建“图书借阅”Access数据表，存放下列表格数据：以下有关“小微图书管理系统”和Access数据表结构设计描述正确的是（ ）
图书编号 图书名称 借阅人 借书日期 还书日期 是否损坏 JS0001 Python编程从入门到实践 黄晓琳 2019-5-14 2019-6-5 否 JS0002 深入理解Java虚拟机 李语敏 2019-11-21 2019-12-25 是 …… …… …… …… …… …… JX0712 历史的原声 王甜甜 2019-1-19 2020-6-1 否 组卷：2引用：2难度：0.6 -
4．下列关于多媒体硬件设备和多媒体软件工具说法不正确的是（ ）
组卷：14引用：1难度：0.5 -
5．用photoshop软件制作“在线教育”作品。当前状态下，下列说法正确的是（ ）
组卷：3引用：1难度：0.5
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
-
15．编写一个VB程序，实现如下功能：输入s位数字构成的数字字符串（第1位数字不为0），移除k （0＜k＜s）个数字后，在保证原数字相对位置不变的情况下，使剩余数字组成的新数为最小（注：新数第1位不能为0）。例如8个数字构成的数字字符串“71803296”，移除3个数字，得到5位数字构成的最小数是“10296”，具体算法如图a所示。
算法分析：要使得到的5位数字最小，首先需保证能取到5个数字，且首位应尽量小，那么取首位数的范围应保证余下有4个数字，即在前4位中选最小非0的数字。
程序运行时，在文本框Text1中输入一个数字字符串，在文本框Text2中输入要移除的数字个数，单击“运行”按钮CmdRun后，在标签Labell显示得到的最小新数，程序运行界面如图b所示。
（1）程序运行时，若要在名为Form1的窗体标题上显示“删数”，可以在Form Load事件处理过程中添加语句为（单选，填字母：A．Form1.Text=“删数“\B．Form1.Caption=“删数“\C．Form1.AddItem“删数“）
（2）实现上述功能的VB程序代码如下，请在横线处填入合适的代码。
Private Sub CmdRun_ Click （ ）
Dim Num As String,New_num As String'Num为输入的数字字符串
Dim i As Integer,j As Integer,m As Integer,
Dim As Integer,s As Integer,k As Integer
Dim a（30）As String,b（30）As Integer
Num=Text1.Text：s=Len（Num）
k=Val （Text2.Text）'k为删除数字个数
For i=1 To s
a（i）=Mid（Num,i,1）
Nexti
j=1
m=1
n=①
For i=m+l To n'取第一个非零最小数字
If
Then m=I'加框处程序代码有误，请改正
Next i
b（j）=m
Do Whil②'取其他最小数字
m=m+1
n=n+1
For i=m+1 To n
If a（i）＜a（m） Then m=i
Next i
j=j+1：b（j）=m
Loop
For i=m+1 To s'最后直接取的数字
j=j+1：b（j）=i
Next i
For j=1 To s-k'输出最小数
New_ num③
Next j
Labell.Caption=New_num
End Sub
（3）加框处程序代码有误，请改正。组卷：2引用：1难度：0.2 -
16．在平面直角坐标系中，给定一个矩形左下和右上2个坐标点即可确定该矩形，例如左下（1，1）、右上（5，4），则矩形如图a所示。
现给定若干个小矩形的坐标点，要求判断能否构建出一个新的大矩形，在大矩形中，各构成的小矩形无重叠，无空白。
例1：给定的5个小矩形能够精确构建一个坐标为（1，1）、（5，4）的大矩形。
小矩形左下，右上坐标如下：5个小矩形精确构建一个大矩形（图b）：
例2：给定的3个小矩形，有相交区域，有空白区域，不能精确构建成一个大矩形（图c）。
在任何两个小矩形坐标不完全相同的情况下，判定能否精确构建大矩形的算法如下：
构成的大矩形面积等于每个小矩形的面积之和；
获取每个小矩形的所有坐标点，有且仅有四个点只出现一次，其他坐标点成对出现。
（1）给定3个矩形左下和右上坐标依次为[2，4]，[5，5]，[3，2]，[4，4]，[4，2]，[5，4]，请你再添加一个矩形坐标，使4个矩形精准构建一个大矩形，则添加矩形左下和右上坐标依次为。
（2）根据上述算法描述，用VB程序实现代码如下，请在画线处填入合适的代码。
Const n=5'常量n存储小矩形个数
Dim a（1 To 2*n）As Integer'存储每个小矩形给定X轴坐标
Dim b（1 To 2*n）As Integer'存储每个小矩形给定Y轴坐标
Private Sub Form_Load
'本过程读取每个小矩形X轴坐标存储在数组a中、每个小矩形Y轴坐标存储在数组b中，并在List1中显示代码略
End Sub
Private Sub Command1_Click
Dim c（1 To 4*n）As Integer'存储每个小矩形所有X轴坐标，1～2*n存左下和右上，2*n+1～4*n存左上和右下
Dim d（1 To 4*n）As Integer'存储每个小矩形所有Y轴坐标，1～2*n存左下和右上，2*n+1～4*n存左上和右下
Dim mc（1 To 4*n）As Integer'记录所有坐标是否成对重复，不重复为1，重复为0
Dim temp As Integer
Dim i As Integer,j As Integer,f As Integer
Dim sum As Integer,sumt As Integer,count As Integer
For i=1 To 2*n Step 2
sum=sum+（a（i+1）-a（i））*（b（i+1）-b（i））
Next i
f=1
For i=1 To 2*n
c（i）=a（i）
c（n*2+i）=a（i）
d（i）=b（i）
d（n*2+i）=b（i+f）
①
Next i
For i=1 To 4*n-1
For j=1 To 4*n-i
If c（j）＞c（j+1）Or c（j）=c（j+1）And d（j）＞d（j+1）Then
temp=c（j）：c（j）=c（j+1）：c（j+1）=temp
temp=d（j）：d（j）=d（j+1）：d（j+1）=temp
End If
Next j
Next i
sumt=②
If sum＜＞sumt Then
Label1.Caption=“不能精确构建”
Exit Sub'结束当前过程，不再执行后续程序
Else
For i=1 To 4*n
mc（i）=1
Next i
i=1
Do While i＜4*n
If c（i）=c（i+1）And d（i）=d（i+1）Then
mc（i）=0：mc（i+1）=0
i=i+2
Else
i=i+1
End If
Loop
count=0
For i=1 To 4*n
③
Next i
If count=4 Then Label1.Caption=“能精确构建“Else Label1.Caption=“不能精确构建”
End If
End Sub组卷：1引用：1难度：0.5
