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

2017-2018学年浙江省“七彩阳光”新高考研究联盟高二(下)期中信息技术试卷

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

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

  • 1.关于信息技术的说法,正确的是(  )

    组卷:21引用:1难度:0.5
  • 2.用邮件客户端收取邮件时,使用下列哪个协议(  )

    组卷:8引用:6难度:0.9
  • 3.小张在一份杂志上到看到有关“区块链”知识的介绍,他用扫描仪扫描以后得到了一个“区块链技术。jpg”的文件,使用OCR软件进行字符识别,部分界面如图所示。下列说法不正确的是(  )

    组卷:13引用:2难度:0.3
  • 4.下列说法正确的是(  )

    组卷:4引用:1难度:0.7
  • 5.某算法的部分流程图如图所示,执行这部分流程,输出结果为(  )

    组卷:3引用:1难度:0.4

二.非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)

  • 16.某活动要从 100 名参赛者中选出成绩最高的前十名给予一定的奖励。活动组织者编 写了如下程序,功能是根据成绩进行排序,程序中数组 a 保存所有参赛者的组次,数组 b 保存对应 的成绩,如第 1 位参赛者的组次 1 保存在 a(1)中,成绩保存在 b(1)中。程序界面如图所示,左边 列表框 List1 中显示原始数据(序号和相应的成绩),单击“排序”按钮(Command1),排序后的结 果按成绩从高到低显示前 10 名选手的序号和成绩在列表框 List2 中,若最后一名成绩有相同的也 一起输出。界面如图所示:
    实现上述功能的 VB 程序如下,但加框处代码有错,请改正。
    Const n=100
    Dim a(1 To n) As Integer
    Dim b(1 To n) As Integer
    Private Sub Form_Load (  )'窗体被加载时
    ‘获取原始数据,将参赛者序号和最后得分分别存在数组 a 和数组 b 内,并在列表框 List1 中 显示。代码略
    End Sub
    Private Sub Command1_Click (  )
    Dim i As Integer,j As Integer,k As Integer,temp As Integer
    List2.Clear
    For i=1 To 10 k=i
    ‘①
    If b(k)<b(j) Then k=j
    End If
    Next j
    If k<>i Then
    temp=b(i):b(i)=b(k):b(k)=temp temp=a(i):a(i)=a(k):a(k)=temp
    End If
    List2.AddItem Str(a(i))+““+Str(b(i)) Next i
    m=10
    For i=11 To n
    Ifthen‘②
    m=m+1
    List2.AddItem Str(a(i))+““+Str(b(i)) End If
    Next i
    Label3.Caption=“本次十佳歌手一共有“+Str(m)+“组“End Sub

    组卷:2引用:1难度:0.5
  • 17.某字符串(字节数为 2 的倍数)编码规则如下:
    (1)将该字符串内码分成 2 个字节一组,每个字节前补上一个 0,构成 9 位二进制,顺次链接后得 到 18 位二进制;
    (2)将得到的 18 位二进制数字分成 3 组,每组 6 位;
    (3)在每组数字前补上两个 0,得到 3 个字节的二进制数;
    (4)将(3)中得到的三个字节的二进制数分别转换为十进制数;
    ( 5 )将 每个十 进制数转 换为 1 个加 密字符,对应的“密码表”按数 值由小到 大依次 为“012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/”小明按照上述方法,设计了一个字符串(仅包含 ASCII 字符)加密的 VB 程序,功能如下:单击“加 密”按钮 Command1,程序依次将文本框 Text1 中每 2 个字符的 ASCII 码值按编码规则转换为三个加 密字符,连接这些加密字符,最后在文本框 Text2 中输出加密结果。程序效果如图所示。

    实现上述功能的 VB 程序如下:
    (1)在 Text1 中输入明文“AB”,用上述加密算法得到的密文为
     

    (2)实现上述功能的 VB 程序如下。请在横线处填入合适的代码。
    Function cc(n As Integer) As String
    Dim s As String
    s=“012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/“
     

    End Function
    Private Sub Command1_Click (  )
    Dim n As Integer,s As String,i As Integer,ss As String
    Dim a1 As Integer,a2 As Integer
    Dim b1 As Integer,b2 As Integer,b3 As Integer s=Text1.Text
    n=Len(s)
    ss=““
    For i=1 To nStep 2
    a1=Asc(Mid(s,i,1))
     

    b1=a1\8
    b2=③
     

    b3=a2 Mod 64
    ss=ss+cc(b1)+cc(b2)+cc(b3)Next i
    Text2.Text=ss
    End Sub

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