方框中的代码由以下三部分组成:
①j=22006+i*10
②i=i-1 ③If(j Mod 37)*(J Mod 67)=0 Then flag = True
下列选项中,代码顺序正确的是(
)
A.①②③
B.①③②
C.②①③
D.②③①
10.某对分查找算法的 VB 程序段如下:
i=1:j=30
m=(i+j)\2
Do While i < = j And key < > a(m)
If key >a(m) Then i = m+1 Else j = m-1
m=(i+j)\2
①
Loop
数组元素 a(1)到 a(30)各不相同且按升序排列,若查找键 key 与 a(9)相等,执行该程序段,①处语
句的执行次数是(
)
A.2
B.3
C.4
D.5
l1.有如下 VB 程序段:
a(1)=“ABC”:a(2)=“DEF”:a(3)=“GHI”
s1=“31,12,23,33”:s2=“”
For i = 1 To Len(s1)
ch = Mid(s1,i,1)
If ch < > “,” Then
i=i+1
p=Val(Mid(s1,i,1))
s2=s2+Mid(a(p),Val(ch),1)
End If
Next i
执行该程序段后,变量 s2 的值是(
)
A.“CDHI”
B.“GBFI”
C.“CDH”
D.“GBF”
12.如下 VB 程序段实现对数组元素 a(1)到 a(10)从小到大排序。
i=1
Do While i<10
k=i:i=10
For j=10 To k + 1 Step -1
If a(j)
Loop
则代码中①处的语句可为(
)
A.i=i+1
B.i=j+1
C.i=k-1
D.i=j
二、非选择题(本大题共 4 小题,其中第 13 小题 4 分,第 14 小题 8 分,第 15 小题 7 分,第 16 小题 7 分,
共 26 分)
13.收集某中学两个班级体质健康测试数据,并对部分项目用 Excel 软件进行数据处理,如第 13 题图 a 所
示。
请回答下列问题:
(1)区域 G3:G82 的数据是通过公式计算得到的,在 G3 单元格中输入公式________,再使用自动填充功
能完成区域 G4:G82 的计算。(提示:体重指数=体重/身高 2,单位:千克/米 2)
(2)对区域 A2:G82 进行相关数据分析,下列说法正确的是_______(多选,填字母)。
A.更新 C 列身高数据,G 列体重指数的值会随之改变
B.为了将女生身高最高的数据显示在当前工作表第 3 行,可选择身高为主要关键字、性别为次要关键字均
按降序排序
C.为了显示男生 1000/800 米得分大于 85 的数据,可先对“性别”进行筛选,选择的值为“男”,再对“1000/800
米得分”进行筛选,条件为大于 85
D.为了显示女生肺活量得分最高的 3 位学生数据,可先对“性别”进行筛选,选择的值为“女”,再对“肺
活量得分”进行筛选,选择“10 个最大的值”并显示最大的 3 项
(注:全部选对的得 2 分,选对但不全的得 1 分,不选或有选错的得 0 分)
(3)对图 a 中的数据进行相关统计,结果放在新工作表中,如图 b 所示。根据图 b 中的数据制作的图表如
图 c 所示,创建该图表的数据区域是________。
14.使用 Flash 软件创作“绿水青山”多媒体作品,部分编辑界面如第 14 题图所示。
请回答下列问题:
(1)在创作之前进行了作品设计,下列说法正确的是_________(多选,填字母)。
A.考虑作品创作及运行需要的硬件和软件,属于作品的应用需求分析
B.考虑作品的用户情况和作品效益,属于作品的创作需求分析
C.将作品划分为片头,主交互界面、片尾等组成部分,属于系统结构设计
D.描述作品每个场景的展示内容及呈现方式,属于制订脚本大纲
E.制订处理各种多媒体素材的方案,属于媒体元素分解
(注:全部选对的得 2 分,选对但不全的得 1 分,不选或有选错的得 0 分)
(2)测试影片时,动画播放到当前场景第 60 帧自动停止,则“按钮”图层第 60 帧的动作脚本是_______
(单选,填字母:A.stop(60);/B.stop();),单击第 60 帧中的“重播”按钮实现从该帧跳转到当前
场景第 1 帧并播放,则该按钮实例上添加的动作脚本是 on(release)|____________|(单选,填字母:A.play
();/B.gotoAndPlay(1);)。
(3)“文字”图层第 15 帧中仅有的对象云朵为形状,该帧已设置形状补间。测试场景时,第 15 帧到第 30
帧没有实现从云朵渐变为“绿水青山”的形状补间效果,原因是__________。
(4)“小船”图层中小船都是“船”元件的实例。为了使小船在测试场景时从第 41 帧到第 60 帧在舞台上
消失,其他动画效果保持不变,下列操作方法可行的是__________(多选,填字母)。
A.将该图层移动到“背景”图层下方
B.选中该图层第 41 帧到第 60 帧执行“删除帧”操作
C.选中该图层第 41 帧执行“清除帧”操作
D.选中该图层第 41 帧执行“插入空白关键帧”操作
E.选中该图层第 41 帧执行“插入关键帧”操作,并将该帧中小船实例的 Alpha 值设为 0%
(注:全部选对的得 2 分,选对但不会的得 1 分,不选或有选错的得 0 分)
15.根据某场馆一天中每位参观者的进馆和出馆时间,可统计该场馆当天人流量的分布情况。每个人进、
出馆的时间用一个长度为 11 的字符串表示,例如“08:05-08:45”表示进馆时间为 8 点 5 分,出馆时间
为 8 点 45 分。现要求统计当天馆内人数超过指定人数的总时长。
根据上述要求编写 VB 程序,功能如下:读取 n 个人进,出馆的时间,显示在列表框 List1 中。程序运行时,
在文本框 Text1 中输入指定人数,单击“统计”按钮 Command1,在标签 Label1 中显示馆内人数超过指定人
数的总时长。程序运行界面如图所示.
(1)在 VB 表达式 Va1(Text1,Text)中,Va1、Text1、Text 依次表示_______(单选,填字母:A.方法
名、属性名、事件名/B.函数名、对象名、方法名/C.函数名、对象名、属性名)。
(2)实现上述功能的 VB 程序如下,请在划线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
Const n = 800
Dim d(1 To n)As String,a(1 To 2 * n)As String
Private Sub Form_Load()
’读取 n 个人进、出馆的时间,存入数组 d 并显示在列表框 List1 中,代码略
End Sub
Private Sub Command 1_ Cliek()
Dim i As Integer,j As Integer,k As Integer,sp As Integer
Dim 1 As Integer,cnt As Integer,mts As Integer,sum As Integer
Dim s As String
’提取每个人的进、出馆时间,分别加上 IN、OUT 标记后存入数组 a
For i = l To n
a(i)=Mid(d(i),1,5)+“IN”
a(i+1) = Mid(d(i),7,5)+“OUT”
Next i
For i = 1 To 2 * n-1 对数组元素 a(1)到 a(2*n)从小到大排序
①
For i = i To 2 * n-1
If a(j) < a(k) Then k = j
Next j
s = a(i):a(i) = a(k):a(k)=s
Next i
sp =Val(Text1,Text)
1=-1:ent=0:sum=0
For i = 1 To 2 * n
mts=Val(Mid(a(i),1,2))*60+Val(Mid(a(i),4,2))
If Mid(a(i),6,2)=“IN” Then ent = ent + 1 Else ②
If ent > sp Then
If t = -1 Then t = mts
Elself t > -1 Then
③
t=-1
End If
Next i
Labell,Caption = “超过指定人数的总时长:”+Sir(sum)+“分钟”
End Sub
16.有 n 个小组(编号 1 至 n),每个小组有 m 个成员,每个成员都有一个大于等于 0 的得分。现要求按下
列规则计算每个小组的成绩,并找出成绩最高的小组。
小组成绩的计算规则是:若小组成员中得分最高的前 k 人得分都不低于 k,且其他成员得分都不超过 k,则
该小组成绩为 k。例如,第 1 小组共有 8 个成员,得分依次为“5,2,7,11,8,6,5,1”,由此可知最高
的前 5 人得分为“11,8,7,6,5”,其他 3 人得分为“5,2,1”,因此该小组成绩为 5。
按上述要求,编写 VB 程序,功能如下:在列表框 List1 中显示各小组每个成员的得分,单击“计算”按钮
Command1,在列表框 List2 中显示成绩最高的小组编号及成绩(如果有多个小组并列最高,则全部显示)。
(l)若第 2 小组各成员得分依次为“0,4,12,l,5,9,3,9”,则该小组的成绩是_______。
(2)请在划线处填入合适的代码。
Const n = 6
Const m = 8
Dim a(n * m)As Integer
Dim c(m)As Integer,ans(n)As Integer
Private Sub Form_Load()
’读取 n 个小组每个成员的得分,按组别从小到大依次存入数组 a,并显示在 List1 中
’n(l)到 a(m)存储第 1 小组 m 个成员的得分
’a(m+1)到 a(2*m)存储第 2 小组 m 个成员的得分
’以此类推,代码略
End Sub
Private Sub Cummand 1_Click()
Dim i As Integer,p As Integer,g As Integer,maxg As Integer
maxg = -1
For i = l To n
g = GroupScore(i)
If g > maxg Then
maxg = g:p=l
①
Elself g = maxg Then
p=p+1
ans(p)=i
End If