2020-2021学年浙江省湖州市、丽水市、衢州市高三(下)月考信息技术试卷(4月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)
-
1.下列关于信息和信息技术的说法,错误的是( )
组卷:6引用:1难度:0.7 -
2.下列关于网页和电子邮件的说法,正确的是( )
组卷:1引用:1难度:0.4 -
3.使用Access软件设计一个数据表,存储如图所示的某单位员工数据。
员工代号 姓名 性别 入职年月 所属部门 奖金 201903001 刘明 男 2019年3月 研发部 83,276 201803203 张帅 男 2018年3月 销售部 75,733 ... ... ... ... ... ... 组卷:0引用:3难度:0.4 -
4.用UltraEdit软件查看字符“Chang'e 5登月”的内码,部分界面如图所示。
下列说法正确的是( )组卷:4引用:3难度:0.6 -
5.使用GoldWave软件编辑某音频文件,部分界面如图所示。
下列说法正确的是( )组卷:1引用:1难度:0.4
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.模拟图像局部区域处理。随机生成n*n(n≤100,且为偶数)个“0”或“1”字符,将字符按行输出,构成一个n行n列初始矩阵,对该矩阵中的m行m列子矩阵(与初始矩阵同中心)进行水平翻转。例如,当n为8,m为4时,构成初始矩阵如图a所示,将子矩阵进行水平翻转后得到处理结果,如图b所示。
编写程序,实现上述功能:在文本框Text1中输入偶数n,单击“生成”按钮Command1,在列表框List1中显示初始矩阵,在文本框Text2中输入偶数m(2≤m≤n),单击“处理”按钮Command2,在列表框List2显示处理结果。程序运行界面如图c所示。
请回答下列问题:
(1)根据程序的运行界面,“处理”是按钮Command2的
(2)请在横线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
Dim n As Integer
Dim a(1 To 100*100)As String
Private Sub Command1_Click ( )
Dim i As Integer
n=Val(Text1.Text)
If n<=100 And n>=2 And n Mod 2=0 Then
For i=1 To n*n
a(i)=Chr (
'将初始矩阵显示列表框List1中,代码略
Next i
Else
List1.AddItem“输入有误“
End If
End Sub
Private Sub Command2_Click ( )
Dim b(1 To 100*100)As String,s As String
Dim m As Integer,y As Integer,i As Integer,R As Integer,C As Integer
m=Val(Text2.Text)
If m>=2 And m<=n And m Mod 2=0 Then
y=
s=““
For i=1 To n*n
R=(i-1)\n+1:C=(i-1)Mod n+1
If R<=y Or R>n-y Or C<=y Or C>n-y Then
b(i)=a(i)
Else
b(i)=a(n*C-R+1)'(3)
End If
s=s+b(i)
If i Mod n=0 Then
List2.AddItem s
s=““
End If
Next i
Else
List2.AddItem“输入有误“
End If
End Sub组卷:2引用:1难度:0.5 -
16.求解“幻圆”问题。三个圆相互重叠,形成七个区域,编号为①、②、③、④、⑤、⑥、⑦,如图a所示。将数字1~7填入每个区域中,实现所有数字仅用一次且每个圆内的数字之和相等,如图b所示,圆内数字的和为1+4+6+7=2+4+5+7=2+3+6+7,求解区域①~⑦中可以填入符合条件数字的所有方案。
求解思路:在七个区域①、②、③、④、⑤、⑥、⑦上枚举七个数字1、2、3、4、5、6、7的所有排列来进行验证。程序运行界面如图c所示。
请回答下列问题:
(1)根据题意及程序代码,在区域①~⑦中按顺序分别填入7,4,2,1,3,6,5,则该排列
(2)请在横线处填入合适的代码。
Dim a(1 To 7)As Integer'a(1)~a(7)依次存储区域①~⑦的值
Private Sub Command1_Click ( )
Dim i As Integer,n As Integer
Dim y1 As Integer,y2 As Integer,y3 As Integer
For i=1 To 7
a(i)=i
Next i
n=0
Do While True
For i=7 To 2 Step-1
If a(i)=8 Then
a(i)=1
End If
Next i
If a(1)=8 Then Exit Do
If check
y1=a(1)+a(2)+a(3)+a(4)
y2=a(2)+a(4)+a(5)+a(6)
y3=a(3)+a(4)+a(6)+a(7)
If y1=y2 And
n=n+1
'在列表List1中,按格式输出a数组元素的值,代码略
End If
End If
a(7)=a(7)+1
Loop
Label1.Caption=“解法共计“& Str(n) &“种。“
End Sub
Function check
Dim i As Integer,n As Integer,f(1 To 8)As Integer
For i=1 To 8
f(i)=0
Next i
For i=1 To 7
Next i
n=0
For i=1 To 7
n=n+f(i)
Next i
If n=7 Then check=True Else check=False
End Function组卷:2引用:1难度:0.5