浙江省普通高中强基联盟协作体2021届高三下学期信息技术5月统测卷

试卷更新日期:2021-06-15 类型:月考试卷

一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分)

  • 1. 下列有关信息和信息技术的说法正确的是(    )
    A、信息技术是随着计算机技术的发明而诞生的 B、声音、语言、文字或图像都是信息的表达技术 C、计算机的基本功能是存储和计算 D、通过wifi传递数据说明信息可以脱离载体传播
  • 2. 下列关于网络和浏览器的说法正确的是(    )
    A、浏览器可以编辑和执行网页文件 B、HTML是一种计算机语言,可用于网页编程 C、在IE浏览器中,以“文本文件(*.txt)”类型保存网页,可以保存网页中的超链接地址 D、超链接只能够实现不同网页之间的跳转
  • 3. 在ACCESS中建立student数据表,存放以下表格中的数据:

    学号

    姓名

    性别

    班级

    出生日期

    选科

    应届生

    照片

    013307021

    王小芳

    高一(3)班

    2002年8月23日

    物化技

    013307022

    刘大华

    高二(1)班

    2001年12月10日

    政史地

    023307001

    李月明

    高三(8)班

    2000年2月12日

    物地技

    ……

    ……

    ……

    ……

    ……

    ……

    ……

    以下说法正确的是(    )

    A、为方便数据管理,可以将学号设置为“自动编号”类型 B、有两个字段可以设计为“是/否"类型 C、ACCESS数据库无法存储“照片”等多媒体数据 D、“出生日期”字段只能设置为“文本”类型
  • 4. 十进制算术表达式2×64+5×32+5×8+9的结果表示为二进制为(    )
    A、101010001 B、110010110 C、111001011 D、101011001
  • 5. 使用Goldwave软件编辑“背景音乐.wav”文件,界面如下图所示:

    以下说法正确的是(    )

    A、该音频每秒钟采样44100次,每秒钟播放的数据量为1411 KB B、当前状态下,执行“删除”操作,再插入10秒静音,播放时间不变 C、当前状态下,执行“复制”操作,再执行“粘贴”操作,存储容量不变 D、当前状态下,执行“剪裁”命令,以原参数保存,存储容量不变
  • 6. 某分辨率为1024*768的BMP图片,24位色,欲改变其存储容量为1.5M,以下可选的操作是(     )
    A、调整颜色位深度为16bit B、调整颜色位深度为8bit C、将图像分辨率调整为2048*1536 D、将图像分辨率调整为1536*1024
  • 7. 某算法部分流程如图所示,执行该流程后,变量c的值是(    )

    A、3 B、4 C、5 D、9
  • 8. 以下无法生成集合{-1,1}中任一数的表达式是(     )
    A、(-1)^Int(Rnd¥2) B、Int(Rnd* 3)\2-1 C、Int(Rnd*2)*2-1 D、1-(Int(Rnd * 2021) mod 2) * 2
  • 9. 有如下VB程序段:

    i=1

    Do While i<=6

        a(i)= Int(Rnd * 9)+1

        If a(i) mod 3=1 then

            a(i)=a(i)+i mod 3

        Elself a(i) mod 2=1 then

            a(i)=a(i) mod 3

        End If

    i=i+1

    Loop

    执行该程序段后,以下选项中a(1)~a(6)的值不可能是(     )

    A、0  0  0  0  0  0 B、2  8  6  2  0  1 C、7  4  3  1  0  3 D、8  6  0  9  2  7
  • 10. 已知由字母和数字组成的字符串s,现要实现如下功能:将字符串s中的数字字符按照原有顺序移动到右侧,英文字符按照原有顺序移动到左侧,如s="2Good02Luck1",移动后变成s="GoodLuck2021",为实现上述功能,在横线处填入的代码应该是(     )

    n= L en(s)

    Dim a(1 to 100) as String

    pos=1: k=0

    For i=1 To n

        ch= Mid(s,i,1)

        If ch>="0" And ch <= ="9" Then

            

            k=k+1

        Else

            

            Do While j>>=pos

                a(j)=a(j-1)

                j=j- 1

            Loop

            

            pos=pos+1

        End If

    Next i

    s=““

    For i=1 To n

      s=s+a(i)

    Next i

    可供选择填入(1)(2)(3)中的代码有

    ①a(pos)=ch  ②a(pos+k)=ch  ③a(pos-1)=ch  ④j=pos+k  ⑤j= pos+k-1

    其中正确的顺序是(     )

    A、①⑤③ B、②⑤③ C、②④① D、①④②
  • 11. 下列VB程序段:

    Const n=8

    Dim a(1 To n) As Integer

    k=1

    For i=1 To 2

        For j=1 To n-i* 2

            If a(j) * k< a(j+2) * k Then

                t=a(j):a(j)=a(j+2): a(j+2)=t

            End If

            k=-k

        Next j

    Next i

    For i=1 To n\ 2

        List2.AddItem Str(a(2 * i))

    Next i

    若a(1)~a(8)的值分别为6,7,8,11,8,3,6,2,执行以上程序后list2输出的结果是(     )

    A、3  11  2  7 B、2  3  7  11 C、7  3  2  11 D、3  2  7  11
  • 12. 某对分查找算法的VB程序段如下:

    i=1:j=7:n=0

    key= = Val(Text1.Text)

    Do While i <=j

        m=(i+j) \ 2

        If key=a(m) Then Exit Do

        If key< a(m) Then j=m- 1 Else i= m+1

        s=s+str(m)+“ ”

        n=n+1

    Loop

    Text1.Text=s

    数组元素a( 1)到a(7)的值依次为“13,25,38,47,54,69,78"。下列说法正确的是(    )

    A、程序运行结束后,i-j=1 B、n的取值范围为[0,3] C、Text1中显示的值不可能为空 D、如果输人的key值为25,则Text1中显示4,2,

