相关试卷
-
1、今年卢旺达驻华大使直播带货火爆，代言数千斤咖啡豆，上架秒空。这主要是哪种技术带来的变化( )。A、种植技术 B、现代信息技术 C、生物技术 D、识别技术
-
2、中国古代四大发明中的造纸术和印刷术是( )信息技术革命的标志。A、第一次 B、第二次 C、第三次 D、第四次
-
3、某会务组根据参会者提交的入住宾馆和到达指定上车点时间的信息，安排车辆接送参会者去宾馆。不同宾馆的参会者分开接送，同一宾馆的参会者可同乘一辆车，每辆车最多接送v人，每个参会者的等待时间都不超过w分钟。参会者人住的宾馆和到达上车点的时间用长度为7的字符串表示，例如“A-09：15”表示参会者当天入住A宾馆，9点15分到达上车点，如果w为10，那么该参会者最晚9点25分出发：去宾馆。
编写VB程序，统计接送n个参会者所需的最少车辆数。运行程序，列表框List1中按入住宾馆分组显示所有参会者提交的信息，同一宾馆的按时间先后排列。单击“统计”按钮Command1，在文本框Text1中显示所需的最少车辆数。程序运行界面如图所示。
(1)、如图所示，如果每辆车最多接送4人，每个参会者的等待时间不超过10分钟，接送所有到A宾馆的参会者最少需要辆车。(2)、实现上述功能的部分VB程序如下，请在划线处填入合适的代码。'n、v、w是常量
'n为参会人数，v为每辆车最多接送人数，w为参会者最长的等待时间，代码略
Private Sub Form_ Load()
'读取n个参会者提交的信息，依次存入a(1)~a(n)
'将a(1)~a(n)接入住宾馆分组，同一宾馆参会者按时间先后排序
'并在List1中显示，代码略
End Sub
Private Sub Commandl_Click()
Dim i As Integerj As Integer, sum As Integer
a(n+1)=" "
j=1： sum = 0
For i-2 To n+ 1
If Mid(a(i), 1, 1)< Mid(a(j),1,1)Then
j=i
End If
Next i
Text1. Text = Str(sum)
End Sub
Function getDif(tsl As String， ts2 As String) As Integer
'返回ts1到ts2的时长(单位：分钟)，代码略
'例如ts1为"08：30"，ts2 为"08：35"，则返回的函数值为5
End Function
Function getCnt(first As Integer, last As Integer) As Integer
Dim s1 As String, s2 As String
Dim iAs Integer, p As Integer, k As Integer,t As Integer
p= first：k= 1
s1 = Mid(a(first), 3, 5)
For i= first+1 To last
s2 = Mid(a(i), 3, 5)
t= getDif(s1, s2)
If Then
k=k+1
p=i
End If
Next i
getCnt= k
End Function
-
4、某校以投票方式评选优秀作品，每张选票仅填一个作品编号，得票数过半的获最具人气奖。小李和小王收集了全部选票，其中小李已将收集的选票按作品编号非降序排序，小王收集的选票未排序。现要求将全部选票按作品编号非降序排序，找出获最具人气奖的作品编号。
编写VB程序，实现上述功能。运行程序，在列表框List1中显示全部选票，小李收集的选票在前，小王收集的选票在后。单击“分析”按钮Command1，在列表框List2中按作品编号非降序显示全部选票，在文本框Text1中显示最具人气奖的作品编号。程序运行界面如图所示。
(1)、类生成的对象没有Caption属性(单选，填字母： A . Label 1 /B . ListBox 1/C . CommandButton)。(2)、实现上述功能的部分VB程序如下，请在划线处填入合适的代码。'm和n是常量，代码略
Dim a(l To n) As String，c(1 To n) As String
Private Sub Form_ Load( )
'将n张选票的作品编号存入数组a，在List1中显示，代码略
'a(1)~ a(m)、a(m+1)~ a(n)分别为小李和小王收集选票的作品编号
End Sub
Private Sub Command1_ Click()
Dim iAs Integer， j As Integer， k As Integer， t As String
For i=m+ 1To n-1
For j=n- 1 To i Step-1
If a(k) < a(i) Then t= a(j)： a(j)= a(k)： a(k)=t
Next j
Next i
i= 1
For k=1 To n
If j> n Then
c(k)=a(i)i=i+1
Elself Then
c(k)=a(i)ti=i+ I
Else
c(k)=a()：j=j+ 1
End If
List2. Addtem c(k)
Next k
Text1.Text = "无"
For i=
If c(i)=c(i+n \ 2) Then
Text1.Text = c(i)： Exit For 'Exit For表示退出循环
End If
Next i
End Sub
(3)、程序中加框处代码有错，请改正。 -
5、小李制作主题为“科学防疫”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：(1)、如图a所示，在当前状态下，执行下列操作，再储存为“人物．png”文件，能得到背景透明的人物图像文件的有 。(多选，填字母)。
A、用橡皮擦工具擦除人物之外的区域 B、用魔棒工具选取人物之外的区域后删除 C、用磁性套索工具选取人物区域后执行“拷贝”、“粘贴”操作，冉删除“背景”图层 D、复制“背景”图层得到新图层，选取并删除新图层中人物之外的区域，再隐藏“背景”图层(2)、制作动画作品的部分界面如图b所示，“按钮”图层中的“勤洗手”按钮是由“洗手”按钮元件创建的实例。测试影片，鼠标悬停在“勤洗手”按钮上时，按钮中出现循环播放的洗手动画，由此可见，在“洗手”按钮元件的(选填：弹起1指针经过1按下)帧中添加了(选填：位图1影片剪辑)实例。
(3)、当前场景中“人物”图层的第40帧与第35帧的内容相同，要使第40帧开始的补间动画提前至第35帧开始，结束帧不变，则在“人物”图层应进行的操作是 。(4)、测试场景，动画播放5秒后“音乐”图层的声音仍在播放，若要使当前场景播放到最后一帧时该声音停止，则下列方法可行的有 (多选，填字母)。A、在“音乐”图层第1帧添加动作脚本stopAllSounds(60)； B、在“音乐”图层第60帧插入关键帧，并在该帧添加动作脚本stopAllSounds()； C、在“按钮”图层第60帧添加动作脚本on(press){stopAllSounds()，} D、在“病毒”图层第60帧添加动作脚本stopAllSounds()； E、在“人物”图层第60帧添加动作脚本stop)； -
6、小王收集了2011~2020年我国电力行业发展的部分数据，并使用Excel软件对数据进行处理，如图a所示。
请回答下列问题：
(1)、利用M4单元格中的公式通过自动填充功能完成区域M5：M12的计算，如果继续填充到MI3单元格，则M13单元格中显示为。(单选，填字母： A . 0/B . #VALUE！ 1/C . #DIV/0！)(2)、区域L4：L13的数据是通过公式计算得到的，在L4单元格中输入公式 ， 再使用自动填充功能完成区域L5：L13的计算。(3)、为了反映2011~2019年我国电力行业五类发电投资变化储况，根据图a中的数据创作的图表如图b所示。综合图a和图b，下列说法正确的有 (多选，填字母)。
A、创建该图表的数据区域为A4：A12，G4：K12 B、2011~2019年间五类发电中投资最少的是太阳能发电。 C、对图a中数据按年份进行降序排序后，图表会随之发生变化。 D、对图a中数据按太阳能发电量大于200进行筛选后，图表会随之发生变化。 -
7、某对分查找算法的VB程序段如下：
key = Val(Text1．Text)
s="" ：i=1；j= 10
Do While i<=j
m=(i+j)\2
If a(m)= key Then Exit Do 'Exit Do表示退出循环
If key < a(m) Then
j=m-1：s=s+"L"
Else
i=m+1 ：s=s+ "R"
End If
Loop
按非降序排序的整型数组a(1)到a( 10)的值依次为“11，23，31，39，44，52，60，x，69，89”。在文本框Text1中输入66，执行该程序段后s值为“RRL”，则x的可能值的个数为( )
A、3 B、4 C、5 D、6 -
8、有如下VB程序段：
k=1 ：ch= Mid(s， 1，1)
For i=2 To Len(s)
If k=0 Then
ch = Mid(s，i，1)：k= 1
Else
If ch = Mid(s，i，1) Then
k=k+1
Else
k=k-1
End If
Next i
变量s分别取下列值并运行程序段后，ch的值不为"Q"的是（ ）
A、"QQTQT" B、"TQTTQ" C、"QTRTQ" D、"RTTQQ" -
9、 ， 其中n为正整数，计算s值的VB程序段如下：
s=1：i=1：t=1
Do While i<2*n-1
Loop
方框中的代码由以下三部分组成：
①s=s+t
②i=i+2
③t= -t/(i*(i- 1))
下列选项中，代码顺序正确的是( )
A、③①② B、①②③ C、②①③ D、②③① -
10、现有三个整数序列：“1，2，3，4，5，”“7，1，6，8，3”、“9，8，7，6，5”。用选择排序算法分别对三个序列进行升序排列，比较次数依次为x、y、z，则下列关系正确的是( )A、x=y=z B、x>y>z C、y>z>x D、z>y>x
-
11、某算法的部分流程图如图所示，执行这部分流程，若输入m的值为20，n的值为3，则输出c的值是( )
A、18 B、28 C、29 D、47 -
12、下列VB表达式中，值为False的是( )A、"20"< "8" ！ B、20\6 < 20/6 C、Int(2.5)<2.1 D、18 Mod 5<20 Mod 5
-
13、一个时长为12秒、500×400像素、24位真彩色、20帧/秒的未经压缩的AVI格式无声视频文件，压缩为MP4格式后的文件大小约为1.22MB，则其压缩比约为( )A、9：1 B、23：1 C、113：1 D、901：1
-
14、使用GoldWave软件录制并编辑某音频文件部分界面如图所示。
下列说法正确的是（ ）
A、该音频的录制过程主要是声音信号的数字化过程 B、该音频每秒钟采样705次，共采样705×3次 C、该音频的量化位数为16bit，最多可有16个不同的量化值 D、将选中部分设为静音后保存，则该音频文件的时长变为2秒 -
15、现有如下“办公用品入库单”，其中物资编号的第一位表示物资 类别。为了存储该入库单中数据，小明使用Access软件设计“物资入库"数据表，如图所示。
办公用品入库单
物资编号
物资名称
单位
单价
入库数量
入库日期
审核
105201
铅笔
支
￥0.80
500
2021/6/21
已审核
105202
钢笔
支
￥75.00
100
2021/6/21
未审核
305203
美工刀
把
￥5.00
160
2021/6/21
已审核
405204
橡皮
块
￥2.00
200
2021/6/21
已审核
下列关于“物资入库”数据表的描述，正确的是（ ）
A、“WZBH”字段满足存储“物资编号”列数据的需求 B、不同记录的“RKRQ”字段值的格式可以不同 C、“SH”字段值可以是“己审核”或“未审核” D、“物资入库”数据表保存后，字段名称仍可以修改 -
16、使用UItraEdit软件查看字符内码部分界面如图所示。
下列说法正确的是（ ）
A、字符“H”的十六进制内码值是4CH B、字符“J”内码值的二进制表示为01001010B C、“冬奥会@”这些字符的内码共8个字节 D、字符“2”内码值的十进制表示为2 -
17、下列应用中不能体现人工智能技术的是（ ）A、电子支付系统通过扫描二维码收付款 B、机器翻译实现不同语言之间的翻译 C、手写输入系统将手写内容识别为文本 D、语音输入系统辨识不同用户的发音
-
18、从信息与信息处理的角度分析中国空间站的“天宫课堂”授课活动，下列描述不正确的是（ ）A、“天宫课堂"与地面之间的信息传输离不开载体 B、“天宫课堂”被广泛关注和学习，体现了信息的共享性 C、“天宫课堂”航天员与学生互动交流的信息没有经过数字化处理 D、“天宫课堂”视频回放体现了信息存储和传播可以脱离其反映的事物
-
19、模拟某新型病毒传播的过程，已知有n*n个格子（1<=n<=10），某天其中某些格子由于不知名原因感染了病毒，开始影响周围的格子。传染原理如图a所示：
某3行3列的格子初始状态如图a所示，1表示异常（由于不知名原因感染了病毒且具有传染性），0表示正常。除了边上一圈的格子，每个格子周围有8个格子，第一天某正常格子周围超过半数格子异常，则该格子第二天就会变异常，并且带有传染性。传染过程如图b所示，矩阵中1、2、3、4分别表示该格子第1天、第2天、第3天、第4天被感染，0表示未被感染。可以看出该矩阵格子第4天全部被感染。
编写VB程序，运行程序后，在Text1中输入矩阵规模（不超过10），单击“初始化”命令按钮，在List1中输出第一天所有格子的状态，单击“传播”命令按钮，在List2中输出所有格子的最终状态，并在Label2中输出第几天全部被感染或者“不会被全部感染”。
程序运行界面如图c所示。
(1)、已知第一天所有格子状态如图d所示，则第天所有格子全部被感染。
(2)、实现上述功能程序代码如下，完善划线处语句。Dim a(1 To 100) As Integer '存放格子状态
Dim b(1 To 100) As Integer '辅助作用
Dim zc(1 To 10000) As Integer '记录每一天的正常格子数
Dim n As Integer '存放矩阵规模
Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As String
List1.Clear
n = Val(Text1.Text)
For i = 1 To n
s = ""
For j = 1 To n
a((i - 1) * n + j) = Int(Rnd() * 2)
s = s + Str(a((i - 1) * n + j))
If a((i - 1) * n + j) = 0 Then
Next j
List1.AddItem s
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, tian As Integer, flag As Boolean
List2.Clear
'下面代码实现病毒传染过程
tian = 1: flag = False
Do While zc(tian) > 0
tian = tian + 1
For i = 1 To n * n
If a(i) = 0 Then
If Then b(i) = tian
Else
b(i) = a(i)
End If
Next i
For i = 1 To n * n
If b(i) = 0 Then zc(tian) = zc(tian) + 1
a(i) = b(i)
Next i
If Then flag = True: Exit Do
Loop
'在List2中输出所有格子的最终状态，代码略。
If flag Then
Label2.Caption = "不会被全部感染"
Else
Label2.Caption = "第" + Str(tian) + "天全部被感染"
End If
End Sub
'Judge函数用来判断第i行第j列的格子周围的异常格子数是否超过半数，超过半数返回True
Function Judge(i As Integer, j As Integer) As Boolean
'代码略
End Function
-
20、疫情期间，教师回校在教师宿舍隔离上网课，后勤人员连续一周轮流给教师送三餐。本校后勤人员共25人，每天安排2个人一起送餐，要求其中一名必须是年龄在40岁以下（包括40岁）的男后勤工作人员（本校符合该条件的后勤人员超过7个），另一名按如下规则进行安排：优先安排年轻的工作人员配送。每人最多安排一天的配送工作。
编写VB程序，根据后勤人员信息安排一周每天的送餐人。运行程序，在列表框List1中输出学校每个后勤人员的基本信息，单击“安排”命令按钮Command1，在列表框List2中显示每天的送餐人编号（编号是01,02,03,04，……，24,25）。程序运行界面如图a所示。
图a
请回答下列问题：
(1)、要使程序运行时自动将窗体标题改为"三餐配送安排"，则语句Form1.Caption="三餐配送安排"应放在（单选，填字母：A .Form1_Load() / B .Form_Load() / C .Form1_Click() / D .Form_Click()）事件处理过程中。(2)、实现上述功能程序代码如下，完善划线处语句。Dim num As Integer, bh(1 To 25) As String, xm(1 To 25) As String
Dim xb(1 To 25) As String, age(1 To 25) As Integer
Dim flag(1 To 25) As Boolean '表示相应的员工是否已经被安排过配送任务
Dim zudui(1 To 7) As String '表示每天的配送人员组合
Private Sub Form_Load()
'从数据库中获取本校后勤人员所有信息，将编号、姓名、性别、年龄分别存入数组bh、xm、xb、age中，总人数在num变量中。并在list1中输出后勤人员信息。代码略。
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, Dim k As Integer, t1 As String, t2 As Integer
k = 1
For i = 1 To num
If xb(i) = "男" And age(i) <= 40 Then
zudui(k) = bh(i)
flag(Val(bh(i))) = True
k = k + 1
If Then Exit For
End If
Next i
For i = 1 To 7
k = i
For j = i + 1 To num
If flag(j) = False Then
If
Then k = jEnd If
Next j
If k <> i Then
t1 = bh(k): bh(k) = bh(i): bh(i) = t1
t1 = xm(k): xm(k) = xm(i): xm(i) = t1
t1 = xb(k): xb(k) = xb(i): xb(i) = t1
t2 = age(k): age(k) = age(i): age(i) = t2
End If
zudui(i) = zudui(i) + bh(i)
List2.AddItem "第" + Str(i) + "天：" + Mid(zudui(i), 1, 2) + " " +
Next i
End Sub
(3)、程序加框处代码有问题，请修改。