2021年浙江省金丽衢十二校高考信息技术二模试卷
发布:2025/1/3 3:30:2
一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分。)
-
1.下列关于信息与信息技术的描述,正确的是( )
组卷:5引用:3难度:0.6 -
2.以下不属于人工智能范畴的是( )
组卷:7引用:2难度:0.5 -
3.利用Access设计一个数据表,存储如图所示的进度完成记录数据
序号 内容 是否已上 班级 预计上课时间 1 冒泡排序 已上 高二(2) 20210225 2 冒泡排序优化 未上 高二(1) 20210330 3 选择排序 未上 高二(11) 20210415 … … … … … 组卷:1引用:1难度:0.5 -
4.下列有关计算机信息编码的描述,正确的是( )
组卷:10引用:3难度:0.4 -
5.使用Photoshop处理“圣诞节贺卡.psd”,编辑界面如图所示。下
列说法正确的是( )组卷:0引用:2难度:0.5
二、非选择题(本大题共4小题,其中第13题4分,第14题8分,第15题7分,第16题7分,共26分)
-
15.现A港口有n(编号为1到n)个货物,需要在d天内运送到B港口,要求按照货物编号从小到大进行运送,求运送货物的货船的最低载重量。
现有6个货物,依次编号为1-6,其重量如下表所示。编号 1 2 3 4 5 6 重量 9 1 5 13 9 4
编写VB程序,实现上述功能。运行程序,在文本框Text1中输入各货物重量(以逗号分隔),在文本框Text2中输入要求天数d,单击命令按钮后,在标签Label3中显示货船最低载重量。程序运行界面如图所示。
请回答下列问题:
(1)观察代码可知,该程序命令按钮的对象名为
(2)请在横线处①②③填入合适的代码。
(3)程序中加框处代码有误,请修改。
Dim weight(1 To 100)As Integer
Dim t As Integer
Private Sub Boat_Click ( )
Dim s As String
Dim d As Integer
Dim max,sum As Integer
Dim L,R As Integer
Dim m As Integer
s=Text1.Text
d=Val(Text2.Text)
t=1
'将货物重量存到weight数组
For i=1 To Len(s)
c=Mid(s,i,1)
If c=“,“Then t=t+1 Else①
Next i
'求货物最大重量和总重量
max=0
For i=1 To t-1
If weight(i)>max Then max=weight(i)
②
Next i
L=max:R=sum
Do While L<R
m=(L+R)\2
If③
Loop
Label1.Caption=“货船最低载重量为:“+Str(L)
End Sub
Function days(m As Integer)As Integer
Dim temp As Integer
Dim c As Integer
c=1
For i=1 To t-1
temp=temp+weight(i)
If temp>m Then
temp=0
c=c+1
End If
Next i
days=c
End Function组卷:1引用:1难度:0.5 -
16.学校里有一个水房,水房里一共装有 m 个水龙头可供同学们打开水,每个龙头每秒钟的供水量相等,均为 1。现在有 n 名同学准备接水,他们的初始接水顺序已经确定。将这些同学按接水顺序从 1到 n 编号,第i 位同学的接水量为 ai。接水开始时,1 到 m 位同学各占一个水龙头,并同时打开水龙头接水。当其中某名同学j 完成其接水量要求aj 后,下一名排队等候接水的同学 k马上接替 j 同学的位置开始接水。这个换人的过程是瞬间完成的,且没有任何水的浪费。即第j 位同学第 x 秒结束时完成接水,则第 k 位同学第 x+1 秒立刻开始接水。若当前接水人数 n不足 m,则只有 n个水龙头供水,其它m-n个水龙头关闭。
小王编写了一个“计算接水时间”的程序,功能如下:程序运行时,在文本框Text1中输入每位同学的接水时间(以逗号隔开),在文本框Text2中输入水龙头数,单击“计算”按钮Command1,在标签Label1中显示所有同学接水的总时间。程序运行界面如图所示。
请回答下列问题:
(1)如第图所示,若文本框Text1中输入的是“4,5,7,1,6,2,8”(不包括双引号),则所有同学接水的总时间为
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,t As Integer
Dim m As Integer,n As Integer,ans As Integer
Dim s As String,ch As String
Dim a(1 To 100)As Integer,b(1 To 20)As Integer
s=Text1.Text
m=Val(Text2.Text)
n=1:t=0
For i=1 To Len(s)
ch=Mid(s,i,1)
If ch>=“0“And ch<=“9“Then
t=t*10+Val(ch)
Else
n=n+1
a(n-1)=t
t=0
End If
Next i
a(n)=t
For i=1 To m
b(i)=i
Next i
For i=1 To m-1
For ①
If a(b(j))<a(b(j+1))Then t=b(j):b(j)=b(j+1):b(j+1)=t
Next j
Next i
If n>m Then
For i=m+1 To n
②
For j=m To 2 Step-1
If a(b(j))>a(b(j-1))Then t=b(j):b(j)=b(j-1):b(j-1)=t
Next j
Next i
End If
③
Label1.Caption=“共需要“+Str(ans)+“秒“
End sub组卷:1引用:1难度:0.3