相关试卷
-
1、桶排序优化。桶排序的思想是根据数组中各元素的值，依次放入相应编号的桶中，最后按顺序输出桶中数据，即可完成排序。例如：数据 10、15、8、9、3，桶中的顺序如下表：
但是，当数据范围很大时，需要的桶则非常多，会造成很大的资源浪费。为了解决该问题，小张对桶排序进行了优化，算法思想如下：
① 先依据数组中元素的个位进行桶排序；
② 再依据数组中元素的十位进行桶排序；
......
直到排序完成。
例如：有数组 a 中各元素分别为 53，3，542，748，17，214，154，63，616，第一趟按个位排序过程如下：
① 个位填入相应桶编号中，并统计每个桶中数据个数。
② 计算索引。计算方法是从前往后，依次计算当前桶中元素个数与前一项之和。
③按索引从桶中倒序取出数据，每取一个索引减 1。重新排列后为542，53，3，63，214，154，616，17，748。
接下来对重新排序后的数据以十位、百位依次进行桶排序即可完成排序(每一趟排序后数据重新排列)。
(1)、第二趟以十位排序后的结果中，前 4个数为。（数字间用逗号间隔）(2)、现在有n个0～5000的数据，其VB代码如下，请在划线处填入合适的代码。Const n ＝ 10
Dim a(1 To n) As Integer
Dim tmp(1 To n) As Integer '临时数组，用来保存桶排序后的结果
Dim count(0 To 9) As Integer
Dim i As Integer, j As Integer
Dim s As Integer, k As Integer
Private Sub Form_Load( )
'待排序数据保存在a数组中，代码略
End Sub
Private Sub Command1_Click( )
s ＝ 1
For i ＝ 1 To
For j ＝ 0 To 9 '初始化数组
count(j) ＝ 0
Next j
For j ＝ 1 To n '统计各桶中数据个数
k ＝ (a(j) \ s) Mod 10
count(k) ＝ count(k) ＋ 1
Next j
For j ＝ 1 To 9 '计算索引
count(j) ＝
Next j
For j ＝ n To 1 Step －1 '根据索引，从桶中取出数据，放入tmp数组
k ＝ (a(j) \ s) Mod 10
count(k) ＝ count(k) － 1
Next j
For j ＝ 1 To n '数组a重新排列
a(j) ＝ tmp(j)
Next j
s ＝ s * 10
Next i '输出排序后的数据，代码略。
End Sub
-
2、数组a中随机产生n个1到10之间的随机数，并已按升序排列，依据对分查找思想，设计一个在数组a中查找数据key的起始、结束位置的程序，运行界面如下图所示。
实现上述功能的VB代码如下。
Const n ＝ 100
Dim a(1 To n+1) As Integer ‘产生n个随机数，存储在数组a中，并已按升序排序，代码略
Private Sub Command1_Click( )
Dim key As Integer, i As Integer, j As Integer Dim m As Integer, k As Integer
key ＝Val(Text1.Text)
i=1: j=n
Do While i <= j
m=(i+j)\2
If
Then ‘改错j=m-1
Else
i=m+1
End If
Loop
If a(i)=key Then ‘找重复数的结束位置
For k=i+1 To n
If a(k) <> key Then
Exit For ‘退出For循环
End If
Next k
List2.AddItem “a(” + Str(i) + “) -a(” +_______+ “)” ‘填空
Else
List2.AddItem “未找到”
End If
End Sub
(1)、代码“List1.AddItem”中的AddItem是 (单选，填字母：A ．对象名/B ．属性名/C ．事件名/D ．方法名)。(2)、程序代码中，加框处语句有错，请改正。(3)、请将划线处代码补充完整。(4)、若查找的 key 值为3，则程序结束时，变量k的值为 -
3、小梦同学创作主题为“社会主义核心价值观”的多媒体作品，首先编写了如下图所示的制作脚本，并使用 Flash 制作并合成多媒体作品，请回答下列问题：
场景：main
类别序号：2
进入方式：由“load”场景单击“PLAY”按钮进入
呈现方式：
①背景内容淡入出现在画面中间，铺满整个舞台
②文字1、文字2、文字3出现在画面标题文字下方
③其他脚本略
呈现顺序说明：
①动画开始即淡入出现背景内容
②背景动画开始，背景音乐即响起，直到动画结束
③背景淡入结束后，文字1、文字2、文字3接续出现
④中国梦标题自始至终在画面右上角闪闪发光
⑤动画持续播放5秒钟后自动打开同目录下的“中国梦.swf”文件，并关闭当前文件
(1)、在制作作品前，小梦进行了相应的分析和规划。下列属于需求分析阶段的有(多选，填字母：A .该作品要求生成SWF文件发布到web上 / B .确定需要哪些素材及其获取方式 / C .确定将作品划分为3个主要模块 / D .将作品设计为交互型动画类型)。(2)、测试影片时，发现“中国梦”图层的标题文字闪闪发光，结合下图可知“中国梦”图层第1帧添加的实例是类型的元件。(填元件的类型)
(3)、“背景”图层被锁定，(填：能/否)在该图层第1帧添加帧动作命令。(4)、测试影片时发现动画播放到最后1帧时，“中国梦”图层的内容消失了，为使“中国梦”图层的内容始终显示在画面上，在不改变其他动画播放效果的前提下，能达到目的的操作有 (多选，填字母)A、复制“中国梦”图层第1帧的内容，在第60帧执行“粘贴到当前位置”操作 B、选中“中国梦”图层第60帧，执行“清除关键帧”操作 C、选中“中国梦”图层第60帧，执行“插入帧”操作 D、选中“中国梦”图层第59帧，拖动到第60帧(5)、为实现脚本呈现顺序说明中⑤所示的效果，应在背景图层第60帧设置的动作脚本是。 -
4、小李收集了我国2017年部分地区生产总值相关数据，并使用Excel软件进行数据处理，如图所示。请回答下列问题：
(1)、表中“占总生产总值比例(%)”数据是用公式计算并使用函数ROUND()四舍五入取 2 位小数得到的，则H4单元格中的公式为。(提示：占总生产总值比例(%)=地区年总生产总值/总生产总值×100；函数 ROUND 将数字四舍五入到指定的位数，例如：ROUND(3.1415926，2)的结果为 3.14)
(2)、根据上图中的数据制作图表，如下图所示，则创建该图表的数据区域是。
(3)、小李想统计西部地带年总生产总值最大的地区，以下操作可行的是 。(多选，填字母)A、在第A列筛选出西部地带，然后在第G列使用“10个最大值”筛选项筛选最大的1项 B、在第G列使用“10个最大值”筛选项筛选最大的1项，然后在第A列筛选出西部地带 C、以地带为主关键字，年总生产总值为次要关键字降序排序，选择西部地带的第1行 D、以年总生产总值为关键字降序排序，然后选择第一次出现的西部地带所在行 -
5、某二分查找算法的VB程序段如下：
key = Val(Text1.Text)
i = 1 : j = 9
Text2.Text = ""
Do While i <= j
If key = a(m) Then Exit Do
If key < a(m) Then
i = m + 1
Else
j = m – 1
End If
Text2.Text = Text2.Text + " " + Str(a(m))
Loop
数组元素a(1)到a(9)的值依次为88，75，70，68，61，58，55，50，43，本框Text1中输入的值是58，执行该程序段，文本框Text2中显示的是61，50，55，则方框处的代码应为（ ）
A、m = (i + j + 1) \ 2 B、m = (i + j) \ 2 + 1 C、m = (i + j) \ 2 D、m = (i + j - 1) \ 2 -
6、下列 VB 程序段的功能：生成n个不重复的随机整数，保存在数组a中，并升序排序。f数组各元素的初值置为False，代码略 。
i = 1
Do While
t = Int(1 + Rnd * 10)
If Not f(t) Then
a(i) = t
f(t) = True
For j =
If a(j) < a(j - 1) Then
tmp = a(j): a(j) = a(j - 1): a(j - 1) = tmp
End If
Next j
Else
End If
i =i + 1
Loop
上述程序段3个方框处的表达式分别为（ ）
A、⑴i <= n - 1 ⑵2 To i ⑶i = i - 1 B、⑴i <= n ⑵i To 2 Step -1 ⑶i = i - 1 C、⑴i <= n - 1 ⑵2 To i ⑶t = Int(1 + Rnd * 10) D、⑴i <= n ⑵i To 2 Step -1 ⑶t = Int(1 + Rnd * 10) -
7、某算法的部分流程图如图所示，执行该流程，以下说法正确的是（ ）
A、第一次循环结束时，x的值为125 B、第一次循环结束时，y的值为15 C、循环结束时，输出y的值为521 D、循环结束后，x<>0执行了3次 -
8、以下VB表达式的值为“2019”的是（ ）A、Len("2*10^3+0*10^2+1*10^1+9") B、Str(2010)+Str(9) C、Sqr(2019)^2 D、Str(2019\10 + 1818)
-
9、将一幅未经压缩的1024×576像素BMP 图片，按3∶1的压缩比转换成JPG格式后，存储容量为576KB，则存储这幅 BMP 图像一个像素所需的二进制位数为（ ）A、8 位 B、16 位 C、24 位 D、32 位
-
10、使用photoshop软件制作某作品，部分界面如下图所示。下列说法正确的是（ ）
A、背景图层被锁定，不能删除 B、“小学数学”图层添加了滤镜效果 C、可以将“女孩”图层移动到“数字”图层的上方 D、将作品存储为JPEG格式文件，该JPEG格式文件保留原作品的图层信息 -
11、使用UltraEdit软件观察字符的内码，界面如图所示。
下列说法正确的是（ ）
A、逗号“，”的内码用二进制可表示为 00101100 00100000 B、存储图中字符共需要13byte存储空间 C、“2020”的内码用十六进制可表示为 32 30 31 40 D、图中共有4个GB2312码，6个ASCII码 -
12、使用Access软件打开某数据库中的数据表“图书借阅表”，部分界面如下图所示。
下列说法正确的是（ ）
A、添加一条新记录，则新记录的“借阅 ID”的字段值一定是4 B、当前状态下，可将“读者编号”字段设置为主键 C、“还书日期”的数据类型可设置为“日期/时间”型，也可设置为“文本”型 D、“是否赔偿”的字段值可打“√”，也可打“×” -
13、下列应用中，体现了人工智能技术的有（ ）
① 在线中英文互译 ② 使用人脸识别功能进入手机系统 ③ 电子邮件自动回复功能 ④ 使用在线二维码生成器制作二维码 ⑤ 无人汽车驾驶技术
A、① ② ⑤ B、② ④ ⑤ C、① ② ④ D、② ③ ⑤ -
14、下列关于网页与电子邮件的说法，正确的是（ ）A、邮件发送成功后，自动保存在收件人计算机中等待浏览 B、浏览器的功能是编辑、解释、执行HTML源代码 C、网页端收发电子邮件先通过HTTP协议登录邮件服务器 D、接受邮件时，将使用POP3协议将邮件从发件人邮件服务器读取到本地计算机
-
15、下列关于信息的说法，不正确的是（ ）A、电子书使信息可以不依赖于载体进行传播 B、网站对用户输入的密码进行加密属于信息的处理 C、文字、语言、声音、肢体动作等都是信息的表达方式 D、指纹识别系统提高了信息的安全性
-
16、某著名景点在七月份收到若干旅游公司的通告，通告中包括该公司旅游的起始时间和终止时间， 如[6，10]表示该旅行团 6 号早上到，10 号早上回。疫情期间为避免人员扎堆，公司在时间段[start， ending]进行限流操作，要求在该时间段内景点每天都接待游客，且接待的旅行团越少越好。若景点收到的旅行团的数据是[3，8]、[3，6]、[8，15]、[18，25]、[14，20]、[5，10]，[10，18]、[13，18]限流时间是[4，19]。工作人员对旅行团的数据做了如下处理：
①将旅行团的旅行时间按照“到达时间”为主要关键字，“返回时间”为次要关键字升序排序。排好序的时间段是[3，6]、[3，8]、[5，10]、[8，15]、[10，18]、[13，18]，[14，20]、[18，25].
②从前往后遍历时间段，选择“到达时间”不大于“限流开始时间”的时间段，若有多个时间段满足条件，且时间段未超出限流时间，应选择“返回时间”最大的时间段，选择的时间段是[3，8]。
③缩小限流时间[8，19]，重复步骤 2，选择满足条件的时间段是[8，15]，缩小限流时间[15，19]，重复步骤 2，选择满足条件的时间段是[14，20]，结束时间已超过限流终止时间，结束。
④若在遍历时间过程中出现“到达时间”大于“限流开始时间”，景点不能每天接待旅客，则没有满足条件的旅行社。
小王编写VB程序，程序界面如下所示，单击“排序”按钮，将旅行团的时间按照“到达时间”为主要关键字，“返回时间”为次要关键字升序排序，在Text1和Text2中输入限流的起始时间和终止时间，单击“满足条件的旅行团”按钮，在列表框输出满足条件的旅行团的时间，若没有满足条件的旅行社，则在列表框输出“没有满足条件的旅行团！”
回答下列问题：
(1)、若景点接收到的旅行社的起始时间和终止时间分别为[5，17]、[7，18]、[4，12]、[3，8]、[2，10]，限流时间是[3，15]，筛选出的旅行团的时间是(2)、请在横线处填入合适的代码Dim i As Integer, j As Integer, n As Integer, t As Integer Dim a(100) As Integer, b(100) As Integer
Private Sub Command1_Click()
'将旅行团个数存入n，加载n个旅行团的起始时间、终止时间并分别放在数组a和数组b中，代码略
For i = n to 2 step -1
j=1
Do while
If a(j) > a(j + 1) Or a(j) = a(j + 1) And b(j) > b(j + 1) 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
j=j+1
Loop
Next i
'输出排好序的时间段，代码略
End Sub
Private Sub Command2_Click()
Dim arrivetime As Integer, leavetime As Integer
start = Val(Text1.Text): ending = Val(Text2.Text)
For i = 1 To n
arrivetime = start
If a(i) <= arrivetime Then
If b(i) > leavetime Then leavetime = b(i): t=i
IfThen
List2.AddItem Str(a(t)) & "---" & Str(b(t)) Exit For
End If
Else
If start < arrivetime or i = 1 Then
List2.Clear
List2.AddItem "没有满足条件的旅行团!"
Exit For
End If
List2.AddItem Str(a(t)) & "---" & Str(b(t))
i = i – 1
End If
Next i
End Sub
-
17、根据对分查找的思想来查找两个递增序列中最小值所在的位置，其中第一个递增序列中的数据全部大于第二个递增序列中的数据，且两个序列中没有重复数据，如组合序列3、4、5、6、1、2是由两个递增序列“3、4、5、6”和“1、2”组成的，组合序列的最小值是1，在组合序列中的位置是第5位。
为实现上述功能，小王编写如下VB程序，首先在Text1中输入两个满足条件的序列，数字之间用“，”隔开且以“，”结尾，单击按钮“Cod1”，在Text2中输出最小值所在序列中的位置，程序运行界面如下图所示。
(1)、在界面中，具有Caption属性的对象有个。(2)、在横线处填入合适的代码。Private Sub Cod1_Click( )
Dim s As String, ch As String
Dim i As Integer, j As Integer, n As Integer, c As Integer
Dim a(100) As Integer
s = Text1.Text: c = 0: n = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
Else
n = n + 1
c = 0
End If
Next i
i = 1: j = n
Do While
m = (i + j) \ 2
If a(m) > a(i) Then
i = m
Else
j = m
End If
Loop
End Sub
(3)、加框处的表达式有误，请改正。 -
18、小王创作主题为“丰收的喜悦.fla”的 Flash 多媒体作品。其“main”场景的某脚本的描述如下表所示。
场景：main
类号序别：2
进入方式：
来自 Load 场景，通过“进入”按钮进入
呈现方式：
⒈“音乐”淡入，3秒后出现“人物”。
⒉“水稻”在舞台左下角从完全透明逐渐变化到完全显示，且水稻在舞台上一直随风摆动。
⒊“退出”按钮和“播放”位于舞台下方，单击“退出”按钮，动画从“end”场景第1帧播放。
⒋最后出现“退出”按钮，并停止动画播放。
呈现顺序说明：
一开始出现“水稻”并播放背景音乐。
⒈ 1s后出现“果树”，在舞台中呈现2s后便消失不见。
⒉ 3s后同时出现“人物”和“文字”。
⒊ 3s后音乐停止。
⒋最后出现“退出”按钮和“播放”按钮，并停止动画播放。
使用 Flash 软件编辑“丰收的喜悦.fla”文件的部分界面如图a所示，回答下列问题。
图a
(1)、根据“丰收的喜悦.fla”作品制作的过程，下列描述正确的是 （多选，填字母）A、上述关于“丰收的喜悦.fla”作品的描述是多媒体作品制作的文字脚本 B、Flash 是一个以帧为基础的多媒体制作软件 C、若声音素材时长是10s，则“音乐”图层声音同步方式是“数据流” D、“水稻”图层第1帧上实例的Alpha值应设置为0% E、制作“丰收的喜悦.fla”作品时，至少需要3个场景(2)、测试影片时，“main”场景画面中“水稻”一直随风摆动，则该场景“水稻”图层第1帧到第10帧的动画类型是（单选，填字母：A ．动画补间动画/B ．形状补间动画/C ．逐帧动画）。(3)、“播放”按钮元件部分界面如图b所示，测试影片， 当鼠标移至（单填，填字母：A ．形状区域/B ．文字区域/C ．形状或文字区域），能响应鼠标单击事件。
图b
(4)、在播放过程中，发现“果树”图层内容呈现方式和脚本不一致，为使“果树”图层内容呈现符合上述脚本描述，正确的操作是。(5)、根据上述脚本描述，在“main”场景中的“退出”按钮上设置的动作脚本是。 -
19、小王收集了“近三年某高校部分系的学生人数”的相关数据，并使用Excel软件进行数据处理，如图a所示。
图a
(1)、区域 H3：J5中的数据是通过SUMIF函数计算得到的，在H3中输入公式再通过自动填充完成H列、I列、J列的相关区域的计算。（提示：SUMIF函数用于统计某个区域中满足条件的单元格数值之和。例如求2019年5个系的总人数：=SUMIF（A3：A17，G5，E3：E17））(2)、根据图a中的数据，制作了一张“2018年人数统计”的统计图表，如图b所示，图表的数据区域是；
图b
(3)、对图a中的数据进行统计分析，下列说法正确的是 （多选，填字母）A、列E的数据是通过公式计算得到的，已知“E3”单元格的公式是“=C3+D3”，小李不小心把D3单元格的数据输成了“*”，这时E3单元格中将会显示为“#VALUE！” B、选择“A2：E17”按照“总人数”降序排序后，图b的图表不会发生改变 C、以“入学年份”等于“2018年”，“男生人数”最大1项进行筛选可以筛选到“2018年”中“男生人数”最多的记录 D、以“入学年份”等于“2017年”，“系名”等于“？学？”可筛选出2017年“数学系”和“化学系”的记录 -
20、有如下 VB 程序段：
a(1) = 13: a(2) = 22: a(3) = 36: a(4) = 42: a(5) = 50: a(6) = 58: a(7) = 62: a(8) = 70
i = 1: j = 8: count = 0
Randomize
key = Int(Rnd * 100 )
Do While i <= j
m = (i + j + 1) \ 2
If a(m) >= key Then
count = count * 2 + 1
j = m - 1
Else
count = count * 2
i = m + 1
End If
Loop
执行该程序段后，count的值不可能的是（ ）
A、15 B、14 C、7 D、6