浙江省杭州地区(含周边)重点中学2020-2021学年高二下学期信息技术期中考试试卷

试卷更新日期：2021-06-15 类型：期中考试

进入出卷网下载

一、选择题(本大题共12小题，每小题2分，共24分。)

1. 下列关于信息与信息技术说法正确的是（）

A、古代也有信息技术，人类主要通过手势、声音和各种形体动作来表达信息 B、信息具有时效性，因此获取的信息应当立即发布 C、信息具有共享性，可以在网盘中共享任何视频 D、档案卷宗上记录有不同时期的重要事件，所以档案卷宗是信息

查看试题解析
2. 下列关于浏览器与网页描述正确的是（）

A、使用搜索引擎搜索信息时，可通过减少关键字来减少搜索到的信息数量 B、若使浏览器启动时自动打开某个网站，可使用浏览器主页的功能 C、在IE浏览器中，选择“网页，仅HTML(*．htm；*．html)”类型保存网页，不可以保存网页中的超链接 D、只有纯文字的网页才可以用记事本编辑

查看试题解析
3. 关于Access数据库，下列说法不正确的是（）

A、新增记录，不会对已有记录的字段值产生影响 B、Access、FoxPro是小型数据库管理系统 C、在Access数据表输入数据后，则不能再将任何字段设置为主键 D、数据库中可以存储图片或视频

查看试题解析
4. 关于二进制、十进制与十六进制的整数，下列说法正确的是（）

A、7位二进制数的最大值为128D B、任何4位二进制数都不可能大于FH C、仅凭十六进制最末位上的数，无法确定该数是奇数还是偶数 D、在十六进制数最末位后添上一位十六进制数A，所得新数是原数的16倍

查看试题解析
5. 下列关于多媒体技术的说法不正确的是（）

A、多媒体技术的交互性是指媒体与媒体之间的信息交互 B、多媒体技术中的媒体是指承载信息的载体，如文字、声音、图形和图像等 C、多媒体作品的设计可分为需求分析、规划设计、脚本编写三大步骤 D、多媒体数据压缩后出现了少量失真，这种压缩必为有损压缩

查看试题解析
6. 一幅未经压缩的1024*768像素、RGB/8 模式的BMP图像，使用photoshop将图像的宽度和高度各缩小到原来的50%，再存储为16位色的BMP图像。则处理前后的文件存储容量之比约为（）

A、6：1 B、8：1 C、2：1 D、12：1

查看试题解析
7. 下列表达式的值一定为False的是（）

A、Mid("Visual"，1，1) < Mid("Visual"，2，1) B、Len("654321")>Int (Rnd*3) ~2 C、1=6/2\2 D、Val("1"+"1")=2

查看试题解析
8. 某算法的部分流程图如图所示。若要计算 $s = 1 - \frac{1}{3} + \frac{1}{5} - \frac{1}{7} + \frac{1}{9}$ ，则流程图中①处填入的语句（）

A、s←1/k*i B、s←s+1/(k*i) C、s←1/(-k)*i D、s←s+1/k*i

查看试题解析
9. 有如下程序段
Private Sub Command1_Click ()

   Dim a(1 To 10) As Integer，i As Integer

   For i=1 To 10

        a(i)=i^i

  Next i

   List1.AddItem Str(a(i))

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示为（    ）

A、下标越界 B、类型不匹配 C、溢出 D、子程序或函数未定义

查看试题解析
10. 有如下VB程序段
Const n=11

Dim a(1 To n) As Integer，y(1 To n) As Integer， i As Integer， j As Integer

k=Val (Text1.Text)

For i=1To n

   y(i)=1

Next i

For i=1 To n

    For j=1 To n

        If a(i) < a(j) Then y(i)=y(i)+1

    Next j

    If y(i)=k Then Text2.Text=Text2.Text+Str(a(i))

Next i

数组a的各元素的值为“3，4，3，1，4，4，5，5，6，2，0”，在文本框Text1中输入4，执行该段程序后文本框Text2中显示的值为（    ）

A、4 4 4 B、4 4 C、3 D、3 3

查看试题解析
11. 有如下VB程序段
Dim k As Integer， num As Integer， m As Integer

