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

2021年浙江省山水联盟高考信息技术模拟试卷

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

一、选择题

  • 1.下列说法不正确的是(  )

    组卷:8引用:3难度:0.6
  • 2.下列应用中,体现了人工智能技术的有(  )

    组卷:15引用:3难度:0.5
  • 3.某用户编辑界面如图所示:

    下列说法正确的是(  )

    组卷:5引用:1难度:0.7
  • 4.某校建设了校园一卡通系统,采集的学生信息存储在“学生一卡通信息”数据表中,数据表结构及记录分别如图1和图2所示,选择右键菜单中的“新记录”并输入相应数据,下列可能作为新记录的是(  )

    组卷:4引用:2难度:0.6
  • 5.下列有关信息编码说法,不正确的是(  )

    组卷:12引用:1难度:0.6

二、非选择题

  • 15.输入一段长度为n的英文字母,对其进行某种加密方法,描述如下:
    (1)将原文转换为若干行m列(m为奇数)的矩阵,最后一行若不足m个数据则以“#”填充。
    (2)将矩阵中的数据,从末行末列数据开始以回路的方式提取字符。按顺序生成加密字符。例如对字符“helloworld”,m=3的加密过程如下图,其加密结果为“#lwleor#dolh”

    程序窗口界面如图:

    请回答下列问题:
    (1)字符串“helloworld““”经过加密后密文为“dollrleowh,则加密矩阵列数m为
     

    (2)上述加密算法对应解密的VB程序代码如下,请在横线处填入合适的代码。
    Private Sub commandl_click
     

    Dim a As String,n As Integer,yw As String
    Dim i As Integer,j As Integer
    Dim index As Integer,k As Integer,x As Integer
    s=Tjye.ai1.jye.ai'文本框text中为待解密的字符串
    m=Val(Text2.Text)
    n=Len(s)
    yw=″″
    k=0
    x=n/m
    For i=1 To
     

    index=n-i+1
    yw=yw+Mid(s,index,1)
    Forj=2 To m
    If
     
    Then
    index=index-2*(x-i)-1
    Else
    index=index-2*(i-1)-1
    End If
    If Mid(s,index,1)=“#“Then
     

    yw=yw+Mid(s,index,1)
    Next j
    Next i
    Label1.Caption=Mid(yw,1,Len(yw)-k)
    End Sub

    组卷:4引用:1难度:0.3
  • 16.有m(2≤m≤n)个音箱,直线放在n(n≥2)个位置上,第i个位置坐标在a(i)上。每两个音箱相互靠近就会产生干扰,为了解决这个问题,决定把每个音箱都放在离其他音箱尽可能远的位置。为了使任意两个音箱之间的最小距离尽可能大,设计了下面的程序。程序实现了任意两个音箱之间最大的最小距离。如有5个位置5个位置分别为1,2,8,4,9,有3个音箱,那么最大的最小距离就为3,可以将3个音箱分别放在1,4,8的位置上。

    (1)如果这5个位置分别为5,19,2,18,9,那么3个音箱可以放置的最大的最小距离为
     

    (2)在横线处补上代码。
    (3)有一句带框框的代码有误,请修改为正确代码,让程序可以符合题意。
    Dim(1 To 5)As Integer
    Dim n,k As Integer
    Private Sub Form_Load
     

    n Val(Text1.Text):k=Val(Text2.Text)
    ’随机生成n(n>=2)个不重复的0及以上的数字赋值给数组a,代码略
    End Sub
    Private Sub Command1_ Click
     

    Dim m,1,r As Integer
    For i=1To n
    For j=1 To n-i
    Ifa(j)>a(j+1)Then
    t=a(j):a(j)=a(j+1):a(j+1)=t
    End If
    Next j
    Next i
    l=1:r=a(n)-a(1)
    Do While l<=r
    m=(1+r)\2
    If 
     
    Then
    l=m+1
    Else
    r=m-1
    End If
    Loop
    Labell.Caption=Str(r)
    End Sub
    Function check (ByVal d As Integer) As Boolean
    Dim cow,rgt As Integer
    cow=1
    rgt=a(1)+d
    Fori=2Ton
    If a(i)>=rgt Then.
    cow=cow+1
     

    End  If
    Next i
    If
     
    Then
    check=True
    Else
    check=False
    End If
    End Function

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