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

2016-2017学年浙江省金华市高三(上)期末信息技术试卷

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

一、选择题(共12小题,每小题2分,满分24分)

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

    组卷:26引用:4难度:0.9
  • 2.下列多媒体格式中,不属于多媒体数据压缩标准的是(  )

    组卷:24引用:5难度:0.9
  • 3.停车场入口通过摄像头拍摄驶入汽车的车牌,使用智能识别系统识别车牌,并将车牌号存入数据库.其中的车牌识别技术属于(  )

    组卷:10引用:5难度:0.7
  • 4.某网站用户注册界面如图所示,用户信息相关的数据库使用Access设计,下列说法不正确的是(  )

    组卷:8引用:4难度:0.7
  • 5.某算法的部分流程图如图所示,执行这部分流程图后,变量k的值为(  )

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

二、解答题(共5小题,满分26分)

  • 16.小朋友拍照
    有来自K(1<=K<=20)个不同国家的N(1<=N<=100)个小朋友排成一行准备拍照.国籍用数字1,2,3…N表示,每个小朋友的国籍依次存入数组a(1)到a(K).
    由于小朋友太多,没有办法全部被拍入.摄像师决定拍摄一段连续区间内的小朋友,这个区间内每种国籍的小朋友至少要有1人,求满足要求的最小区间长度.
    例如有10个小朋友,5种国籍,从左到右排列.国籍编号依次是2,1,2,4,3,3,5,5,3,5,则最小的一段包含所有5种国籍的区间是从第2个到第7个小朋友,区间长度为6.
    算法解析:区间的长度至少为K(国籍的数量),最大为N(小朋友的数量).我们可以通过二分K到N之间的求得最小区间长度.
    实现上述功能的VB代码如下,但加框处代码有错,请改正.
    Dim a(1 To 100)As Integer'依次存储为1到100的小朋友的国籍编号
    Dim K As Integer
    Dim N As Integer
    Private Sub Form_Load(  )'窗体加载,生成数据
    '产生N的值,表示人数
    '产生K的值,表示国籍种数
    '产生编号为1到N的小朋友的国籍编号,并存储在数组a中
    '代码略
    End Sub
    Private Sub Command1_Click(  )'使用二分的思想计算最小区间
        Dim M As Integer
        i=K:j=N'答案的范围为K到N,即最少K,最多N个小朋友
        Do While i<=j
            M=(i+j)\2'二分,求中间值
            If pd(M)=True Then'调用Pd函数,判断区间长度为M时,是否包含所有国籍
              j=M-1
              ans=M'若以M为区间长度可包含所有国籍,更新答案  
            Else
               i='第①处错误
            End If
         Loop
         Text1.Text=Str(ans)
    End Sub

    Function pd(M As Integer) As Boolean
        Dim f(1 To 20)As Integer'f(i)表示国籍为i的小朋友是否包含
        Dim t As Integer't用于统计当前区间包含的国籍数量
        pd=False
        For i=1 To N-M+1'枚举以i为起点的M个小朋友中,各个国籍是否包含
            For j=i To i+M-1
                f(a(j))=1'等于1,表示国籍为a(j)的小朋友已包含,0表示不包含
            Next j
            t=0 
            For j=1 To K'统计已包含的国籍的数量    
                t='第②处错误
            Next j
            If t=K Then pd=True:Exit Function'若包含K个国籍,返回True
            For j=1 To K'f数组元素重新初始化为0
                f(j)=0
            Next j
        Next i
    End Function.

    组卷:5引用:1难度:0.1
  • 17.字符串删除与插入
    给定一个长度不超过100位的字符串S,现有以下两种操作指令:
    指令1(删除):给出一个字符串S1,在字符串S中找到最左边的一个字符串S1,将其删除,若在S中不存在字符串S1,则字符串S不变.
    例如:S=“China is a big family,it is big”S1=“big”
              则执行指令1后,S=“China is a family,it is big”
              若S1=“small”,则S不变
    指令2(插入):给出了一个字符串S2,和一个整数w,将S2插入到S中以w开始的位置.
    例如:S=“a big family”S2=“very”w=3
              则执行指令2后,S=“a very big family”
              注意S中“a”后有一个空格,S2中“y”后有一个空格
    实现上述功能的VB程序如下.请在横线处填入合适代码.
    Dim S As String
    Private Sub Command1_Click(  )'单击Command1实现删除指令
       Dim S1 As String
       S=Text1.Text
       S1=Text1.Text
       S=del(S1)
       Text5.Text=S
    End Sub
    Private Sub Command2_Click(  )'单击Command2实现插入指令
       Dim S2 As String,W As Integer
       S=Text1.Text
       S2=Text2.Text
       W=Val(Text4.Text)
       S=
     
    '调用函数,实现出入指令
       Text5.Text=S
    End Sub
    Function del(S1 As String) As String'在字符串S中查找并删除S1
    Dim S3 As String
    For i=1 To Len(S)-Len(S1)+1
        S3=““'S3表示从位置i开始,取出长度和S1相同的字符串
        For i=i To i+Len(S1)-1
            S3=S3+Mid(S,j,1)
        Next j
        If
     
     Then'如果找到S1,则将S1删除
          S=Mid(S,1,i-1)+Mid(S,i+Len(S1),Len(S)-Len(S1)-i+2)
          del=S
          Exit Function'删除左边的第一个S1后,退出函数,以保证只删除一次
        End If
    Next i
    End Function
    Function add(S2 As String,W As Integer) As String
        S=Mid(S,1,W-1)+S2+
     
    '将S2插入W开始的位置
        add=S
    End Function.

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