Dim s As String， ans As String

s =" abcdefghi jk lmnopqrs tuvwxyz "

k=26：ans=””

m = Val(Text1.Text)

Do While m> 0

   x=Int(Rnd()*k)+1

  ans=ans+Mid(s， x，1)

   s =Mid(s，1，x-1)+Mid(s，k，1)+Mid(s，x+1，26-x)

  k=k-1：m=m-1

Loop

Text2.Text = ans

文本框Text1中输入4，执行上述程序后，文本框Tex2中有显示的内容不可能为（    ）

A、snyg B、tuna C、vmlc D、Amzm

查看试题解析
12. 有如下VB程序段
Dim a(1 To 8) As Integer， b(1 To 8) As Integer

a(1)=1： a(2)=2： a(3)=3： a(4)=2： a(5)=1：a(6)=4：a(7)=3： a(8)=5

b(1)=5：b(2)=3：b(3)=5：b(4)=9：b(5)=7：b(6)=7：b(7)=7：b(8)=6

n=8

For i=1 To n-1

   For j=n-1 To i Step-1

      If a(j)*b(j+1)<a(j+1)*b(j)Then

            t=a(j)：a(j)=a(j+1)：a(j+1)=t

            t=b(j)：b(j) =b(j+1)：b(j+1)=t

        End If

  Next j

Next i

For i=1 To 8

  List1.AddItem str(a(i))+" "+str(b(i))

Next i

运行该程序段后，列表框List1第5行显示的内容为（    ）

A、1 5 B、3 7 C、2 5 D、4 7

查看试题解析

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

13. 小张收集了某地部分市场菜篮子价格数据，并使用Excel软件进行数据处理，如图所示。

请回答下列问题：

(1)、表中“平均值”数据是利用函数AVERAGE计算得到的，选择I3单元格输入公式，然后用自动填充功能完成其他单元格的计算。则I3单元格中的公式为。

(2)、为了分析数据的需要，创建了如图b所示的图表，则创建该图表的数据区域是。

(3)、若要对图a中所示数据按“最大差价”进行降序排列，则排序时选择的数据区域。

(4)、对图a中的数据进行筛选，要找出“最大差价”最大的三个，可以选择(单选，填字母：A .高于平均值/B .10个最大的值/C .自定义筛选)

查看试题解析
14. 小明利用GoldWave和Flash制作了“倒计时”的动画。作品的Flash制作界面如图a所示。请回答下列问题：

