相关试卷
-
1、下列关于信息安全的说法，不正确的是（ ）A、由纯数字组合而成密码安全性相对较高 B、QQ好友发来的链接不一定是真实可信的 C、使用数据加密技术加密数据可以提高安全性 D、随意连接公共场所的WIFI存在安全风险
-
2、下列关于信息与信息技术的说法，正确的是（ ）A、未经证实的消息不是信息 B、计算机内部只能存储数字化后的信息 C、信息技术就是使用计算机处理各种信息的技术 D、人工智能技术能够帮助人们解决一切实际问题
-
3、某校举办技术学科统测，参加统测的每个学生有班级序号、姓名(字母缩写)和统测的技术成绩。现需整理统测数据，要求是:先按班级序号从小到大排列；然后，同一班级的学生按技术成绩从大到小排列。按上述要求，编写一个VB程序，功能如下：在列表框List中显示整理前的数据，单击“整理”按钮Commandl1，整理结果显示在列表框List2中，程序运行界面如图所示。
(1)、将数组元素d(1)到d(640)分为16段，如果每段恰好包含40个元素，采用选择法排序算法分别对每段中的元素进行排序，整个排序过程中，数组元素之间的比较次数是 (单选，填字母：A、640×639/2次/ B、16×40×39/2次/ C、40×16×15/2次)。(2)、请在划线处填入合适的代码。Const n＝640 '参加统测总学生数
Const nc ＝16 '班级数
Dim class(1 To n) As Integer， sname(1 To n)As String， score(1 To n) As Integer
Dim b( To nc) As Integer '存储每个班级的参加统测人数
Dim c(1 To nc) As Integer
Dim d(1 To n)As Integer
Private Sub Form_Load()
'本过程读取每个参加统测学生的班级序号、姓名和统测成绩分别存储在数组class,sname和 score中并在List1中显示，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To nc
b(i) = 0
Next i
For i = 1 To n '统计每个班级统测人数
Next i
k = 1
For i = 1 To nc
c(i) = k
k = k ＋ b(i)
Next i
For i = 1 To n
k = class (i)
c(k) = c(k) + 1
Next i
For i = 1 To nc '对各班级按统测成绩进行排序
Call px（），c(i)-1))
Next i
For i = 1 To n
List2.AddItem ＂ ＂ & class(d(i)) & ＂ ＂& sname (d(i)) & ＂ ＂ & score(d(i))
Next i
End Sub
Private Sub px(head As Integer, tail As Integer)
Dim i As Integer, j As Integer, t As Integer
For i = head To tail - 1
For j = tail To i + 1 Step -1
If Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
Next i
End Sub
-
4、小明在玩翻转棋盘的游戏，游戏规则是在一个4*4的棋盘中挑选棋子（棋子只有黑白两面，0表示白，1表示黑），对于每颗被挑选的棋子，要将该棋子和它在棋盘上的上下左右4个相邻位置上的棋子一起翻转，若某个方向上无棋子，则不作处理，最后使得棋盘纯色（纯白或纯黑）。
如上图所示的棋盘，需要选择第2行第2列、第4行第2列两颗棋子，按照规则进行翻转便可使得棋盘变为纯黑。现编写程序找出实现棋盘纯色所需翻转棋子次数最少的方案并输出所挑选棋子的个数，若无答案则输出“无法翻转为纯色”。
解决该问题的算法原理：棋盘翻转方案为0000000000000000~1111111111111111之间的某几种，即十进制数 0~65535，利用枚举算法在0~65535之间枚举，即可找到最优方案。假设被选翻转棋子状态用1表示被选中，0表示不选中。例如某方案的十进制为1028即 2^10+2^2，转化为一个16位的二进制串0000010000000100就表示该棋盘中的第2行第2列、第4行第2列这两个棋子及其上下左右被选中翻转，我们认为该方案选中两个棋子进行翻转。
程序运行界面如下图所示，请回答下列问题。
(1)、若某方案用十进制表示为100，则该方案总共选择了个棋子进行翻转。(2)、实现上述功能的程序代码如下，请将划线处的代码补充完整。'数组a储存棋盘原状态，数组b储存翻转后的棋盘状态
Dim a(1 To 16) As Integer, b(1 To 16) As Integer, minc As Long
Private Sub Form_Load()
'生成原始由0、1组成的棋盘状态，用数组 a(1)-a(16)保存，代码略
End Sub
Private Sub Command1_Click()
Dim k As Integer, c As Integer, i As Long, j As Long
minc = 100
For i = 0 To 65535
For j = 1 To 16 '初始化棋盘
b(j) = a(j)
Next j
k = 16: c = 0: j = i
Do While j > 0
If j Mod 2=1 Then
b(k) = 1 - b(k)
If k > 4 Then b(k - 4) = 1 - b(k - 4)
If Then b(k + 4) = 1 - b(k + 4)
If k Mod 4 <> 0 Then b(k + 1) = 1 - b(k + 1)
If k Mod 4 <> 1 Then b(k - 1) = 1 - b(k - 1)
c = c + 1
End If
k = k - 1
Loop
If
Then minc = cNext i
If minc = 100 Then Label1．Caption = "无法翻转为纯色!" Else Label1．Caption = "最少翻" + Str(minc) + "次"
End Sub
Function check() As Boolean '判断棋盘是否纯色
Dim flag As Boolean, i As Integer
flag = True
For i = 1 To 15
If Then flag = False: Exit For
Next i
check = flag
End Function
(3)、代码加框处有误，请改正。 -
5、小吴创作“热烈庆祝中国共产党成立100周年”的多媒体作品，其中“热烈庆祝中国共产党”这几个字为动态效果。她首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：(1)、小吴想用Photoshop软件打开如图a的jpg格式图片素材进行处理，得到图b的结果。在图a进行以下几个步骤的操作可以实现（多选，填字母：A .使用“矩形选区工具”选中图正中的直线，删除/B .使用“橡皮擦”工具擦除图中的直线/C .使用“裁剪工具”选中图中需要保留的部分，裁剪/ D .使用“矩形选区工具”选中图中需要的部分，反选后删除/E .使用“图像大小”功能适当减小图像像素，删除多余的内容）。
图a
图b
(2)、如图c，要使按钮图层的元件实例在40帧才出现，应该如何操作？
图c
(3)、“庆祝语”影片剪辑元件编辑界面如图d所示，该元件1-17帧实现“热烈庆祝中国共产党”逐字出现的文字动画，20-35帧实现飘带动画。若测试影片时该元件实例的文字动画仅播放一次，飘带动画不断重复播放，则如何实现？
图d
(4)、测试影片时出现如图e所示的错误提示，结合图c，判断动作脚本错误发生在图层，应该如何改正。
图e
-
6、下列VB程序段功能为:在降序排序数组a中(a(1)≥a(2)．．．．．≥a(n))，查找数据key，若能找到，则输出该数在数组a中第一次出现的位置，否则输出“找不到”。
i=1:j=n
Do While i<j
m=(i+j)\2
If ① Then
i=m+ 1
Else
②
End If
Loop
Ifa(i)=key Then Label1.Caption=Str(i) Else Label1.Caption="找不到"
上述程序段两个横线处的语句分别为（ ）
A、①key<a(m) ②j=m-1 B、①key>a(m) ②j=m C、①key<=a(m) ②j=m-1 D、①key>=a(m) ②j=m -
7、某程序段如下：
s = "happy": n = Len(s)
For i = 1 To n
x = Int(Rnd * n + 1)
c = Mid(s, x, 1)
If x Mod 2 = 0 Then
c = Chr((Asc(c) - Asc("a") + 1) Mod 26 + Asc("a"))
Else
c = Chr(Asc("a") + 25 - (Asc(c) - Asc("a")))
End If
s1 = c + s1
Next i
则运行本程序段后，变量s1的值不可能为（ ）
A、"bbkkq" B、"qbqsq" C、"kksqk" D、"gboqx" -
8、有n个整数存放在数组a中，整数k1与k2且k1<k2。某程序段如下：
i = 1: L = 0: R = n + 1
Do While i < R
If a(i) < k1 Then
L = L + 1
If L <> i Then tt = a(i): a(i) = a(L): a(L) = tt
i = i + 1
ElseIf a(i) > k2 Then
R = R - 1
tt = a(i): a(i) = a(R): a(R) = tt
Else
i = i + 1
End If
Loop
则执行上述代码后，下列说法正确的是（ ）
A、数组a变成升序排列 B、a(L)<=k1 C、a(R)>=k2 D、a数组中大于等于k1小于等于k2的元素个数为R-L-1 -
9、如下VB程序段:
k=0:n=Len(s)
For i = 1 To n\2
k = k+Abs(Asc(Mid(s,i,1)) - Asc(Mid(s,n-i+1,1)))
Next i
If k=0 Then flag=True
运行后该程序段后，变量flag的值为True，s的值可能的是（ ）
A、"appyappy" B、"12321" C、"Appa" D、"2021-2021" -
10、某算法的流程图如图所示，若输入s的值为字符串“Abc123456def”,执行这部分流程后，输出c的值是（ ）
A、Abcdef B、123456 C、123456def D、Abc123456def -
11、下列VB表达式值一定为True的是（ ）A、Mid(“True Or False”,1,4) B、Int(Rnd*100)>0 C、Len(“2021”) > Sqr(50) D、123 Mod 10 \ 2 <=10 \ 3
-
12、一段分辨率为1024×768、16位色、PAL制式（25帧/秒）的未经压缩AVI格式无声视频，其存储容量为1125MB，则该视频时长约为（ ）A、120秒 B、60秒 C、30 秒 D、12 秒
-
13、使用GoldWave软件编辑某音频文件，部分界面如图所示。下列说法正确的是（ ）
A、直接保存后声音文件的容量约为1.9MB B、执行“删除”命令后直接保存，文件容量变小 C、另存时将采样频率提高为48000Hz,声音品质明显提高 D、无法获取声音的量化位数，所以不能正确计算文件容量 -
14、用UltraEdit软件查看字符内码，部分界面如图所示。下列说法正确的是（ ）
A、共有5个ASCII字符 B、共有3个GB2312字符 C、是“3-2=1正确！”的内码 D、是“1+2=3正确？”的内码 -
15、为了防控“新冠”疫情，技术组开发了校园疫情系统，使用Access软件创建健康信息管理的数据库，其中“测温”表需要记录如下信息
序号
姓名
班级
测量时间
体温(℃)
是否去过高风险地区
1
张三
高一(3)
7:23
36.8
否
2
李四
高二(5)
7:31
36.9
否
…
…
…
…
…
…
下列描述正确的是（ ）
A、“校园疫情系统”是数据库管理系统 B、“测温”表只能有6个字段 C、记录“测温时间”信息字段类型可以“日期/时间” D、记录“是否去过高风险地区”信息的字段类型不可以设为“文本” -
16、下列关于网站与网页描述正确的是（ ）A、保存网页就是收藏网页地址 B、网页内容是用HTTP语言描述的 C、网站由若干静态或动态网页组成，网页之间可能通过超链接实现跳转 D、以“网页，仅 HTML”方式保存网页，可以保存网页中的超链接、表格和图片
-
17、下列关于信息的说法，正确的是（ ）A、信息要进行传递和共享，必须先进行数字化 B、信息的数字化过程就是采样、量化、编码的过程 C、信息本身是看不见摸不着的，所以不能用某种方式表现 D、信息的表达技术有电视、广播、网络、书籍、声音等
-
18、对n位二进制数进行海明码编码（n是8的倍数），以8位二进制数为一段，每段插入4位校验位，构成12位二进制数，依次处理，完成各段数据编码。
每段海明码编码方法如下：
插入二进制位：在第1、2、4、8位置上插入4个二进制位r1、r2、r3、r4，初值为0。把原8位二进制数d1~d8从左往右依次填入剩余位置中，原数据位和插入的二进制位如图a所示：
图a计算插入的校验位的值：把每个位置号转换成4位二进制数，选出形如“***1”（“*”表示一位0或1）的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r1为1，否则为0；再选出形如“**1*”的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r2为1，否则为0；以此类推……
如8位二进制数“10101101”的编码过程如下：
1）插入4个二进制位，初值为0，剩余位置依次填入原数据位，如图b所示。
图b2）计算插入的校验位的值，选出形如“***1”的位置号，即1、3、5、7、9、11，统计这些位置号对应数据位中“1”的个数为2，故r1=0，同理可得：r2=1，r3=0，r4=1，如图c所示。
图c3）按位置号从小到大依次拼接各数据位得到最后编码“011001011101”。
(1)、若要计算校验位r2的值，需统计位置号为的数据位中1的个数（依次填整数表示的位置号，用逗号分隔）。(2)、编写VB程序实现上述功能，代码如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, m As Integer
Dim s As String, ch As String, result As String
Dim a(1 To 12) As Integer, n(1 To 4) As Integer
Dim b(1 To 8) As Integer
b(1) = 3: b(2) = 5: b(3) = 6: b(4) = 7
b(5) = 9: b(6) = 10: b(7) = 11: b(8) = 12 '编码数据的插入位置
s = Text1．Text: result = ""
For i = 1 To Len(s) \ 8
For j = 1 To 12
a(j) = 0
Next j
For j = 1 To 8
ch = Mid(s, (i - 1) * 8 + j, 1)
'把编码数据插入相应位置
Next j
For j = 1 To 4
n(j) = 0
Next j
For j = 1 To 12
m = j
For k = 1 To 4
If m Mod 2 = 1 Then
m = m \ 2
Next k
Next j
For j = 1 To 4
a(2 ^ (j - 1)) =
Next j
For j = 1 To 12
result = result + Chr(Asc("0") + a(j))
Next j
Next i
Text2.Text = result
End Sub
-
19、某教室在上午8点到12点的时间段可以安排活动。为了安排尽可能多场次的活动，按以下方法安排：先安排结束时间早的活动；若有多个活动的结束时间相同，则优先安排占用时间少的活动。要求编写一个VB程序，实现上述功能。在文本框Text1中输入一批数据（数据都用逗号分隔并以逗号结尾），奇数位置数据表示某活动的起始时间，偶数位置数据表示该活动的结束时间，单击“确定”按钮Command1后，在列表框List1中显示各活动的起始和结束时间，在列表框List2中显示选择安排的活动。运行界面如图所示。
(1)、要清空Text1中的内容，可以把Text1对象的属性设置为空值。（单选，填字母：A . Caption / B . Text / C . Text．Clear）。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_Click()
Const n = 100
Dim ss As String, t As String, i As Integer
Dim k As Integer, p As Integer, temp As Integer
Dim s(1 To n) As Integer, f(1 To n) As Integer
Dim num(1 To n) As Integer, flag(1 To n) As Boolean
ss = Text1.Text
starttime = 480: endtime = 720 '教室可以安排活动时间为8:00到12:00
k = 0: p = 0
For i = 1 To Len(ss)
ch = Mid(ss, i, 1)
If ch <> "," Then
t = t + ch
Else
p = (k - 1) \ 2 + 1
If k Mod 2 = 1 Then s(p) = convert(t) Else f(p) = convert(t)
t = ""
End If
Next i
For i = 1 To p
num(i) = i
Next i
For i = 1 To p
List1.AddItem Str(num(i)) + " " + ff(s(i)) + " " + ff(f(i))
Next i
For i = 1 To p - 1
For j = p To i + 1 Step -1
If
Thentemp = num(j): num(j) = num(j - 1): num(j - 1) = temp
temp = s(j): s(j) = s(j - 1): s(j - 1) = temp
temp = f(j): f(j) = f(j - 1): f(j - 1) = temp
End If
Next j
Next i
For i = 1 To p
If s(i) >= starttime And f(i) <= endtime Then
flag(i) = True
End If
Next i
List2.AddItem "活动号 起始时间 结束时间"
For i = 1 To p
IfThen
List2.AddItem Str(num(i)) + " " + ff(s(i)) + " " + ff(f(i))
End If
Next i
End Sub
Function convert(s As String) As Integer
'把时间格式的s转换为整数，如"08:20"转化为500。代码略
End Function
Function ff(t As Integer) As String
'把整数t转换为时间格式，如500转化为"08:20"。代码略
End Function
(3)、程序加框处的代码有误，请改正。 -
20、使用Flash软件创作“党建”作品，编辑“片头”场景，部分界面如图所示。请回答下列问题：
(1)、在制作作品前进行多媒体作品设计，下列说法正确的有 (多选，填字母)。A、分析该作品的社会效益属于创作需求分析 B、分析创作该作品所需的硬件和软件属于应用需求分析 C、在结构设计阶段需确定作品的组成部分、工作流程和主要界面 D、在脚本编写阶段需确定各模块所需的媒体元素及获取、处理方法(2)、如上图所示，“军人”图层的第1帧到第20帧实现军人从完全透明到完全显示变化的效果，则该图层第1帧中实例的Alpha值为%。修改“军人”实例的Alpha值，则库中对应元件（填：会/不会）发生改变。(3)、在上图所示状态下，若要使“党徽”图层的补间动画推迟2秒出现，时长变为2秒且结束时间保持不变，则可行的操作是。(4)、测试影片时，单击当前场景中的“继续”按钮，跳转到“main”场景第1帧继续播放。以下脚本命令正确的是 （多选，填字母）。A、on (release) {play();} B、on (release) {play("main",1);} C、on (release) {gotoAndplay(1);} D、on (release) {gotoAndplay("main",1);}