浙江省2019-2020学年高中信息技术仿真演练卷（四）

试卷更新日期：2021-10-11 类型：高考模拟

进入出卷网下载

一、选择题

1. 下列有关信息的说法，正确的是（）

A、信息就是指数据（data）、信号、消息 B、计算机对信息处理本质上都是通过计算来完成的 C、信息在计算机内部采用十六进制表示 D、信息的载体依附性表示信息不能够脱离它所反应的事物被存储

查看试题解析
2. 下列有关浏览器与网页的说法，不正确的是（）

A、HTTP协议用于浏览器与Web服务器之间的信息传输 B、在IE浏览器中，收藏夹收藏的是网页的URL C、通过IE浏览器，可以在线编辑网页的源代码 D、网页中的文本、图像、超链接和表格等基本元素及构件是由HTML进行描述的

查看试题解析
3. 某同学使用OCR软件进行字符识别，部分界面如图所示。

则以下说法错误的是（）

A、被识别对象的文件名为“捕获. JPG” B、②区显示的是被识别对象的内容 C、①区中的文本文字要更改，都可以从相似字中选取 D、OCR软件可识别的图片格式有. tif、. bmp、. jpg

查看试题解析
4. 某Access数据表如图所示。

以下说法中正确的是（）

A、必要时，“编号”字段数据可手工输入 B、当前状态下，选择重命名，可以对“唱片收藏”数据表重新命名 C、“类型”字段类型为“是/否”型，存储该类型数据需要1字节 D、“出版日期”字段中可以输入“2017年10月1日”

查看试题解析
5. 使用UltraEdit软件观察字符“Good Luck！”的内码，部分界面如图所示。

下列说法正确的是（）

A、字符“！”是ASCII字符，其内码是A1 B、字符“Good luck！”共占用10个字节 C、字符“g”内码用二进制表示是01100111 D、字符“o”内码转十进制过程应为6*162+15*161

查看试题解析
6. 使用 Gold Wave软件打开某音频文件，选中其中一段音频后的部分界面如图所示，下列说法不正确的是（）

A、声音开始部分有淡入效果 B、进行“保存选定部分为”操作，保存后得到的声音文件时长为2秒 C、在当前选中情况下插入2秒“静音”后直接保存，文件大小会变化 D、进行调整音量大小操作后，则该音频里所有声音音量发生改变

查看试题解析
7. 使用Photoshop软件处理“圣诞节贺卡. psd”，编辑界面如图所示。下列说法正确的是（）

A、“心型”图层和“圣诞树”图层设置了相同的图层样式 B、若仅放大“圣诞老人”图层中的内容，可以使用“缩放工具” C、若将此图片保存为jpg格式，则“merry”图层的“斜面和浮雕”效果不可见 D、“merry”图层添加了滤镜效果

查看试题解析
8. 某算法流程图如图所示。若输入m和n的值分别为12和15，执行这部分流程后，变量m的值为（）

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

查看试题解析
9. 有一个数组，使用如下VB程序段进行排序，第一遍排序后的结果为2，12，7，34，8，9，11，19，26，那么该数组的原始顺序不可能的是（    ）
For i=1 To n-1

    For j=n To i+l Step-1

        If a(j)< a(j-1)Then

            k=a(j):a(j)=a(j-1):a(j-1)=k

        End If

    Next j

Next i

A、12，7，34，8，9，11，19，26，2 B、12，7，34，8，9，11，2，19，26 C、12，7，34，2，8，9，11，1，26 D、2，12，7，34，8，9，11，19，26

查看试题解析
10. 某VB程序段如下：
For i=1 To 6

    j=7

    Do While i>i

        If a(j)>a(j-1) Then

            a(j)= a(j)+a(-1):a(j-1)=a(j)-a(j-1):a(j)=a(j)-a(j-1)

        End If

        j=j-1

    Loop

Next i

For i=3 To 6

    s=s+a(i)

Next i

Labell. Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8，2，3，7，10，6，5”，则执行该程序段后，标签 Label1中显示的是（    ）

A、21 B、26 C、41 D、18

查看试题解析
11. （加试题）有如下程序段：
Dim i As Integer, Sum As Integer

Dim a(1 To 11) As Integer

Sum = 6

a(11) = 49

For i = 10 To 1 Step -1

  a(i) = a(i + 1) - 1

   If a(i) Mod 3 = 0 Then Sum = Sum + a(i)

Next i

Text1.Text = Str(Sum)

该程序段运行后，文本框text1中显示的内容是（   ）

A、174 B、180 C、36 D、42

查看试题解析
12. 某VB程序段如下：
n=6:Text2. Text=" "

m=Val(Text1. Text)

For i=1 To 3

    k=i

    j=i+1

    Do While j<=m

        If a(k)> a(j) then k=j

        j=j+1

    Loop

    If i<>k Then

        Text2. Text= Str(a(k))+Text2. Text

        t=a(i):a(i)=a(k):a(k)=t

    End If

Next i

数组元素d(1)到d(6)的值依次为“39，25，18，20，73，70”，现运行程序在文本框Text1里输入5，点击按钮Command1后文本框Text2中显示的内容是（    ）

A、18 20 70 B、70 20 18 C、18 20 25 D、25 20 18

查看试题解析

二、操作题

13. 某大学院校研究男女学生学习成绩的差异性，相关数据在Excel表中，如下图表格所示。

