2021年浙江省金华市义乌市高考信息技术适应性试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列关于信息与信息的加工描述正确的是( )
组卷:3引用:2难度:0.6 -
2.下列有关浏览器与网页的说法,正确的是( )
组卷:3引用:2难度:0.7 -
3.使用ACCESS设计了一个“学生表”,用于存储如表所示的数据:
学籍辅号 班级 姓名 性别 选考科目 特长生 202201001 01 王康 男 物地技 是 202201002 01 胡恬 女 化生地 否 202202043 02 徐明明 男 政史地 否 组卷:1引用:2难度:0.5 -
4.下列关于信息编码的描述,正确的是( )
组卷:8引用:2难度:0.4 -
5.使用Photoshop软件制作“商贸义乌”作品,部分界面如图所示:
下列说法正确的是( )组卷:1引用:2难度:0.5
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共23分。)
-
15.在一条宽度为L的直线小河中,一只青蛙想沿着直线从河的左侧跳到右侧。小河中有n片位置互不相同的荷叶,青蛙必须跳到荷叶上过河,否则会掉入水中。开始时青蛙站在河的左侧(坐标为0),接着不停地向右侧跳跃,每次跳跃的距离不超过W,当青蛙跳到或跳过河的右侧(坐标为L)时,青蛙完成过河。
例如当L=20,n=4,W=5,开始时4片荷叶的坐标为3,9,11,17,则至少需要增加2片荷叶,即在坐标8和16分别增加一个荷叶,得到过河的可行方案是0→3→8→9→11→16→17→20。
编写程序找出青蛙成功过河至少需要增加的荷叶数,界面如图b。
请回答以下问题:
(1)若要将列表框List1顶端与窗体顶端的距离设置为100,能实现该功能的语句是
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
Private Sub Form_Load ( )
'读取荷叶的位置,并保存到数组a中
'荷叶的数量保存在n中
'荷叶坐标和数量分别显示在list1和Text2中
End Sub
Private Sub Command1_Click ( )
Dim a(0 To 100)As Integer
Dim n As Integer,L As Integer,W As Integer,tot As Integer
Dim i As Integer,j As Integer,p As Integer,d As Integer
L=Val(Text1.Text):n=Val(Text2.Text):W=Val(Text3.Text)
a(0)=0:a(n+1)=①
For i=1 To n-1
k=i
For j=i+1 To n
If a(k)>a(j)Then a(j)=a(k)
Next j
If k<>i Then
tmp=a(k):a(k)=a(i):a(i)=tmp
End If
Next i
For i=1 To n
List1.AddItem a(i)
Next i
p=1:d=0
Do While d<L
If p<=n+1 And ②
d=a(p)
p=p+1
Else
tot=tot+1
③
End If
Loop
Label4.Caption=“至少需要增加的荷叶数为:“+Str(tot)
End Sub
(3)程序中加框处代码有错,请改正。组卷:1引用:1难度:0.5 -
16.一张骨牌由上下两行共四个格子构成,每个格子有一个1到6之间的数字。现在一共有5张骨牌,从左到右排成一排,定义每张骨牌的差值为:骨牌第一行的数字和减去第二行的数字和;5张骨牌的差值为:每张骨牌的差值和的绝对值。
如图a中,5张骨牌的差值为:
|(3+3-4-4)+(6+3-2-5)+(2+3-4-5)+(1+5-3-3)+(1+1-1-1)|=4。
每张骨牌都可以顺时针旋转90度,效果如图b所示。现在最多可以选择其中一张骨牌进行旋转,使得旋转后的骨牌差值变小。求一种旋转方案,并输出骨牌差值的最小值。
编写VB程序,实现上述功能。运行程序,在文本框Text1中依次输入5张骨牌上的数字,单击“计算”按钮Command1,在文本框Text2、Text3、Text4中输出结果。程序运行界面如图b所示。
(1)若图a中第1张骨牌的数字修改为,1、2、6、6,则骨牌差值的最小值为
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
Dim a(1 To 20)As Integer‘依次存储5张骨牌上的数字
Dim d(1 To 5)As Integer’依次存储5张骨牌,上下两行的差值
Const n=5
Private Sub Form_Load ( )
'从文本框Text1读取5张骨牌上的数字,依次存入数组a
'a(1)~a(4)依次存储第一张骨牌从左到右从上到下四个数字
'a(5)到a(20)依次类推
'代码略
End Sub
Private Sub Command1_Click ( )
Dim i As Integer,up As Integer,down As Integer,t As Integer,k As Integer
Dim id As Integer,times As Integer,x As Integer,ans As Integer
For i=1 To n
up=a(4*i-3)+a(4*i-2)
down=a(4*i-1)+a(4*i)
d(i)=up-down
t=t+d(i)
Next i
id=0:times=0
ans=①
If ans<>0 Then
k=1
Do While k<=n
For x=1 To 3
temp=②
If temp<ans Then
ans=temp
id=k
③
End If
If temp=0 Then Exit Do
Next x
k=k+1
Loop
End If
Text2.Text=CStr(id)
Text3.Text=CStr(times)
Text4.Text=CStr(ans)
End Sub
Function turn(ByVal k As Integer,ByVal x As Integer)As Integer
‘求将第k张骨牌,顺时针旋转x次后,上下两行的差值,代码略
End Function组卷:1引用:1难度:0.3