二、非选择题(本大题共4小题,4+8+7+7,共26分)

  • 13. 某同学收集了2018- 2019年浙江省外商直接投资情况数据,并用Excel 软件进行数据,如图a所示。请回答下列问题:

    (1)、区域D5:D16及G4:G16中的数据是在D4单元格中输入公式,然后利用自动填充功能得到的,则G5单元格中的公式是
    (2)、为了更加直观地比较2019年实际利用外资的增长速度情况,建立如图b所示的图表。则生成该图表的数据区域是

    (3)、结合图a,下列说法正确的是            (多选,填字母)。

    A、若要以2019年各国别(地区)外资投建项目环比增幅(%)为主要关键字排序,则应选择A2:A16,D2 :D16作为排序区域 B、若将图a中G4:G16区域的数据小数位数设置为保留0位小数,图b中的图表不会发生改变。 C、若不慎将单元格B5中的数据删除,则D5单元格中将显示#DIV/0!的错误。 D、分别对B列和E列进行筛选,筛选条件图c所示,则选出的记录数为1条。
  • 14. 小明创作题为“喜迎建党100周年”的多媒体作品,其制作脚本如下所示:

    场景:main

    类别序号:1

    进入方式:从load场景进入

    呈现方式:

    ⒈背景图层淡入,同时“红飘带”缓缓飘动淡人,用时1秒。

    ⒉“党徽"实例在屏幕中央从小到大进入,用时0.5秒。

    ⒊“光芒四射”图层动画出现后一直源源不断地发射光芒。

    ⒋“1921-2021"字样从屏幕外侧向左减速进入屏幕右侧,用时1秒。

    ⒌“奋斗百年路”“起航新征程”依次接续移动到屏幕右侧,共用时2秒,之后持续到动画结束。

    ⒍“建党百年”图层文字飘入屏幕左侧用时0.5秒。

    ⒎点击“Next”按钮,进人到“Party”场景从头开始播放。

    呈现顺序说明:

    ⒈一开始出现红色背景淡人、背景音乐,红飘带同步飘动。

    ⒉红色背景出现后,“党徽”图层开始即渐入舞台,之后“光芒四射”动画开始。

    ⒊ 2秒时,“1921-2021”图层开始出现。

    ⒋ 3秒时,“奋斗百年路”文字出现,间隔0.5秒后“起航新征程"文字出现。

    ⒌“起航新征程”动画结束0.5秒后,“建党百年”图层文字开始出现。

    ⒍最后出现“Next"按钮,动画停止播放。

    小明在Photoshop软件中制作效果图,然后使用Flash软件合成动画。请回答下列问题。

    (1)、根据图a所示,下列说法不正确的是               (单选,填字母)

    A、可以使用文字工具单独修改“中国共产党建党100周年”图层中“100”数字的字体大小 B、可以使用“自由变换”命令改变“1921 - 2021"图层的文字字体大小 C、设置背景图层的不透明度为0%,保存为PNG格式可获取透明背景的图像 D、无法将“中国共产党建党100周年”图层的图层样式拷贝到背景图层
    (2)、根据制作脚本,结合图b,以下说法正确的是                (多选,填字母)

    A、动画至少有3个不同的场景,当前正在编辑的场景是main B、“光芒四射”图层的动画可能是通过影片剪辑元件来实现 C、动画播放到1秒结束时,画面上有背景、按钮、红飘带等内容 D、main场景播放完之后会重复循环播放
    (3)、“建党百年”图层的动画效果与制作脚本描述不符,可行的修改办法为
    (4)、根据制作脚本,“党徽”图层的动画效果应用了补间。(填补间类型)
    (5)、根据制作脚本,当前场景动画播放到最后停止时,音乐继续播放,则“音乐&按钮"图层的声音同步属性应设置为(选填:事件/数据流)
    (6)、根据制作脚本,“Next”按钮设置的动作脚本为
  • 15. 抢红包游戏:微信抢红包游戏成为了一代人的经典回忆,游戏将总金额为n的“红包”随机分配给m个玩家,红包的分配需同时满足以下规则:①所有人抢到的金额总和跟总金额n相等;②每个人至少抢到1分钱;③每个人抢到的金额随机;④每个人抢到金额大小的概率平等。

    满足以上规则的最简单算法可描述为:假设总金额为n元,为使问题简单化,我们将总金额乘以100,此时的单位为分,使得问题在整数范围内解决。假设分发给m个人,则我们只需在[1,100n- 1]长度的范围内随机生成m-1个不重复的点,这些点将长为100n的线段划分为m个段,每一段长度即可表示红包金额,再将每一段长度数据除以100换算为单位元输出。

    编程实现:分别在文本框Text1 和Text2中输人总金额n和总人数m,点击“抢红包”按En钮commandl,在列表框Listl中输出抢红包结果,并输出“手气最佳”数据。程序运行界面如下图所示。实现上述算法的VB程序如下,回答以下问题:

    (1)、为使程序开始运行时,窗体标题自动更改为“趣味抢红包”,则可在(单选,填字母:(A .Command1_ Click()/ B .Form_ Load()/C .Form1. Load())事件处理过程中添加语句Forml. Caption=“趣味抢红包”。
    (2)、请将划线处的代码补充完整。

    Private Sub Command1_ Click()

    Dim n As Integer, m As Integer

        Dim f(1 To 32767) As Boolean

    n= Int(Val(Text1.Text) * 100)

        m= Val(Text2.Text)

        If m> n Then

            List1.AddItem "游戏无法继续,结束!"

        Else

            Randomize

            For i=1 To m- 1

    t= Int(Rnd * (n-1))+1

                

                f(t)= True

            Next i

            

            begin= 1

            Max=0

            For i=1 To n

                If f(i) Then

                    

                    If red > Max Then Max= red

                          '改错

                    List1.AddItem Str(red / 100)

                End If

            Next i

            List1.AddItem "手气最佳:"+Str(Max / 100)

        End If

    End Sub

    (3)、方框处的代码有误,请改正。
    (4)、虚线框内的代码实现的功能是
  • 16. 小轩的绿色出行花费:某著名旅游城市H市为了鼓励大家采用公共交通方式绿色出行,推出了一种地铁换乘公交车的优惠方案,方案具体细则如下:

    ①在搭乘一次地铁后可以获得一张优惠票,有效期为45分钟,在有效期内可以消耗这张优惠票,免费搭乘一次票价不超过地铁票价的公交车。在有效期内指开始乘公交车的时间与开始乘地铁的时间之差小于等于45分钟,即:t_bus-t_ subway <=45

    ②搭乘地铁获得的优惠票可以累积,即可以连续搭乘若干次地铁后再连续使用优惠票搭乘公交车。

    ③搭乘公交车时,如果可以使用优惠票一定会使用优惠票;如果有多张优惠票满足条件,则优先消耗获得最早的优惠票。

    小轩同学编写了VB程序计算最近公共交通出行的费用,程序运行时,在文本框Text1中输人小轩的公共交通出行记录(各数之间以逗号分隔),单击“获取数据”按钮Command1将数据按顺序存储在数组a中并在List1中显示。其中第i条出行记录乘坐的交通工具存储在数组元素a(3*i-2)中,0代表地铁,1代表公交车;第i条记录乘车的票价存储在数组元素a(3*i-1)中;第i条记录开始乘车的时间(距0时刻的分钟数)存储在数组元素a(3* i)中。如小轩最近6条乘车记录的数据为0,5,1,0,20,16,0,7,23,1,18,31,1,4,38,1,7,68在数组a中的存储结构如下表所示。

    a(1)

    a(2)

    a(3)

    a(4)

    a(5)

    a(6)

    ……

    a(16)

    a(17)

    a(18)

    0

    5

    1

    0

    20

    16

    ……

    1

    7

    68

    单击“计算”按钮Command2,则在标签Label2中显示小轩同学的公共交通出行总费用。程序运行界面如图所示。

    (1)、若小轩的出行数据如上表所示,则小轩此次出行总花费为。(填数字)
    (2)、实现上述功能的VB程序如下,请在划线处填入合适代码。

    Const maxn= 1005

    Dima(1 To 3 * maxn) As Integer

    Dim ticket(1 To 3 * maxn) As Integer

    Dim i,n,k,x,y,cost As Integer

    Dim tail,head As Integer

    Dim s As String

    Dim found As Boolean

    Private Sub Command1_Click()

        s= Text1.Text

        k= 1

        For i=1 To L en(s)

            c= Mid(s,i,1)

            If c="," Then k=k+1 Else

        Next i

        '将各条出行数据输出在列表框List1中,代码略

    End Sub

    Private Sub Command2_ Click()

        head=1:tail= 1

        For i=1 To k\ 3

            If a(3 * i-2)=0 Then

                cost= cost+a(3 * i-1)

                ticket(3 * tail)=a(3 * i)+45

                

                tail= tail+1

            Else

                Do While head < tail And ticket(3 * head) < < a(3 * i)

                    head= head+1

                Loop

                

                If found= False Then cost=cost+a(3 * i-1)

            End If

        Next i

        Label2.Caption= Str( cost)

    End Sub

    Function pd(x As Integer, y As Integer) As Boolean

        pd= False

        For j=x Toy

            If ticket(3 * j-1) >=a(3 * i-1) And ticket(3 * j-2)=0 Then

                pd=True

    ticket(3 * j-2)=1

                Exit Function

            End If

        Next j

    End Function