2019-2020学年浙江省“七彩阳光”新高考研究联盟高三(下)月考信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分,在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列有关信息和信息技术的说法正确的是( )
组卷:3引用:1难度:0.6 -
2.下列应用到人工智能的是( )
①利用宿舍的测温门测量体温
②医院服务机器人与人进行语音交流并提供资讯
③居家时期远程控制公司电脑进行文件下载
④手机外卖使用人脸识别付款
⑤能够实现自动驾驶的汽车组卷:7引用:1难度:0.6 -
3..小胡使用IE 浏览器访问网易云音乐 http://music.163.jye.ai/,下列说法正确的是( )
组卷:3引用:1难度:0.6 -
4.用 UltraEdit 软件查看“2020 中国加油!”的字符内码,部分界面如图所示,下列说法正确的是( )
组卷:4引用:1难度:0.5 -
5.使用 Photoshop 软件制作“中国加油”海报,界面如图所示,下列说法正确的是( )
组卷:3引用:1难度:0.6
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分。)
-
15.求数组a 中非降序数列的方法,算法描述如下:
(1)用数组依次存储每个非降序数列中最大的元素(查找过程中的最大值),初始时 b(1)为数组 a 第 1 个元素。
(2)加入方法:将 a(i)与数组 b 中的每个元素依次逐个比较:
若 a(i)不比 b(j)小就用 a(i)替换 b(j)中的值;将 a(i)添加到第 j 个非降序数列中,并连接到 c 数组的 c(j)中。
若 a(i)比 b(j)都小,则在数组 b 最后添加新的元素值为 a(i),即将 a(i)添加到第 j+1 个下降数列中,并连接到 c 数组的 c(j+1)中。
(3)若数组a 各元素的值为:12,36,16,36,27,18 时,则 3 个非降序数列分别为:“12,36,36”,“16,27”,“18”。
程序运行界面如图所示:
小明依据上述描述设计了如下 VB 程序。请回答下列问题:
(1)代码“List1.Clear“中的 Clear 是
(2)实现上述功能的 VB 程序如下,请在横线处填上合适的代码。
①
②
③
(3)程序中加框处代码有错,请改正。
改正:
Const m=15
Dim a(1 To m) As Integer Private Sub Form_Load
'读取m 个数据,依次存储到 a(1)、a(2)、…a(m)中,代码略End Sub
Private Sub Command1_Click
Dim b(1 To m) As Integer'存储数列最大的值Dim c(1 To m) As String'存储非降序数列Dim i As Integer
Dim bottom As Integer Dim j As Integer
Dim bn As Integer'存储非降序数列的个数List1.clear
b(1)=a(1)
①
c(1)=Str(a(1))
For i=2 To m
For j=1 To bn
If ②Then
b(j)=a(i)
Exit For
End If
Next j
If j>bn Then
bn=bn+1
③
c(bn)=Str(a(i))
End If
Next i
For i=1 To bn
List1.AddItem c(i) Next i
Text2.Text=“数列中共有“+Str(bn)+“个非降序序列“
End Sub组卷:2引用:1难度:0.3 -
16.淳安千岛湖中有若干座岛屿,有些岛屿之间有桥相连,有些岛屿之间无桥相连,可以通过其它的岛屿相连。现在我们来建立一种关系矩阵模拟这种现象,如有 9 个岛屿,依次编号为 1~9,相互之间有桥相连在矩阵中用 1 表示;无桥相连用 0 表示;对于自身也用 0 表示,即矩阵的左上角到右下角的对角线全为0。
李同学设计了一个用来求两座岛屿之间相连所需桥的数量的 VB 程序,点击“生成矩阵”按钮Command1,随机产生一个关系矩阵,并在列表框 List1 中显示。在文本框 Text1 和 Text2 中输入岛屿的编号(1~9),点击“求解”按钮 Command2,在 Labell 中输出两座岛屿之间相连所需桥的数量。VB 程序运行界面如图所示。
对无桥相连的两座岛屿 p1,p2 之间相连的算法思想如下:
①p1 岛屿所在行开始,将与其相连的岛屿依次添加到数组 b 中。
②若数组 b 中未出现岛屿 p2,则依次查找与其相连岛屿的所在行,将新出现的相连的岛屿添加到数组 b 中。
③在查找过程中同时记录查找步数。
数组 b 内全部搜索完毕,若 p2 还是未出现,则两座岛屿之间无法相连,反之输出桥的数量。请回答以下问题:
(1)如上图所示的矩阵,从 5 号岛屿到 9 号岛屿最少需要经过
(2)请在横线处填入合适的代码。
Const n=9'岛 屿 的 数 量Dim a(1 To n*n) As Integer
Private Sub Command1_Click
For i=1 To n
For j=i To n
If j=i Then
a((i-1)*n+j)=0'对 角 线 为 0
Else
a((i-1)*n+j)=Int(Rnd*2)
①
End If
Next j Next i
For i=1 To n
s=““
For j=1 To n
s=s+Str(a((i-1)*n+j))
Next j
List1.AddItem s Next i
End Sub
Private Sub Command2_Click
Dim b(1 To n) As Integer
Dim qiao(1 To n) As Integer'记录相连岛屿之间桥的数量
Dim find(1 To n) As Boolean'记录某岛屿是否被添加到数组 b 中
Dim p1 As Integer,p2 As Integer,cur As Integer,k As Integer,q As Integer
p1=Val(Text1.Text)
p2=Val(Text2.Text)
cur=p1:k=1:q=0
find(cur)=True
Do While find(p2)=False
For i=1 To n
If a((cur-1)*n+i)=1 And find(i)=False Then
b(k)=i:k=k+1
find(i)=True
②
End If
Next i
q=q+1
If q=k Then Exit Do Else③
Loop
If find(p2)=True Then
Label1.Caption=“需要经过“+Str(qiao(p2))+“座桥“
Else
Label1.Caption=“无桥相连“
End If
End Sub组卷:0引用:1难度:0.3