高中信息技术沪教版（2019）-试题列表-第1175页

1、冒泡排序在某一遍加工过程中没有数据交换时，说明数据已经有序，优化程序段如下：

i = 1: flag = True

Do While i < = 4 And flag = True

flag=False

For j = 6 To i + 1 Step -1

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

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

flag = True

End If

Next j

i = i + 1

Loop

数组元素a(1)到a(6)的值依次为48，36，24，97，77，23，经过该程序段加工后，变量i的值是（）

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

查看解析

2、超市面食区共有5种面食品种,其价格依次为6、4、5、2、3,若采用选择排序算法对其进行从小到大排序，则第二遍的排序结果是( )

A、 2、3、5、6、4 B、 2、4、5、6、3 C、 2、3、6、4、5 D、 2、6、4、5、3

查看解析

3、某书店在5所学校流动售书量（单位：本）分别是82、113、46、69、35。采用选择排序对其进行排序，若完成第一遍时的结果是82、113、46、69、35，则完成第二遍时的结果是（）

A、 35、82、113、46、69 B、 113、82、46、69、35 C、 35、46、82、113、69 D、 82、113、69、46、35

查看解析

4、将数据3、6、9、5、8、1进行一趟冒泡排序后得到的数据刚好是小杨的银行卡密码，那么小杨的银行卡密码可能是（）

A、 136958 B、 369581 C、 135698 D、 316958

查看解析

5、某书店在5所学校流动售书量（单位：本）分别是82、113、46、69、35。采用冒泡排序对其进行排序，若完成第一遍时的结果是35、82、113、46、69，则完成第二遍时的结果是（）

A、 35、82、113、46、69 B、 35、46、82、69、113 C、 35、46、82、113、69 D、 35、46、69、82、113

查看解析

6、给定两个单词Word 1和Word 2，找出从单词Word 1转换为Word 2所需的最小步数（每次操作都作为1步）。在单词Word 1上允许进行如下2种操作：

a）在任意位置删除一个字符

b）在任意位置插入一个字符

需注意：在执行插入和删除字符过程中，单词Word 1中字符的先后顺序不允许改变。

如单词“integer”转换为单词“tiger”需要4步，分别是删除字符i、n、e和插入字符i。

现编写VB程序，根据上述删除、插入字符的规则统计单词Word 1转换成单词Word 2所需的最小步数功能如下：在Text 1和Text 2中输入两个单词，单击“计算”按钮，在Label3中显示Text 1中单词转换为Text 2中单词需要的最小步数。

程序运行界面如图所示。

(1)、若在Text 1中输入byte，Text 2中输入bit，则最小步数为。

(2)、请在划线处填入合适的代码。

Dim k1 As Integer '单词Word 1查找的起始位置

Private Sub Command1_Click()

Dim c As String, w1 As String, w2 As String

Dim i As Integer, k2 As Integer, pos As Integer, steps As Integer

w1 = Text1. Text

w2 = Text2. Text

k1 = 1

k2 = Len(w2)

For i = 1 To Len(w2)

c = Mid(w2,i,1)

If pos <= Len(w1) And pos <> 0 Then

w1 = Mid(w1,1,pos-1)+Mid(w1,pos+1,Len(w1)-pos)

k1 = pos

k2 = k2-1

End If

Next i

steps =

Label3. Caption = “单词变换最小步数为：”+Str(steps)+ “步！”

End Sub

Function check(t As String, s As String)As Integer

'该函数用于返回字符t在字符串s中的位置

Dim m As Integer, n As Integer

m = 0

For n = To Len(s)

If t = Mid(s,n,1)Then

m = n

Exit For

End If

Next n

check = m

End Function

查看解析

7、计算两个正整数整除后的结果，可以通过如下步骤实现：

⑴除数乘以系数1、2、4、8…，得到相应的倍数，倍数不能超过被除数；

⑵被除数减去不超过被除数的最大倍数，得到新的被除数，以及该最大倍数对应的系数；

⑶重复步骤⑵直到被除数小于除数为止；

⑷将步骤⑵中得到的系数相加即为整除的结果。例如：计算100整除9（除数9的系数及倍数见下表）：

系数	1	2	4	8	16
倍数	9	18	36	72	超过被除数100

计算过程如下：

①100-72=28，系数为8；②28-18=10，系数为2；

③10-9=1，系数为1；④1<9计算结束，整除的结果为：8+2+1=11。

程序运行界面如图所示。

(1)、窗体中文字“被除数：”属于（选填，填字母：A . 文本框/B . 标签/C . 列表框）类的对象。

(2)、实现上述功能的VB程序如下，请在橫线处填入合适的代码。
Private Sub Command1_Click()

Dims As Long, s1 As Long, t As Long, k As Long

Dim zc As Long, i As Integer

Dim a(1 To 50)As Long '数组a用于存储除数的倍数

s=Val(Text1.Text) '被除数

s1=s

t=Val(Text2.Text） '除数

k=1：i=0

Do While k*t<=s1

i=i+1

a(i)=k*t

Loop

zc=0

Do While '改错

If s1>=a(i) Then

s1=s1-a(i)

zc=zc+

End If

i=i-1

Loop

Label3.Caption=Str(s)+ “整除”+Str(t)+”的结果为：”+

End Sub

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

查看解析

8、小刘创作了主题为“抗疫”的多媒体作品。他首先使用Photoshop软件制作了一张图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、如上图所示，当前状态下，下列操作可行的是（多选，填字母；A . 删除“针筒”图层/B . 调整“背景”图层的不透明度/C . 使用“自由变换”操作改变“抗击新冠”图层中的文字大小/D . 给“医生”图层直接添加滤镜效果/E . 将文件保存为JPEG格式，以便下次继续分图层进行修改。）

(2)、若将该场景完整播放一次的时长缩短为原来的3/4，则应将帧频设置为fps。

(3)、如下图所示，“病毒”图层第1帧至第15帧实现了一个病毒分裂为多个病毒的动画效果，该动画类型为（单选，填字母：A . 动画补间/B . 形状补间/C . 逐帧动画）

(4)、“医生”图层中的动画从第1帧就开始出现，若要使该动画在“病毒”图层分裂动画效果结束的同时出现，则应进行的操作是。

(5)、测试影片时，出现了如下图所示错误提示。

下列说法正确的是（多选，填字母：A . 此错误是因为脚本缺少了鼠标事件/B . 此错误是因为gotoAndPlay(“end, 1)中的数字1没有加双引号/C . 脚本gotoAndPlay(“end,1);被添加在第60帧关键帧上/D . 将脚本修改为“on(press)(gotoAndStop(“end”, 1);Play()｝”可以实现跳转到“end”场景第1帧并播放）

查看解析

9、某地区对疫情期间每周的防护物资出入库进行统计，其中一周的统计数据如下图表格所示。

请回答下列问题：

(1)、如上图表格所示，L3单元格的数据是用K3单元格的公式自动填充得到的，则K3单元格输入的公式为=AVERAGEIF（$B$3:$B$51，）。

(2)、若要在A2:H51区域仅筛选出所有口罩的数据，筛选界面如下图所示，“1”处应填入的内容为。

(3)、利用J2:L9中的数据建立一张“3.11-3.17防疫物资出入库均量比较图”，如下图所示，下列操作不会导致图表柱形区域发生改变的是（多选，填字母：A . 进行第⑵小题的筛选操作/B . K3:L9区域的数据格式设置为保留0位小数/C . 将D3单元格的数据修改为“6500”/D . A2:H51区域以“品名”为主要关键字进行升序排列）