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

2021年浙江省金华市义乌市高考信息技术适应性试卷

发布:2024/4/20 14:35:0

一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)

  • 1.下列关于信息与信息的加工描述正确的是(  )

    组卷:3引用:2难度:0.6
  • 2.下列有关浏览器与网页的说法,正确的是(  )

    组卷:3引用:2难度:0.7
  • 3.使用ACCESS设计了一个“学生表”,用于存储如表所示的数据:
    学籍辅号 班级 姓名 性别 选考科目 特长生
    202201001 01 王康 物地技
    202201002 01 胡恬 化生地
    202202043 02 徐明明 政史地
    下列关于“学生表”描述正确的是(  )

    组卷:1引用:2难度:0.5
  • 4.下列关于信息编码的描述,正确的是(  )

    组卷:8引用:2难度:0.4
  • 5.使用Photoshop软件制作“商贸义乌”作品,部分界面如图所示:

    下列说法正确的是(  )

    组卷:1引用:2难度:0.5

二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共23分。)

  • 15.在一条宽度为L的直线小河中,一只青蛙想沿着直线从河的左侧跳到右侧。小河中有n片位置互不相同的荷叶,青蛙必须跳到荷叶上过河,否则会掉入水中。开始时青蛙站在河的左侧(坐标为0),接着不停地向右侧跳跃,每次跳跃的距离不超过W,当青蛙跳到或跳过河的右侧(坐标为L)时,青蛙完成过河。
    例如当L=20,n=4,W=5,开始时4片荷叶的坐标为3,9,11,17,则至少需要增加2片荷叶,即在坐标8和16分别增加一个荷叶,得到过河的可行方案是0→3→8→9→11→16→17→20。

    编写程序找出青蛙成功过河至少需要增加的荷叶数,界面如图b。
    请回答以下问题:
    (1)若要将列表框List1顶端与窗体顶端的距离设置为100,能实现该功能的语句是
     
    (单选,填字母:A.List1.Height=100/B.List1.Top=100/C.List1.Width=100)。
    (2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
    Private Sub Form_Load (  )
    '读取荷叶的位置,并保存到数组a中
    '荷叶的数量保存在n中
    '荷叶坐标和数量分别显示在list1和Text2中
    End Sub
    Private Sub Command1_Click (  )
    Dim a(0 To 100)As Integer
    Dim n As Integer,L As Integer,W As Integer,tot As Integer
    Dim i As Integer,j As Integer,p As Integer,d As Integer
    L=Val(Text1.Text):n=Val(Text2.Text):W=Val(Text3.Text)
    a(0)=0:a(n+1)=①
     

    For i=1 To n-1
    k=i
    For j=i+1 To n
    If a(k)>a(j)Then a(j)=a(k)
    Next j
    If k<>i Then
    tmp=a(k):a(k)=a(i):a(i)=tmp
    End If
    Next i
    For i=1 To n
    List1.AddItem a(i)
    Next i
    p=1:d=0
    Do While d<L
    If p<=n+1 And ②
     
    Then
    d=a(p)
    p=p+1
    Else
    tot=tot+1
     

    End If
    Loop
    Label4.Caption=“至少需要增加的荷叶数为:“+Str(tot)
    End Sub
    (3)程序中加框处代码有错,请改正。

    组卷:1引用:1难度:0.5
  • 16.一张骨牌由上下两行共四个格子构成,每个格子有一个1到6之间的数字。现在一共有5张骨牌,从左到右排成一排,定义每张骨牌的差值为:骨牌第一行的数字和减去第二行的数字和;5张骨牌的差值为:每张骨牌的差值和的绝对值。

    如图a中,5张骨牌的差值为:
    |(3+3-4-4)+(6+3-2-5)+(2+3-4-5)+(1+5-3-3)+(1+1-1-1)|=4。
    每张骨牌都可以顺时针旋转90度,效果如图b所示。现在最多可以选择其中一张骨牌进行旋转,使得旋转后的骨牌差值变小。求一种旋转方案,并输出骨牌差值的最小值。

    编写VB程序,实现上述功能。运行程序,在文本框Text1中依次输入5张骨牌上的数字,单击“计算”按钮Command1,在文本框Text2、Text3、Text4中输出结果。程序运行界面如图b所示。
    (1)若图a中第1张骨牌的数字修改为,1、2、6、6,则骨牌差值的最小值为
     

    (2)实现上述功能的VB程序如下,请在横线处填入合适的代码。
    Dim a(1 To 20)As Integer‘依次存储5张骨牌上的数字
    Dim d(1 To 5)As Integer’依次存储5张骨牌,上下两行的差值
    Const n=5
    Private Sub Form_Load (  )
    '从文本框Text1读取5张骨牌上的数字,依次存入数组a
    'a(1)~a(4)依次存储第一张骨牌从左到右从上到下四个数字
    'a(5)到a(20)依次类推
    '代码略
    End Sub
    Private Sub Command1_Click (  )
    Dim i As Integer,up As Integer,down As Integer,t As Integer,k As Integer
    Dim id As Integer,times As Integer,x As Integer,ans As Integer
    For i=1 To n
    up=a(4*i-3)+a(4*i-2)
    down=a(4*i-1)+a(4*i)
    d(i)=up-down
    t=t+d(i)
    Next i
    id=0:times=0
    ans=①
     

    If ans<>0 Then
    k=1
    Do While k<=n
    For x=1 To 3
    temp=②
     

    If temp<ans Then
    ans=temp
    id=k
     ③
     

    End If
    If temp=0 Then Exit Do
    Next x
    k=k+1
    Loop
    End If
    Text2.Text=CStr(id)
    Text3.Text=CStr(times)
    Text4.Text=CStr(ans)
    End Sub
    Function turn(ByVal k As Integer,ByVal x As Integer)As Integer
    ‘求将第k张骨牌,顺时针旋转x次后,上下两行的差值,代码略
    End Function

    组卷:1引用:1难度:0.3
深圳市菁优智慧教育股份有限公司
粤ICP备10006842号公网安备44030502001846号
©2010-2025 jyeoo.com 版权所有
APP开发者:深圳市菁优智慧教育股份有限公司| 应用名称:菁优网 | 应用版本:5.0.7 |隐私协议|第三方SDK|用户服务条款
广播电视节目制作经营许可证|出版物经营许可证|网站地图
本网部分资源来源于会员上传,除本网组织的资源外,版权归原作者所有,如有侵犯版权,请立刻和本网联系并提供证据,本网将在三个工作日内改正