2021年浙江省高考信息技术模拟试卷(6月份)(一)(选考)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,共24分)
-
1.下列关于信息与信息技术的描述,正确的是( )
组卷:10引用:4难度:0.7 -
2.下列说法不正确的是( )
组卷:14引用:2难度:0.9 -
3.使用Access软件打开数据库文件,部分界面如图所示,下列说法正确的是( )
组卷:2引用:2难度:0.8 -
4.使用UltraEdit软件观察字符“旻,读作mín”的内码,部分界面如图所示。
下列说法正确的是( )组卷:12引用:4难度:0.5 -
5.用 Photoshop 制作“2021拼搏”作品,部分界面如图所示:
下列说法正确的是( )组卷:5引用:2难度:0.6
二、非选择题(本大题共4小题,共26分)
-
15.在 n 个元素的数组中,小程通过边分段、边合并的方法将 n 个数据处理成一个非降序数据段(a(1)≤a(2)≤a(3)≤……),排序的方法如下:
(a)从第 1 个元素开始,在数组中依次搜索若干个非降序数据段;
(b)将第 1、2 个非降序数据段合并成一个新的非降序数据段,再将第 3、4 个非降序数据段合并成一个新的非降序数据段,依次类推。若非降序数据段个数为奇数,则最后 1 个数据段不处理。
(c)合并后的数据段总数大于 1 个时,重复(a)(b)的操作。
编写 VB 程序,实现上述合并排序功能。运行程序,在标签 Label1 显示原始数据,单击“合并排序”按钮 Command1,在列表框 List1 中显示每次排序后结果。排序过程及程序运行界面如图 a 所示。请回答下列问题:
(1)下列既可作为输入,也可作为输出的对象是
(2)为实现上述功能的 VB 程序如下,请在横线处填入合适代码。
(3)程序中加框处代码有错,请改正。
Const n=10
Dim a(1 to n)As Integer
Private Sub Form_Load ( )
'产生 n 个 1-100 之间的随机数,存放在 a 数组中,并显示在标签 Label1 中,代码略。
End Sub
Private Sub Command1_Click ( )
Dim num As Integer'num 表示非降序段数
Dim b(n)As Integer,p1 As Integer,p2 As Integer,t As Integer
Dim t1 As Integer,t2 As Integer,i As Integer,j As Integer,k As Integer
num=0:p1=1
Do While num<>1
t1=pos(p1)
num=num+1
If p2>n Then
p1=1
Else
t2=pos(p2)
num=num+1
i=p1:j=p2:t=1
Do While t<=t1+t2'将两个非降序段合并
If j>=p2+t2 Or
b(t)=a(i):i=i+1
Else
b(t)=a(j):j=j+1
End If
t=t+1
Loop
For k=1 To p1+p2'将合并后的结果存入 a 数组
a(p1+k-1)=b(k)
Next k
p1=
If p1>n Then p1=1:num=0
'将每次的排序结果显示在列表框 List1 中,代码略。
End If
Loop
End Sub
Function pos(low As Integer)As Integer'查找从 low 开始连续非降序段长度
Dim i As Integer
For i=low To n-1
If a(i)>a(i+1)Then Exit For
Next i
End Function组卷:0引用:1难度:0.2 -
16.在图像编码的算法中,需要将一个给定的方形矩阵进行Z字形扫描(Zigzag Scan),以获得更好的压缩比。给定一个n×n的矩阵,Z字形扫描的过程如图所示:
经过扫描后得到的数据结果为:“57,45,0,0,0,0,23,0,-30,-16,0,0,1,0,0,0,0,…,0,0”,数据元素个数为64个。进一步经过压缩后,最终得到行程编码:“57,1,45,1,0,4,23,1,0,1,-30,1,-16,1,0,2,1,1,0,51”,数据元素个数为20个。
(1)行程编码压缩最坏情况下,数据压缩后数据元素的数量将是原来的
(2)根据上述扫描算法,其 VB 代码实现如下,请在横线处填入合适的代码。
Dim a(0 To 1000)As Integer'存储原矩阵数据,按行优先存储
Dim b(0 To 1000)As Integer'存储Z形扫描后数据
Dim c(0 To 1000)As Integer'存储行程编码压缩后数据
Dim n As Integer
‘矩阵导入代码略,以行优先存储在a数组中,如例子中数据存储顺序为“57,45,0,23,0,0…”
Private Sub Command2_Click ( )
Dim choice As Integer'1:向右移动;2:向右上移动;3向下移动 4向左下移动
Dim row As Integer,col As Integer,i As Integer,j As Integer
Dim pre As Integer,count As Integer
choice=1:row=0:col=0:i=0
Do While (row<>n-1 Or col<>n-1)
b(i)=a(row*n+col):i=i+1
If choice=1 Then
If row=0 Then choice=4 Else choice=2
ElseIf choice=2 Then
row=row-1:col=col+1
If
choice=1
ElseIf col=n-1 Then
choice=3
End If
ElseIf choice=3 Then
row=row+1
If col=0 Then choice=2 Else choice=4
ElseIf choice=4 Then
row=row+1:col=col-1
If row=n-1 Then
choice=1
ElseIf col=0 Then
choice=3
End If
End If
Loop
b(i)=a(n*n-1):j=0:pre=b(0):count=0
For i=0 To n*n-1'输出Z形序列,并进行行程压缩
If pre=b(i)Then
count=count+1
Else
c(j)=pre:c(j+1)=count
pre=b(i):j=j+2
End If
Next i
c(j)=pre:c(j+1)=count
Text1.Text=““
For i=0 To j+1
Text1.Text=Text1.Text+Str(c(i))+“,“
Next i
End Sub组卷:0引用:1难度:0.3