2020-2021学年浙江省宁波市九校联考高二(下)期末信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求,不选、多选、错选均不得分)
-
1.关于信息与信息技术,下列说法错误的是( )
组卷:9引用:1难度:0.6 -
2.以下实际生活场景中,涉及到人工智能技术的是( )
①疫情期间,进入公共场合通过“人脸识别登录验证”申领健康码
②通过手机 APP 远程打开家里的空调
③拨打某客服电话,与语音助手沟通解决售后问题
④驾驶搭载自动驾驶技术的汽车
⑤利用扫描仪扫描文稿并自动通过 Email 进行发送组卷:14引用:3难度:0.5 -
3.利用 Access 软件设计新冠疫苗接种管理系统的数据库,其中已建好的“疫苗入库出库”数据表用于存储如表所示的数据。下列关于“疫苗入库出库”数据表的描述,错误的是( )
序号 疫苗编号 疫苗名称 生产厂商 入库/出库 数量 R001 MH098734 灭活疫苗 国药武汉生物 入库 5000 R002 MH076321 灭活疫苗 北京科兴 入库 15000 C001 MH098734 灭活疫苗 北京科兴 出库 6800 R003 CZ0102568 重组新冠病毒疫苗 康希诺 入库 10000 … … … … … … 组卷:0引用:1难度:0.4 -
4.用UltraEdit 软件查看字符内码,部分界面如图所示,下列说法正确的是( )
组卷:10引用:1难度:0.5 -
5.使用 Photoshop 软件制作“立夏”作品,部分界面如图所示。下列操作可行的是( )
组卷:0引用:1难度:0.4
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.一个含有 n 个元素的整数数组,如果数组两个连续元素之间差的绝对值包括了[1,n-1]之间的所有整数,则称之为一组“完美跳数”。小余制作了验证完美跳数的 VB 程序,功能如下:在文本框 Text1 中输入一组以逗号分隔且以逗号结尾的整数数组,单击“验证”按钮 Command1,在标签 Label1 中显示验证结果,运行界面如图所示。
(1)观察程序界面,具有 Caption 属性的对象有
Private Sub Command1_Click
Dim n As Integer,i As Integer,j As Integer
Dim a(1 To 100)As Integer,b(1 To 100)As Integer
Dim s As String,chr As String,temp As String
s=Text1.Text
i=1:n=0
Do While i<=Len(s)
ch=Mid(s,i,1)
If ch>=“0“And ch<=“9“Then
temp=temp+ch
Else
n=n+1
temp=““
End If
i=i+1
Loop
For i=2 To n
Next i
For i=1 To n-2
For j=
If b(j)<b(j-1)Then
t=b(j):b(j)=b(j-1):b(j-1)=t
End If
Next j
Next i
For i=1 To n-1
If b(i)<>i Then Exit For
Next i
If i=n Then Label1.Caption=“完美跳数“
Else
Label1.Caption=“非完美跳数“End Sub
(2)请在上述程序的横线处填上合适的代码。
(3)上述程序加框处代码有误,请改正。组卷:2引用:1难度:0.3 -
16.现有如下问题,在一个 6×6 的跳棋棋盘上放置 6 个棋子,使得每行、每列,每条斜线上至多有一个棋子,请问有几种不同的摆法。为了方便处理,可将棋盘模拟成 6*6 的正方形矩阵,如图1所示。该矩阵中从左往右列号依次 1,2,3,4,5,6,从上往下行号依次为 1,2,3,4,5,6。若在位置(1,2)(指第一行第二列)中放置了一个旗子,则第一行,第二列以及该位置所在的左斜线与右斜线均无法放置其他棋子。
解决该问题的算法思想如下:
①从第一行开始逐行放置棋子。
②每行从左到右逐列尝试放置棋子,放置之前与已放置的棋子作比对。
③若无冲突,放置该行棋子并跳转至下一行。
④若有冲突,则在本行中向右继续寻找放置棋子的位置,若找不到则返回上一行,重新寻找棋子放置位置。
⑤最后一行放置结束,输出一种方案并继续寻找下一方案。用 VB 程序实现该算法,程序界面设计如图2所示。
(1)若第一行的棋子放置在第三列,则第二行不能放置棋子的列的数量为
(2)实现上述功能的 VB 程序如下,请在横线处填入合适的代码。
Const n=6
Dim a(1 To n) As Integer
Dim m As Integer
Private Sub Command1_Click
Dim i As Integer,j As Integer
m=0
For i=1 To n
a(i)=0'a(i)存储第 i 行放置棋子的列号
Next i
For i=1 To n+1
If i=n+1 Then'所有行棋子放置完毕,输出一种方案
m=m+1
s=““
For j=1 To n
s=s+Str(j)+“:“+Str(a(j))+“|“
Next j
List1.AddItem s
i=i-2
Else'寻找下一行棋子放置位置
j=a(i)+1
Do While j<=n And check(i,j)=False
Loop
If j<=n Then
a(i)=j
Else
a(i)=0
If i<0 Then Exit For
End If
End If Next i
Label1.Caption=“共有“+Str(m)+“种方案“End Sub
'判断当前放置的棋子与已放置有无冲突
Function check(i As Integer'j As Integer) As Boolean
check=True
For k=1 To i-1
If a(k)=j Or j+i=a(k)+k Or
check=False
End If
Next k
End Function组卷:0引用:1难度:0.3