请回答下列问题：

(1)、在L4单元格中使用 SUMPRODUCT函数计算男生在所有科目考试中获得80~100分的总人数，则L4单元格中的公式是。
（提示：SUMPRODUCT函数返回相应的数组或区域乘积的和。例如：= SUMPRODUCT((C4:C11="高等数学")*(D4:D11))表示在数据区域D4:D11中统计科目是高等数学的数值总和）

(2)、根据上图表格所示，区域A3:I11数据已进行了排序，则排序的次要关键字是。

(3)、根据上图表格中数据制作的图表如下图所示，创建该图表的数据区域是。

(4)、变更D4单元格数值为4，图表（选填：会/不会）发生变化。

查看试题解析
14. 创作一个题为“乡愁”的多媒体作品，使用Flash软件制作一个动画，设计界面如图所示。请回答下列问题：

(1)、测试影片时，下列操作不影响作品呈现效果的是（多选，填字母: A .隐藏“画板”图层/B .“按钮”图层第1帧清除关键帧/C .“小鸟”图层第30帧插入关键帧/D .“小鸟”图层第1帧删除帧）。

(2)、如图所示，“小鸟”图层补间动画设置了缓动，若将缓动值变更为-100，则补间动画时长（选填：变短 / 变长 / 不变）。测试影片，指针经过按钮时，按钮文字图层（选填：有 / 无）内容显示。

(3)、测试影片时，“观赏”按钮一开始就呈现，若要实现“按钮”图层中“观赏”按钮最后一帧才出现，则实现的操作是。

(4)、单击“观赏”按钮，实现在浏览器打开网页“http://www.wzta.gov.cn”，并停止播放背景音乐，则“观赏”按钮的动作脚本为。

查看试题解析
15. 编写一个VB程序，实现如下功能：在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下：
1)将n乘以3后加1产生一个新的数

2)对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1

譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→ 10→5→16→8→4→2。数字2不能在10步之内回到初始值。

界面如图所示，回答下列问题:

(1)、若要把窗体的标题名称由“Form1”改为“数值猜想”，应改变窗体的属性。

(2)、完成上述功能的程序代码如下，请在划线处填入合适的代码
Private Sub Command1_Click()

    Dim n As Integer, t as Integer ,m as Integer ,s as String



    t = n * 3 + 1

    m = 1

    s = ""

    Do While

        s = s + Str(t)

        If t Mod 2 = 0 Then

            t = t \ 2

        Else

            t = t * 3 + 1

        End If

        m = m + 1

    Loop

    If n = t Then

        Label1.Caption = s + Str(n)

    Else

        Label1.Caption = "该数10步之内无法实现！"

    End If

End Sub

(3)、按照以上VB程序的计算方法，若在文本框Text1中输入4，能否在10步之内回到初始数。（选填：能/否）

查看试题解析
16. 领礼物。圣诞节到了，教室里放满了礼物，大家站在同一位置即原点（0，0）处，根据自己拿礼物的序号轮流去拿礼物，每个人只能拿离自己最近的礼物，每件礼物的位置用坐标（x，y）表示。如果有多个礼物离你的距离相等（精确到小数后二位）且最近，则这些礼物都归你所有。
程序运行时，在文本框Text1中输入共有礼物数n，单击“读取数据”按钮Command1，将从数据库gift. accdb中读取n个礼物的信息存储在相应的数组中，并显示在列表框List1中；在文本框Text2中输入轮到你拿礼物的序号（即第几个拿），单击“计算”按钮 Command2，则在列表框List2显示你获得的礼物信息，并在列表框list2最后一行显示获得的礼物总数。程序运行界面如图所示。

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

Dim conn as New ADODB.Connection

Dim rs as New ADODB.Recordset

Dim bh（1 To 100） As string   '数组bh存储礼物的编号

Dim x（1 To 100） As Single,y（1 To 100） As single    '数组x、y分别存储礼物的横坐标和纵坐标

Dim dist（1 To 100） As single     '数组dist存储礼物到原点的距离

Dim n As Integer      '变量n表示礼物数

Private Sub Command1_Click()

    Dim i As Integer

    '从数据库中读取n件礼物的编号、横坐标、纵坐标，并存储在相应的数组中＇代码略，下面代码的功能是计算各礼物到原点的距离

    For i=1 To n

        dist(i)=   ①

        List1. AddItem bh(i)+""+Str(x(i))+""+Str(y (i))+""+Str(dist(i))

    Next i

End Sub

Private Sub Command2_Click()

    Dim xh As Integer, i As Integer, j As Integer, k As Integer

    Dim templ As String, temp2 As Single, p As Single, s As Single

    xh=Val(Text2. Text)

    '将礼物按到原点的距离从小到大排序，代码略

    i=0: j=1: s=0

    Do While (i< xh) And (j<=n)

        If dist(j)<>s Then

              ②

            i=i+1

        End if

        j=j+1

    Loop

    u=0

    j=j-1

    Do While   ③

        List2. AddItem bh(j)+Str(x(j))+Str(y(j))+Str(dist(j))

        u=u+1

        j=j+1

    Loop

    List2. AddItem"total:"+Str(u)

End sub

(1)、请在程序画线处填入合适的语句
① ② ③

(2)、假设现共有14件礼物，礼物的信息如图所示，你轮到第10个拿礼物，则你获得的礼物数为。

查看试题解析