相关试卷
-
1、数组元素a（1）到a（n*2）为互不相等的正整数（n≥1），要在其中找到最大值和次大值，并分别存储到变量m1和m2中。实现该功能的VB程序段如下：
m1=0：m2=0
For i=1 To n * 2 Step 2
If a（i）>a（i＋1）Then
t1=a（i）：t2=a（i＋1）
Else
t1=a（i＋1）：t2=a（i）
End If
If
Thenm1=t1：m2=t2
ElseIf
Thenm2=m1：m1=t1
ElseIf
Thenm2=t1
End If
Next i
上述程序段中方框处可选代码为：①t1>m1 ②t1>m2 ③t2>m1
则（1）（2）（3）处代码依次为（ ）
A、①②③ B、②③① C、③①② D、③②① -
2、某排序算法的VB程序段如下：
‘读取n个整数，依次存入a（1）到a（n）中，代码略
For i=1 To n - 1
For j=n To i+ 1 Step -l
If a(j)>a(j-1) Then t=a(j) : a(j)=a(j-1) : a(j-1)=t
Next j
Next i
执行上述程序段，下列说法正确的是（ ）
A、交换过位置的数据，可能会再回到其初始位置 B、执行完成后，数组元素a(1)到a(n)从小到大排列 C、若n为5，整个排序过程总的比较次数是20 D、整个排序过程总的交换次数至少为1 -
3、某算法的部分流程图如图所示，若输入n的值为17879，则输出s的值是（ ）
A、42 B、60 C、68 D、78 -
4、下列VB表达式中，值最大的是（ ）A、Asc("F")-Asc("A") B、Sqr(20) C、Rnd( )*5 D、Len("2022")
-
5、一个时长为80秒、2048×1080像素、24位色、25帧/秒的未经压缩的AVI格式无声视频文件，其存储容量约为（ ）A、506.3MB B、1.5GB C、12.4GB D、98.9GB
-
6、使用GoldWave软件录制并编辑某音频文件，部分界面如图所示。
下列关于该音频的说法，正确的是（ ）
A、每个采样点量化值的编码长度为24字节 B、设置“淡出”效果可能会减少该音频的量化位数 C、删除选中部分后直接保存，其存储容量变为原来的1/2 D、另存为“旁白．mp3”文件的过程中采用了有损压缩编码方法 -
7、下列关于信息编码的说法，正确的是（ ）A、十进制数36转换为二进制数后，该二进制数中1的个数为4 B、二进制整数最右边增加1位后，奇偶性不会发生变化 C、某字符的ASCII码十六进制表示为74，在计算机中存储为二进制编码01110100 D、扫描某文字稿生成只有黑、白两种颜色的图像，每个像素至少用两位二进制数编码
-
8、小明开发“在线学习系统”，为学生提供在线选课和学习服务。使用Access软件设计该系统的数据库，部分界面如图所示。
下列说法正确的是（ ）
A、“在线学习系统”是数据库管理系统 B、在当前数据库中不能创建新的数据表 C、“学号”字段的数据类型不可能为“自动编号” D、“考核”字段名称改为“是否通过”，该字段数据会丢失 -
9、下列关于网页和浏览器的说法，正确的是（ ）A、网页中的图像、超链接等元素是由HTTP进行描述的 B、可以用搜索引擎根据关键字检索网页信息 C、通过网页中超链接访问的资源均为网页 D、将某网页的URL添加到收藏夹后，再次启动浏览器将自动访问该网页
-
10、下列关于信息安全的说法，不正确的是（ ）A、登录系统时进行刷脸认证，其作用是防止未经授权用户使用相关信息 B、泄漏的个人隐私信息可能被用于“量身定做”的精准诈骗 C、计算机磁盘中出现了很多来历不明的文件，可能是感染了病毒 D、接收好友发来的电子邮件，运行附件中的程序是安全的
-
11、某省举办大型活动，面向省内城市招募有志愿服务工作经历的志愿者，每个志愿者的报名数据包含城市序号、姓名（字母缩写）和参加志愿服务的次数。现需整理报名数据，要求是：先按城市序号从小到大排列；然后，同一城市的志愿者按参加志愿服务的次数从多到少排列。
按上述要求，编写一个VB程序，功能如下：在列表框List 1中显示整理前的数据，单击“整理”按钮Command 1，整理结果显示在列表框List 2中，程序运行界面如图所示。
(1)、将数组元素q（1）到q（200）分为10段，如果每段恰好包含20个元素，采用选择排序算法分别对每段中的元素进行排序，整个排序过程中，数组元素之间的比较次数是（单选，填字母：A . 200×199/2次/B .10×20×19/2次/C .20×10×9/2次）。(2)、请在划线处填入合适的代码。Const n=200 ‘报名总人数
Const nc=10 ‘城市数
Dim city(1 To n) As Integer, pname(1 To n) As String, times(1 To n) As Integer
Dim b(1 To nc) As Integer ‘存储每个城市的报名人数
Dim c(1 To nc) As Integer
Dim q(1 To nc) As Integer
Private Sub Form_Load（）
‘本过程读取城市序号，姓名和参加次数的数据分别存储在数组city；pname和times中，并在List 1中显示，代码略
End Sub
Private Sub Command 1_Click( )
Dim i As Integer, j As Integer, k As Integer, t As Integer, pos As Integer
For i=1 To nc
b(i)=0
Next i
For i=1 To n ‘统计每个城市报名人数
b(k)=b(k)+1
Next i
k=1
For i=1 To nc
c(i)=k
k=k+b(1)
Next i
For i=1 To n
k=city(i)
c(k)=c(k)+1
Next i
pos=1
For i=1 To nc ‘对各城市报名数据按参加志愿服务的次数进行排序
For j=pos To pos +b(i)-2
k=fp(j, pos+b(i)-1)
t=q(k) : q(k )=q(j) : q(j)=t
Next j
pos=pos+b(i)
Next i
For i-1 To n
List 2.AddItem " " & city（q（i））& " " & pname（q（i））& " " & times（q（i））
Next i
End Sub
Function fp（head As Integer，tail As Integer）As Integer
Dim i As Integer，k As Integer
k=head
For i=
If times (q(i))>times (q(k)) Then k=i
Next i
fp=k
End Function
-
12、甲乙双方进行一场球类比赛，一局计分的规则是：赢1球得1分，用“1”表示；输1球失1分，用“0”表示。当任一方得分大于等于6分，且领先对方2分及以上，领先方赢一局。如甲选手一局比赛数据为“101110101”，表示甲选手得6分失3分，局比分 。
小王用一个字符串记录了甲选手多局比赛数据，其中有一处错误，位于连续多个“0”的最后一个。为了找出错误，小王的处理方法如图a所示，对示例中疑似错误位置6和20分别修改数据，并统计每局比分。他编写了VB程序，功能如下：在窗体Form l的文本框Text l中输入记录数据，单击“分析”按钮Command 1，在列表框List 1中输出修改位置以及修改后每局的比分。程序运行界面如图b所示。
图a
图b
(1)、下列对象中有Text属性的是（单选，填字母：A .Command 1/B .Form 1/C .Text 1）。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command 1_Click( )
Dim sp As String, s As String s ‘s存储甲选手多局比赛的记录数据, 长度小于50
Dim a（1 To 50）As Integer, e（1 To 20）As Integer
Dim i As Integer, j As Integer, k As Integer, n As Integer, m As Integer
Dim f1 As Integer, f2 As Integer
s=Text 1.Text
n=Len(s)
For i=2 To n
a(i)=Val（）
Next i
m=0 : i=1
Do While i<=n
k=i
Do While a(i)=0 And i<=n 找出疑似错误位置
i=i+1
Loop
If Then
m=m+1:e(m)=i-1
End If
i=i+1
Loop
For i=1 To m ‘对每个疑似错误位置分别修改数据，并统计每局比分
f1=0 : f2=0
k=e(1)
a(k)=1
sp="" & k &""
For j=1 To n
If a(j)=1 Then f1=f1+1 Else f2=f2+1
If
Thensp=sp & "/" & f1 &":" & f2
f1=0 : f2=0
End If
Next j
If f1+f2>0 Then sp=sp & "" & f1 & ":"& f2
List 1.AddItem sp
Next i
End Sub
(3)、程序中加框处代码有错，请改正。 -
13、某中学举行了三个类别的艺术竞赛，并用Excel软件进行数据处理，如图所示。
回答下列问题：
(1)、总分是将“理论知识”成绩的10%与“专业问答”、“表演技能”的成绩分别乘以对应的权重后相加所得。通过G3单元格中的公式，对G4：G106进行自动填充，G4单元格中的显示结果是（单选，填字母：A .#VALUE！/B .8.84/C .#DIV/0！/D .0.00）。(2)、若要正确计算“总分”列的数据，可对G3单元格中的公式进行修改，并对G4：G106进行自动填充，则G3单元格中的公式是。(3)、图中的报名号为文本数据，构成规则是：类别（1位）+入学年份（4位）+班级（2位）+序号（2位）。若要仅筛选出入学年份是2018年的所有选手数据，下列筛选方式可行的是________（多选，填字母）。A、
B、
C、
D、
E、
-
14、某对分查找算法的VB程序段如下：
key=Val(Text1.Text)
s=" "
i=1 : j=10
Do While i<=j
m=(i+j)\2
s=s+Str(a(m))
If a(m)> key Then j=m-1 Else i=m+1
Loop
Text 2.Text =s
数组元素a（1）到a（10）的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text l中输人待查找的数，执行该程序段，则文本框Text 2中显示的内容可能的是（ ）
A、9 3 B、9 3 5 C、9 17 19 13 D、9 3 5 8 19 -
15、有两个以字母结尾的字符串s1和s2，在忽略字符串中空格的前提下判断它们是否相同。实现该功能的VB程序段如下：
i=i+1 : j=j+1
Do While i<=Len(s1) And j<=Len(s2)
If Mid(s1, i, 1 )=Mid(s2, j, 1) Then
i=i+1 : j=j+1
Else
End If
Loop
If i>Len(s1) And j>Len(s2) Then Text1.Text=“相同”Else Text1.Text=“不相同”
方框中的代码由以下三部分组成：
①If Mid(s1, i, 1)="" Then i=i+1
②If Mid(s2, j, 1)="" Then j=j+1
③If Mid(s1, i, 1)< > " " And Mid(s2, j, 1)＜＞" " Then Exit Do 'Exit Do表示退出循环
代码顺序正确的是（ ）
A、①②③ B、②①③ C、②③① D、③②① -
16、下列选项中，与语句“If x<0 Then y=-1 Else y=1”功能相同的是（ ）A、If x<0 Then y=-1 y=1 B、y=1 If x<0 Then y=-1 C、If x<0 Then y=-1 If x>0 Then y=1 D、If x>0 Then y=1 Else y=-1
-
17、一个时长为10秒、 像素、24位真彩色、30帧/秒的未经压缩的AVI格式无声视频文件，压缩为MP4格式后的文件大小约为626 KB，则其压缩比约为（ ）A、 B、 C、 D、
-
18、编写VB程序，功能是根据A城和B城同一时间段内的温度数据，计算两城温差（A城温度B城温度）A城数据和B城数据分别为包含若于个记录的序列，其中，A城每个记录包含温度及其截止时间，B城每个记录包含温度及其持续时长。两城温差计算结果表示为若干个记录的序列，每个记录包含温差及其持续时长。持续时长是指同一温度（或温差）保持不变的最大时长。示例见下表。
时间
第1小时
第2小时
第3小时
第4小时
第5小时
第6小时
第7小时
A城温度
30
30
33
33
31
31
32
A城数据
温度
30
33
31
32
截止时间
2
4
6
7
B城温度
20
20
20
22
21
21
22
B城数据
温度
20
22
21
22
持续时长
3
1
2
1
计算结果
温差
10
13
11
10
持续时长
2
1
1
3
（时间单位：小时，温度单位：摄氏度）
表中，A城数据有4个记录，其中第1个记录为（温度30，截止时间2），第2个记录为（温度33，截止时间4），这表明从开始到第2小时的温度都是30，此后到第4小时的温度都是33。B城数据有4个记录，其中第3个记录为（温度21，持续时长2），这表明第5、第6这2个小时的温度都是21。两城温差计算结果的第4个记录为（温差10，持续时长3），这表明第5第6、第7这3个小时的温差都是10。
(1)、若将示例中A城数据修改为3个记录，依次是（温度30，截止时间4）、（温度31，截止时间6）、（温度32，截止时间7），B城数据不变，则两城温差计算结果中第1个记录为（温差10，持续时长）（填数值）。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Const m =1000 ‘温度数据和温差数据包含的记录数都少于1000
Dim na As Integer, nb as integer ‘A、B城数据分别有na和nb个记录
Dim ha(m)As Integer ‘ha(i)存储A城第i个记录中的温度
Dim ta(m)As Integer ‘ta(i)存储A城第i个记录中的截止时间
Dim hb(m)As Integer ‘hb(i)存储B城第i个记录中的温度
Dim tb(m)As Integer ‘tb(i)存储B城第i个记录中的持续时长
Dim h(m)As Integer ‘h(i)存储计算结果第i个记录中的温差
Dim t(m)As Integer ‘t(i)存储计算结果第i个记录中的持续时长
Private Sub Command1_ Click( )
Dim i As Integer, j As Integer
Dim p0 As Integer, p1 As Integer, diff As Integer
Dim n As Integer ‘两城温差数据的记录个数
‘读取两城数据，存入变量ma,nb及数组ha,ta,hb,tb中，代码略
For i=2 To nb
tb(i)= ‘将B城第i个记录中的持续时长转换为截止时间
Next i
i=1 : j=1
n=0
p0=0
Do While i < na And i<= nb
diff ha(i)-hb(j)
p1 = ta(i)
IfThen i =i+1
If p1 >= tb (j) Then
p1 = tb(i)
j=j+1
End if
If n = 0 Or diff <> h(n) Then
n=n+1
h(n) = diff
t(n) = pl-p0
Else
End If
p0=pl
Loop
‘输出两城温差数据，代码略
End Sub
-
19、某校为学生期末考试分配考场，并编制准考证号。每个班级有班号，每位学生有班内序号，班内序号是按班级现有人数从1开始逐个编排的。准考证号格式为“入学年份+班号+班内序号”。每个考场有30个座位，座位号从1开始。连续分配座位的两个学生不属于同一个班级。
分配方法是：按考场号递增、同一考场座位号递增的顺序逐一分配座位。每次分配，先选班级，再选学生。选择班级时，在班级降序序列（按未分配人数）中选择第1个班级，但如果该班和前一次分配选定的班级相同，则改选第2个班级。选定班级后，再为该班耒分配学生中序号最大的学生分配考场座位，并维护班级降序序列（按未分配人数）。
编写VB程序，实现考场分配功能：在文本框Text1中填写入学年份，单击“读取”按钮Command1后，将各班数据按人数降序显示在列表框List1中，然后单击“分配”按钮Command2，在列表框List2中显示分配结果。程序运行界面如图所示。
请回答下列问题：
(1)、下列对象中，有 Caption属性的是（单选，填字母：A .Command 1 / B .Text 1/C .List 1）。(2)、实现考场分配功能的VB程序如下，请在划线处填入合适的代码。Dim n As Integer, y As String
Dim cla(1 To 20)As Integer, num(I To 20)As Integer
Dim room as Integer ‘存储考场号
Dim seat as Integer ‘存储座位号
Function fm(k As Integer) As String
‘返回整数k(l≤k≤99)对应的数字字符串，不足两位左侧补“0”，代码略
End function
Private Sub Command 1_ Click( )
‘从Text1中读取入学年份存入变量y，从数据库中读取该人学年份的班级数据
‘将班级个数存人变量n(1<n≤20)，各班班号和人数分别存人数组cla和num
‘各班班号均大于0，各班人数均未超过总人数的一半
‘将数组cla和num按班级人数降序排列后，显示在List l中，代码略
End Sub
Private Sub Command 2_ Click( )
Dim i As Integer, t As Integer, s As Integer
Dim choice As Integer, m As Integer, f As Boolean
room=1 : seat=1 : choice=0
Do While f = True
If cla (1) <> choice Then m= 1 Else m = 2
choice = cla(m)
‘在列表框List2中显示准考证号、考场号、座位号
List 2. Addltem y+fm(cla(m))+fm(num(m))+" "+fm(room)+" "+fm(seat)
seat = seat+ 1
If seat > 30 Then
seat = 1
End If
num(m)= num(m)-1
For i=To n-1 ‘维护班级降序序列(按未分配人数)
If num(i)< num(i + 1)Then
t=num(i) : num(i)=num(i+1) : num(i+1)=t
s = cla(i) : cla(i)= cla(i + 1) : cla(i+1)=s
Else
Exit For ‘ExitFor表示退出循环
End If
Next i
IfThen f = False
Loop
End Sub
(3)、程序中加框处代码有错，请改正。 -
20、小李使用Flash软件创作“花中君子”多媒体作品。请回答下列问题：(1)、作品的模块设计框架图如图a所示，将各功能模块和主交互界面都设计成独立场景。各功能模块的场景播放完成后自动停止，单击“返回”按钮，返回主交互界面。下列说法正确的是___________（多选，填字母）。
A、主交互界面中包含5个功能模块 B、主交互界面中按钮的应用体现了多媒体技术的交互性 C、各功能模块场景的最后一帧可添加帧动作脚本stop（）； D、各功能模块场景中“返回”按钮上可添加动作脚本on（ release）{gotoAndStop(1); }(2)、“竹之韵”场景的编辑界面如图b所示，“轻舟”图层中的小船是“舟”元件的实例。“舟”元件是在当前场景中通过绘制船形状并转换为图形元件后生成的，“舟”元件中的船是（选填：位图/矢量图）。若调整小船实例的大小，则“舟”元件（选填：会/不会）同步变化。
(3)、“轻舟”图层中实现了小船从起始位置1移动到终止位置2的动画，位置1、2及其坐标（X,Y）值如图b所示。下列关于小船动画的描述正确的是___________（多选，填字母）。A、测试场景时，小船沿水平方向匀速移动 B、小船动画的补间类型为“动画”，移动时间约为4.5秒 C、若将小船动画的缓动值调整为100，测试场景时，小船移动总时长将增加 D、若在当前图层第15帧插入关键帧，测试场景时，小船从第1帧到第15帧没有移动 E、若将小船起始坐标改为（150,200），测试场景时，小船移动将变快(4)、“文字”图层的第30帧和第36帧均为关键帧。测试场景时，为了使“文字”图层第31帧到第35帧中的内容完全消失，其他动画效果保持不变，应进行的操作是。