2020-2021学年浙江省绍兴市上虞区高二(下)期末信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分,每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分。)
-
1.下列关于信息与信息处理的说法,错误的是( )
组卷:5引用:2难度:0.6 -
2.下列关于浏览器和网页的说法,正确的是( )
组卷:0引用:1难度:0.7 -
3.使用Access软件设计校园体温记录系统的数据库,其中已建好“体温记录”数据表用于存储如表所示的数据。
学号 姓名 班级 日期 体温 是否住宿 20200510 陈怡 高一(5)班 2021.6.30 36℃ 是 20180101 沈佳森 高三(1)班 2021.6.31 36.3℃ 否 20190302 张国浩 高二(3)班 2021.6.32 36.1℃ 是 … … … … … … 组卷:0引用:1难度:0.4 -
4.下列关于计算机信息编码的描述,正确的是( )
组卷:9引用:3难度:0.4 -
5.用Photoshop软件制作“勇攀高峰”作品,在“生命不息运动不止”图层输入文字“生命不息 运动不止”,相关编辑界面如图所示,下列描述正确的是( )
组卷:1引用:1难度:0.4
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分。)
-
15.小明设计了一个算法,来实现10个11-99之间随机数字的升序排序,并去掉重复数字。程序设计思想如下:a(1)~a(10)用于存放原数据,b(1)~b(num) 用于存放排序完成后的结果,对于每个待排数字a(i),先在b数组中查询是否存在,如不存在,则放入到b数组中。程序运行界面如图所示。
VB代码实现如下:
Const n=10
Dim a(1 To 100)As Integer
Dim b(1 To 100)As Integer
Private Sub Form_Load( )
’随机生产10个11-99之间的数字,并依次存储在数组a中,代码略
End Sub
Private Sub Command1_Click( )
Dim num As Integer,L As Integer,R As Integer,i As Integer
Dim m As Integer,f As Boolean
num=1:b(1)=a(1)
For i=2 To n
b(num+1)=a(i)+1
f=False
For j=1 To num+1
If a(i)<b(j) Then
Exit For
ElseIf a(i)=b(j) Then
①
End If
Next j
If Not f Then
For k= j+1 To num
b(k+1)=b(k)
Next k
②
num=num+1
End If
Next i
根据如上代码,请回答下列问题:
(1)若要清除文本框Text1中的内容,能实现该功能的语句是
(单选,填字母:A.Text1.clear/B.Text1.Text=““/C.Text1.Caption=““)
(2)请在横线处填上合适的代码。
(3)程序中横线处代码有错,请改正。组卷:2引用:1难度:0.3 -
16.小王计划使用VB制作一个扫雷小游戏,他首先需要生成一个“雷区”:
①生成n*n的矩阵,其中计划埋雷m 个,n和m 的数据分别从text1和text2中获取(n<=10,m<=n)
②随机位置埋好地雷后(埋雷位置用X表示且埋雷位置不重复),未埋雷的位置显示该位置周围一圈地雷的数量。
程序代码如下:
Dim flag(0 To 200)As Boolean,a(0 To 200)As String
Dim n As Integer,m As Integer
Private Sub Command1_Click
Dim s As String,x As Integer,k As Integer
Dim i As Integer,j As Integer
Randomize
n=Val(Text1.Text):m=Val(Text2.Text)
’初始化数组flag中各元素均为False,数组 a中各元素值为字符“0“,代码略
For i=1 To m
x=Int(Rnd*(n^2))+1
If flag(x)=True Then i=i-1 Else flag(x)=True
Next i
For k=1 To n*n
If flag(k)=True Then
a(k)=“X“
Else
For i=(k-1)\n To (k-1)\n+2
For j=
If i=0 Then Exit For
If flag((i-1)*n+j)=True And j>=1 And j<=n Then
a(k)=
End If
Next j
Next i
End If
Next k
For i=1 To n*n’在列表框list1中输出矩阵
s=s+““+a(i)
If
List1.AddItem s
s=““
End If
Next i
End Sub
根据上述代码,完成下列问题:
(1)上图框中位置未埋雷,且数字被遮挡,请问该位置中应填写的数字是
(2)请在横线处填上合适的代码。组卷:0引用:1难度:0.3