(1)、为了获取1秒钟的钟声作为倒计时声音，老师下载了3秒时长的声音，然后用GoldWawe软件截取声音，步骤如下：①单击按钮选择1秒时长的音频；②单击按钮截取1秒时长的音频：③保存声音，并导入到Flash中。其中第①步中应使用的按钮是，第②步中应使用的按钮是(选填字母：A . \B . \C . \D . ）

(2)、图层“5”、“4"、“3”、“2”、“1”、“0”中分别是数字5、4、3、2、1、0的由大变小的动画，每出现一个数字动画，钟声响一次。现将钟声添加到背景图层第1帧，其属性面板如图b所示。为使“钟声”与数字动画同步，应作的调整是。

(3)、测试影片时，发现播放数字0的动画时，数字1仍停留在画面上，观察图a，应对图层1作的调整是。

(4)、测试影片时，当最后一个数字0的动画播放完毕后，动画停止播放，可以实现这一要求的操作是。

查看试题解析
15. 学校需要从A班(共50人)选拔一批学生集训准备比赛。小明为了减轻老师的工作量，编写了一个程序帮助老师解决这个问题，将所有学生的成绩排序后按照预设人数划取分数线。由于相同分数可能有多个学生，找出最接近预设人数的分数作为分数线。如果按照前分和按后分录取增加或减少的人数相同时则按高于录取人数进行录取，最后输出录取的学生名单。例如现要求选拔15个学生，排序后第14-20名的学生成绩相同，由于13比20更接近预录取人数，因此实际只录取13人。小明编写的VB程序如下，在文本框Text1中输入拟录取人数，单击“确定”按钮后，在标签Labe15和Labe16中输出录取人数和分数线，在List1中输出录取学生名单。
实现上述功能的代码如下。请回答下列问题：

(1)、观察代码，“确定”按钮的对象名是。

(2)、请在划线处填入合适的代码
Dim xh(0 To 100) As String ．

Dim cj(0 To 100) As Integer

Const num = 50

Private Sub Form_ Load ()

‘本过程从数据库读取每位学生的学号和成绩存放在数组xh和cj中，代码略

End Sub

Private Sub Com1_Click ()

   Dim i As Integer， m As Integer， n As Integer， k As Integer， a As Integ

   a = Val(Text1.Text)

   For i=1 To num-1

        k=

        If k<>i Then

            t=cj(k)：cj(k)=cj(i)：cj(i)=t

            s=xh(k)：xh(k)=xh(i)：xh(i)=s

      End If

   Next i

   m=a-1：n=a+1

   Do While cj(m) = cj(a)

      m=m-1

   Loop

   Do While cj(n) = cj(a)

      n=n+1

   Loop

   If m<>0 And Then lq = m Else lq=n-1

   Label5.Caption = Str(lq)

   Label6.Caption = Str(cj(lq))

   List1.AddItem “字号”+“学号”+“成绩”

   For i=1 To lq

       List1.AddItem Str(i) +“ ”+xh(i)+Str(cj(i))

  Next i

End Sub

Function imax(x As Integer， y As Integer) As Integer

  Dim i As Integer，j As Integer

   i=x

   For j=x+1 To y

        If Then i=j

   Next j

   imax = i

End Function

查看试题解析
16. 某图书馆整理系统会自动将借阅归还的书籍按照书籍编号从小到大进行排序，以便于图书管理员查阅各阅览室书籍的在架情况。小明模仿该系统设计了如下程序，程序运行时，会自动对在架的书籍根据编号进行升序排序，在文本框Text1中输入阅览室编号，点击“查询”按钮，程序会将该阅览室的所有书籍及其对应的位置和书名全部输出到列表框List1中，如图所示。已知该图书馆分成四个阅览室，1号阅览室放置图书大类为A-F的书籍，2号阅览室放置图书大类为G-N的书籍……以此类推，每本书的编号第一位代表该书所属的图书大类。

实现上述功能的VB程序如下，请回答下列问题：

(1)、下列属于VB窗体文件的是               (单选，填字母)。

A、dj.vbp B、dj.frm C、jd.exe D、dj.Vbw

(2)、请在划线处填上合适的代码。
Dim book(1 To 100) As String    '存储书籍的编号

Dim bname(1 To 100) As String    '存储书籍的书名

Dim pos(1 To 100) As String       '存储书籍所在阅览室的位置

Dim rroom(1 To 4) As String       '存储每个阅览室存放书籍的大类

Dim n As Integer'在架书籍总数

Private Sub Form_ Load ()

'在架书籍根据编号进行升序排序，书籍编号、书籍名称和所在阅览室的位置分别存放在数组book、bname 和pos中，在架书籍总数为n，代码略

   rroom(1)="ABCDEF"：rroom(2)="GHIJKN"

  rroom(3)="OPQRST"：rroom(4)="UVXZ"     '每个阅览室存放的书籍大类

End Sub

Private Sub Command1_Click ()

  Dim id As Integer，i As Integer，key1 As String，key2 As String，flag As Integer

    Dim start1 As Integer，end1 As Integer

   id = Val(Text1． Text)

  key1= Mid(rroom(id)，1，1)

   key2=

  start1 =check (key1，1)

  end1 = check (key2，-1)

  For i = start1 to

        List1．AddItem "编号："+gs(book(i))+"位置："+gs(pos(i))+"书名："+gs (bname(i))

    Next i

End Sub

Function check(key As String， flag As Integer) As Integer

  Dim left As Integer， right As Integer， m As Integer

  left=1：right=n

   Do While left <= right

        m= (left + right) \ 2

      If Then

            right= m - 1

      Else

            left=m+1

        End If

  Loop

  check = left

End Function

Function gs(s As String) As String

   Dim i As Integer

   For i=1To15-Len(s)

        s=s+""

   Next i

   gs=S

End Function

(3)、程序加框处代码有错误，请改正。

查看试题解析