Next j
Next i
数组元素a(1)到a(6)的值依次为"98,67,3, 81,38,21",执行该程序段后,a(1)~a(6)各元素值不可能是
A.3,98,67,21,81,38 B.3,21,98,67,38,81
C.3,21,38,67,98,81 D.98,67,3,81,38,21
12.对数组a中的n个元素进行去重(去掉数组中重复元素),实现该功能的VB程序段如下:
i= 1:length = n
Do While i < length
j=i+ 1
Do While j <= length
If a(i) = a(j) Then
For m=j+ 1 To length
Next m
length = length- 1
Else
End If
Loop
i=i+1
Loop
输出a(1)至a(lengh)的值,代码略
上述程序段两个方框处的语句分别为
A.①a(m-1)=a(m)②j=j+ 1 B.①a(m)= a(m+ 1)②j=j+ 1
C.①a(m-1)=a(m)②i=i+ 1 D.①a(m)= a(m+1)②i=i+ 1
二、非选择题(本大题共4小题,其中第15小题4分,第14小题8分,第15 小题7分,第16小题7分,共26分)
13.小明利用Excel统计某校高一学生体质健康抽测数据,如图a所示:
图a
(1)在K2单元格中利用AVERAGEIF函数计算女生“50米”测试平均分,并利用自动填充功能完成区域L2:N2的数据计算,则K2单元格中的公式是______(提示:AVERAGEIF函数用来返回某个区域内满足给定条件的所有单元格的平均值。如:*=AVERAGEIF(C2:C41,“男”,D2:D41)"表示男生50米测试成绩的平均分)。(2)小明要找出总分最高的男生(若存在符合条件的多个学生,则全部选取),下列方法一定可行的是____(单选,填字母)。
A.以“总分”为关键字进行降序排序,选取排在最前面学生
B.以“性别"为男、“总分”为最大1项进行筛选,选取筛选出的全部学生
C.以“性别"为男进行筛选,“总分”为关键字进行降序排序,选取排在最前面学生
(3)根据图a中数据制作的图表如图b所示。创建该图表的数据区域为_ ;分析图表,高一男生整体较为薄弱的体测项目为________ (选填:50 米/立定跳远/引体向上/长跑)。
14.使用Flash软件创作“大暑节气”多媒体作品,如图a所示。请回答下列问题:
(1)在制作作品前,先进行了相应的分析和规划。下列说法正确的是___ (多选,填字母)。
A.多媒体作品设计的一般过程包括需求分析、规划设计、脚本编写
B.将作品的主题确定为大暑节气,属于应用需求分析
C.功能模块设计包括描述“大暑节气"作品的整个组成部分、工作流程和主要界面
D.将所需的原始素材(如蜻蜓图像、背景音乐等)列成表格,确定获取素材的方式并分类登记,属于脚本编写环节
(注:全部选对的得2分,选对但不全的得1分,不选或有选错的得0分)
(2)如图a所示,“蜻蜓"图层创建了“蜻蜓"摆动翅膀飞行并经过不同荷叶的动画,则该动画类型为_ ,(选填:动画补间/形状补间)。
(3)测试场景时,“简介”图层的内容播放到后面消失了,为了使该图层第1帧内容延续至本场景动画结束,正确的操作是_ 。
(4)“播放”按钮的部分编辑界面如图b所示。小王制作“播放”按钮后发现该按钮不能响应鼠标事件。下列选项中可以让该按钮响应鼠标事件的操作是___(单选,填字母)。
①选中“图形”图层“点击”帧执行“删除帧”操作
②选中“图形”图层“按下”帧执行“清除关键帧”操作
③选中“文字”图层“点击”帧执行“插入帧”操作
④选中“图形”图层“指针经过”帧执行“删除帧"操作
A.①②③ B.①③① C.②③④ D.①②④
(5)测试影片时,单击当前场景中的“播放”按钮,停止所有音乐的播放,同时影片跳转到“习俗”场景第1帧并开始播放,则“播放”按钮的动作脚本为on(elease){______ } 。
15.编写“数对查询"程序,实现如下功能:生成11个随机整数存人数组,并在标签Labell中显示。在文本框Textl中输入一个正整数,单击“搜索"按钮Command1,在数组中查找和为该正整数的两个数,并在列表框Listl中输出查询结果。程序运行界面如图所示:
实现上述功能的VB程序如下:
Const n=11
Dimd(l To n)As Iteger
Private Sub Form_ Load()
生成n个随机整数存入数组d,并在Labell中显示,代码略
End Sub
Private Sub Commandl_ Click()
Dim sum As Integer, L As Integer, R As Integer, c As Integer
c=0
For L=1 Ton-1
R=n
Do WhileL< R
If_ ② _Then
Listl.Addtcem Str(d(L))&" "& Str(d(R))
c=c+1
Exit Do "Exit Do 表示退出循环
Else
End If
Loop
Next L
List.Addtem"找到和为"“& Str(sum)& "的数对共" & Str(c)&"组"
End Sub
请回答下列问题:
(1)在设计程序界面时,要修改文本框Textl中文字的字体大小,可修改文本框的__ 属性(单选,填字母: A.Text/B.Width/C.Font )。
(2)请在划线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
(4)根据程序,若文本框Textl中输入内容为28,则能找到满足条件的数对组数为____。
16.某会场每天会收到众多举办活动的申请。现需对活动申请进行统筹安排,以确保会场在同一时间内只安排一个活动且每天安排尽可能多的活动。具体规定如下:
●对各个活动按结束时间先后进行升序排序,若结束时间相同,按开始时间先后升序排序。
●先安排结束时间最早的活动,依次考虑未安排的活动,如果和已安排的活动没有时间冲突,则予以安排;否则,不予安排。
小明为此编写了VB程序,功能如下:在列表框List1读取活动编号、活动时间(开始时间-结束时间)。按编号依次显示。单击“统筹安排”按钮Commandl,对申请的活动按规定进行排序,并在列表框List2中输出当天能安排的活动编号、活动时间和数量。程序运行界面如图所示:
(1)某天收到8个活动申请,各活动时间(开始时间-结束时间)分别为“07-12,10-13,14-20,09-12, 12-15,09-11,10-12,08-10”。根据上述规定,当天最多能安排_____个活动。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Dim a(1 To 100)As ltege, b(1 To 100)As lee, c(1 To 100)As lteger
Dim m As Integer
Private Sub Form Load()
‘从数据库中读取活动编号、开始时间和结束时间,分别存储在数组c、a、b中,并在列表框list1中显示;统计收到的活动申请数量,存储在变量m中
‘代码略
End Sub
Private Sub Command1_ Click()
Dim i As Integer,j As Integer,k As Integer
Dim temp As Integer,n As Integer, last As Integer
‘对各个活动按时间进行排序
For i=1 To m-1
k=i
For j=i+ 1 To m
If b(c(j)) < b(c(k)) Then
k=j
ElselIf ① Then
k=j
End If
Next j
If k<> I Then
temp = c(k):e(k) = c(i): c(i)“temp
End If
Next i
last = b(c(1))
‘CStr(n)将n转换成字符串并去除字符串前空格
List2.AddItem " "+ adj((c(1)),4)+ CStr(a(c(1)))+ "-" + CStrb(c(1)))②
For i= 2 To m
If a(c(i)) >= last Then
List2.AddItem " "+ adj((c(i)),4)+ CStr(a(c(i)))+ "-" + CStrb(c(i)))n=n+ 1
End If
Next i
List2.AddItem”最多能安排" & CStr(n)& "个活动”
End Sub
Function adj(a A s String, b A s Integer)
将字符串对齐输出,代码略
End Function
台州市2021第二学期高二年级期末质量评估试题
参考答案
2021.07
第一部分信息技术(共50分)
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
13.(1) =AVERAGEIF($C$2:$C$41,“女" ,D2:D41)(或等价答案)(1分)
(2)C (1分)
(3) J1: N1,J3:N3 引体向上(2分)
14. (1) AD (2分)
(注:全部选对的得2分,选对但不全的得1分,不选或有选错的得0分)
(2)动画补间(I分)
(3)选择“简介"图层第40帧,执行清除关键帧操作(或等价答案)(2分)
(4) B (1分)
(5) stopAl1Sounds();gotoAndPlay(“习俗",1);(2分)
15.(1)C (1分)
(2)①sum = Val(Textl.Text)(1分)
②d(L)+ d(R) = sum (或等价答案)(2分)
(3)R=R-1 (2分)
(4)2 (1分)
16.(1)3 (1分)
(2)①b(c(j)) = b(c(k))And a(c(j)) < a(c(k))(或等价答案)(2分)
②n= 1 (2分)
③last = b(c(i))(2分)