试卷征集
加入会员
操作视频
当前位置: 试卷中心 > 试卷详情

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)下列既可作为输入,也可作为输出的对象是
     
    。(单选,填字母:A.Label1/B.Text1/C.List1)
    (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
     
     Then
    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
     
    Then
    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
深圳市菁优智慧教育股份有限公司
粤ICP备10006842号公网安备44030502001846号
©2010-2025 jyeoo.com 版权所有
APP开发者:深圳市菁优智慧教育股份有限公司| 应用名称:菁优网 | 应用版本:5.0.7 |隐私协议|第三方SDK|用户服务条款
广播电视节目制作经营许可证|出版物经营许可证|网站地图
本网部分资源来源于会员上传,除本网组织的资源外,版权归原作者所有,如有侵犯版权,请立刻和本网联系并提供证据,本网将在三个工作日内改正