相关试卷
-
1、某分段排序算法描述如下：
1)将原始数据按升序分成若干有序段。
2)将第1段和第2段进行合并，使得合并后的数据依旧有序，得到新的有序段。
3)将新的有序段再次和下一个有序段进行合并。
4)重复上述操作，直到全部数据变成一个有序段为止，排序结束。
如数据：1、3、9、4、5、7、2、6，第1段为1、3、9，第2段为4、5、7，将第1段和第2段合并，得到新的第1段为1、3、4、5、7、9。继续和下一段2、6进行合并，合并后段数变为1段，则排序结束。
编写VB程序，实现分段排序功能：在文本框Text1中输入数据总量，单击“数据生成”按钮Command1后，在列表框List1中显示原始数据，然后单击“分段排序”按钮Command2，在列表框List2中显示排序后的结果。程序运行界面如图所示。
请回答下列问题：
(1)、若要清空列表框List1，下列代码正确的是(单选，填字母：A .List1.Clear / B .List1.List="" / C .List1.Text="" / D .List1.Caption="空白" )。
(2)、实现分段排序功能的VB程序如下，请在划线处填入合适的代码。Dim a(1 To 1000) As Integer
Dim n As Integer
Private Sub Command1_Click()
'输入数据总量n，随机生成n个数据保存在数组
'a(1)~a(n)中，并在List1中显示数据，代码略
End Sub
Private Sub Command2_Click()
Dim b(1 To 10000) As Integer
Dim p1 As Integer, p2 As Integer, t1 As Integer, t2 As Integer
Dim t As Integer, k As Integer, i As Integer, j As Integer
p1 = 1
t1 = leng(p1)
p2 = p1 + t1
Do While p2 <= n
i = p1: j = p2: t = 1
Do While i < p2 Or j < p2 + t2
If j >= p2 + t2 Or i < p2 And a(i) < a(j) Then
b(t) = a(i): i = i + 1
Else
b(t) = a(j): j = j + 1
End If
t = t + 1
Loop
For k = 1 To
a(k) = b(k)
Next k
t1 = t1 + t2
Loop
'在List2中输出数组a(i)的值，代码略
End Sub
Function Leng(ByVal p As Integer) As Integer
'该函数返回数组a中数组下标p开始的升序有序段的长度，代码略
End Function
(3)、程序中加框处代码有错，请改正。 -
2、使用Flash软件创作“雍正故宫”作品，其中“load”场景的制作脚本如下表所示，
场景名：load
类别序号：1
进入方式：启动动画自动播放
呈现方式：
呈现顺序：
①“音乐”图层中的声音源于库中的素材 bg.wav，参数如图b所示。
①一开始时出现背景画面，音乐随即播放。
②“文物”从完全透明到完全显示，由左到右由小变大慢慢呈现在舞台上。
②1秒后出现“文物”动画，3.5秒后音乐停止播放。
③“播放”按钮位于舞台右侧位置，单击该按钮跳转到“main”场景第1帧并开始播放。
③最后出现“播放”按钮，场景停止播放。
(其他略)
(其他略)
部分界面如图a所示，请回答下列问题：
图a
图b
(1)、根据所给材料，下列说法正确的是 (多选 ，填字母)。A、该动画作品至少包含2个场景 B、“播放”按钮只能用于本场景的舞台中 C、编写制作脚本后应进行的操作是编写文字脚本 D、“文物”图层第10帧对象的Alpha值为0%(2)、从图中可知“故宫”图层中的文字“雍正故宫”为（选填：实例/形状）。(3)、根据制作脚本可知，背景图层第60帧处应添加动作命令为。(4)、若要使得“音乐”图层中的音乐在“文物”图层补间动画结束后停止播放，在不改变其他动画效果情况下，以下操作可行的是 （多选：填字母）。A、在“音乐”图层第20帧帧插入关键帧 B、将“音乐”图层第35帧空白关键帧移至第20帧 C、在“音乐”图层第20帧添加stopAllSounds();指令 D、删除“音乐”图层第20-34帧，并将声音的同步方式设置为事件(5)、“按钮”图层的呈现方式和脚本不符，则应进行的操作是。 -
3、某中学校园英语文化节举行了各类比赛，用Excel软件对比赛成绩进行处理，如图a所示。
图a
(1)、图a中L4:P4区域的数据是根据K4单元格自动填充得到，则L4单元格中的公式是（单选，填字母：A .=AVERAGEIF($A$4:$A$63,"高一*",C4:C63)/ B .=AVERAGEIF($A4:$A63,"高一*",C4:C63) / C .=AVERAGEIF($A4:$A63,"高一*",B4:B63 )
(2)、根据图a数据创建的图表如图b所示，则创建图表的数据区域为。
图b
(3)、若要找出高三年级口语成绩最好的班级，下列操作可行的是 （多选，填字母）。A、以“班级”包含高三，“口语”最大1项进行筛选，选取筛选出的班级。 B、以“班级”包含高三进行筛选，再按“口语”进行降序排序，选取排在最前面的班级。 C、以“口语”为主要关键字，“班级”为次要关键词均降序排序，选取排在最前面的班级。 D、以“口语”为主要关键字降序排序，以“班级”包含高三进行筛选，选取排在最前面的班级。 -
4、有如下VB程序段：
s = ""
i = 1:j = 10:k = 1
Do While i <= j
m = Int((i + j) / 2)
If a(m) > b(k) Then j = m - 1 Else i = m + 1
If a(m) = b(k) Then k = k + 1:s = s + Str(m)
Loop
数组元素a(1)到a(10)依次为“2,3,7,9,10,15,15,15,19,20”，执行该程序段后，变量s的值有3个字符，则b(1)到b(3)的值可能为（ ）
A、2 3 11 B、3 7 9 C、10 15 15 D、15 15 19 -
5、判断非重字符串s2(至少含2个字符)是否为s1的子集，若s2的字符按序在s1中出现，则称s2为s1的子集。例:s1="a3bcd"，s2="ab"，s3="ba"，则s2是s1的子集，s3不是s1的子集。实现该功能的VB程序段如下：
s1 = Text1.Text : s2 = Text2.Text
i = 1 : j = 1
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) = Mid(s2, j, 1) Then
Loop
If
Then Label1.Caption = "是子集" Else Label1.Caption = "不是子集"上述程序填空处的可选语句为：
①i = i + 1 ②j = j + 1 ③i > Len(s1) ④j > Len(s2)
则(1)(2)(3)处语句依次最合理的搭配为（ ）
A、①②③ B、②①③ C、①②④ D、②①④ -
6、有如下VB程序段：
For i = 1 To 2
For j = 6 To 2 * (i + 1) Step -2
If a(j) < a(j - 2) Then
t = a(j): a(j) = a(j - 2): a(j - 2) = t
End If
Next j
Next i
假定数组元素a(1)～a(6)的值依次为“happy，sky，change，sk，bellow，hello”。执行该程序段后，a(4)～a(6)的值依次是（ ）
A、sk，bellow，sky B、sky，bellow，sk C、sk，happy，sky D、happy，sk，sky -
7、有如下VB程序段：
n = 3: s = 0
c = Val(Text1.Text)
For i = 1 To c
p = i Mod n + 1
s = s + p
Next i
在文本框Text1中输入9，程序执行后，变量s的值为（ ）
A、6 B、9 C、18 D、45 -
8、某算法的部分流程图如图所示。输入n的值为20，执行这部分流程后，输出k的值为（ ）
A、0 B、1 C、2 D、5 -
9、下列选项中，无法实现变量r的值在“0”和“1”之间进行切换功能的表达式是（ ）A、r = (r - 1) Mod 2 B、r = Abs(r - 1) C、r = 1 - r D、r = (r + 1) Mod 2
-
10、—幅未经压缩16位色的BMP图像，将其另存为256色，其他参数不变。则存储容量比为（ ）A、1:2 B、1:16 C、2:1 D、256:1
-
11、用Photoshop制作“重阳登高”作品，其中“重”字的轮廓被选区选中，部分界面如图所示。
下列说法正确的是（ ）
A、“花栏”图层未在舞台显示的原因是该图层被隐藏 B、可使用文字工具修改“印章”图层中文字“九月”的字体 C、当前状态下，可将“印章”图层的图层样式拷贝到“太阳”图层 D、当前状态下，可使用油漆桶工具对“重”字选区进行填充 -
12、下列有关进制与编码的说法，正确的是（ ）A、十六进制数2020是十六进制数202的10倍 B、十六进制数15转换为二进制数为1111 C、ASCII码由7位二进制进行编码 D、已知字符“9”的内码为“39H”，则字符“10”的内码为“3AH”
-
13、使用Access软件设计的博物馆文物信息数据表，需存储如图所示的数据。
序号
文物名称
文物编号
距今时间
收藏日期
来源
1
晚清七色釉盘
Q4877111854510
208年
2001-3-1
捐赠
2
明官窑矮罐
M6877111665125
531年
1998-6-8
馆有
3
汉青铜短剑
H7877111783721
2000年
1978-9-16
租借
…
…
…
…
…
…
下列表结构设计最合理的是 （ ）
A、
B、
C、
D、
-
14、下列关于信息的表达与交流，说法正确的是（ ）A、哑语和肢体动作是常用的信息表达技术 B、HTTP又称超文本传输协议，主要用于浏览器和Web服务器之间的信息传输 C、POP3协议出错，则通过浏览器登录电子邮箱时无法发送新的邮件 D、为了方便下载网页中的图片，可以把网页以“网页，仅html”类型保存
-
15、下列关于信息的说法正确的是（ ）A、信息只有转换成二进制代码才能被处理 B、同一信息可以通过不同的载体被保存和传播 C、通过搜索引擎检索到的信息都是真实可信的 D、在信息评价中个人推荐属于较可靠的一种方式
-
16、四则混合运算是指加法、减法、乘法和除法四种混合运算。现有一程序可计算不带括号的“＋”、“－”、“*”三则混合运算。在文本框Text 1中输入表达式（保证符合数学规范），单击“=”按钮Command 1后，在标签Label l中输出运算结果，程序界面如图所示。
(1)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click( )
Dims As String，ch As String
Dim i As Integer，t As Integer
Dim ans As Long，px As Long
s=Text1.Text
ans=0：t=0：px= 1
For i=1 To Len（s）
ch=Mid（s，i，1）
IfThen
t=t*10+Val（ch）
Else
px=px*t
If ch= "_" Then
px=-1
End If
t=0
End If
Next i
Label 1.Caption=Str（ans+）
End Sub
(2)、若删除加框处代码，在文本框Text1中输入表达式“3-2+2*3”，程序运行结束时标签Label1中显示的内容为。 -
17、为庆祝新学期到来，某校学生会组织开展文体演艺活动，现按活动要求，将各班学生编排成“三角”队形。队形有以下要求：
第一排正中间安排1人；第二排正中间安排3人；第三排正中间安排5人……，如此循环，直至班级人数不足以站满一排后结束编排。
三角队形外围一圈的同学对服装有特殊要求，需要进行标记（中间的同学用“●”标记，外围的同学用“▲”标记）
编写VB程序，实现队形编排功能：在文本框Text l中输入班级人数，单击“展示队形”按钮Command1后，将班级学生队形显示在列表框List 1中。例如，当班级学生数为54的时候，程序运行界面如图所示。
(1)、根据题意，如果输入的班级人数为70，则三角队形的最后一行人数为。(2)、程序代码中加框处有错误，请改正。Private Sub Command 1_Click( )
Dim i As Integer，j As Integer
Dim cnt As Integer，nAs Integer，tmp As Integer
Dim kw As String，zw As String，c As String
List 1.Clear
cnt=Val（Text 1.Text）
n=0：tmp= 1
Do While
‘计算三角队形的行数cnt=cnt-tmp
tmp=tmp+ 2
n=n+1
Loop
For i=1 T on
kw=""：zw=""
For j=i T on-1
kw=kw+" "
Next j
If i=n The nc="▲" Else c="●"
For j= 1 To 2*（i-1）-1
zw=zw+c
Next j
IfThen
ZW="▲"
Else
zw="▲"+zw+"▲"
End If
List 1.Add Item
Next i
End Sub
(3)、实现队形编排功能的VB程序如下，请在划线处填入合适的代码。 -
18、某仓库管理员希望使用计算机来帮助他管理仓库物品。会有不同的人到仓库取物品，每人希望取走不同数量的物品，物品库存总量事先已知。
计算机的管理规则如下：
·对于某人需要的物品数量，若仓库有足够的物品，将直接分配给该人。
·若某人需要的物品数量超过了当前的库存量，仓库会拒绝该人的请求。
管理员希望知道有多少人没有顺利取到物品。
现编写VB程序实现对物品的管理，在文本框Text 1中输入物品库存总量，在文本框Text 2中输入每人所需要物品的数量（以逗号分隔），单击“统计”按钮count，在Label 4中显示一天中没有取到物品的人数。程序设计界面如图所示。
(1)、根据题意，“统计”按钮的对象名为。(2)、VB程序代码如下，请在划线处填入合适的代码。Private Sub count_Click（）
Dim sum As Integer，num As Integer
Dim cnt As Integer
Dims As String，chAs String，tmp As String
cnt= 0
sum=Val（Text 1.Text）
s=Text 2.Text
For i=1 To Len（s）
ch=Mid（s，i，1）
If ch="，"Then
num=Val（tmp）
If num>sum Then
cnt=cnt+ 1
Else
End If
tmp=""
Else
End If
Next i
Label 4.Caption=Str（cnt）
End Sub
(3)、若在文本框Text 1中输入“30”，文本框Text 2中输入“10，5，20，6，78”，则程序运行结束时标签Label 4中显示的内容为。 -
19、小明收集了2020年8-10月部分PC Web端网站的用户访问量，并用EXCEL软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、参照F3单元格的公式计算H3单元格的值，并用自动填充功能完成区域H4：H16的计算，则H3单元格中公式是。(2)、已知D3单元格格式是“数值”并保留1位小数，若将F3单元格复制粘贴到D3单元格，则D3会显示（单选，填字母：A .-1.1/B .#VALUE！/C .#DIV/0！/D .0.0）。(3)、若依据“8月覆盖人数（万人）”对数据进行排序，应选数据区域为。(4)、若根据图a中的数据制作如图b所示的图表，创建该图表的数据区域是。
图b
(5)、为了获得“在线视频”类别中10月覆盖人数最多的数据，并显示在操作结果的最前面，选择数据区域A2：H16后，有以下操作步骤可供选择：①以“类别”进行筛选，选择的值为“在线视频”
②以“10月覆盖人数（万人）”进行筛选，选择“10个最大的值”并设置最大的1项
③以“类别”为关键字（按字母排序）升序排序
④以“类别”为关键字（按笔画排序）升序排序
⑤以“10月覆盖人数（万人）”为主要关键字降序排序
⑥以“10月覆盖人数（万人）”为主要关键字升序排序
则下列选项中的步骤组合（按顺序）可以实现上述功能的是 （多选，填字母）。
A、①② B、①⑤ C、③⑤ D、④⑤ E、④⑥(6)、为撰写“PC Web网络购物网站2020年8月-10月的用户使用情况”，以图c中“选项3”粘贴方式将图b的图表插入到Word文档中，此时若改变Excel中的相关数据，那么Word文档中的图表（选填：会/不会）改变。
图c
-
20、有如下VB程序段：
Dim i As Integer, sum As Integer, a(0 To 7) As Integer
Dim s As String , ch As String , num As String
s="2-3-4-5-6-7-0"
sum=1：num=""
For i=1 To Len（s）
ch=Mid（s，i，1）
If ch>="0" And ch<="9" Then
num=num+ch
Else
sum=sum*Val（num）
a（Val（num））=Val（num）
End If
Next i
Text1.Text=Str（sum）
执行该程序段后，下列说法正确的是（ ）
A、文本框Text1中显示“0” B、文本框Text1中显示“5040” C、程序报错，提示“溢出” D、程序报错，提示“下标越界”