相关试卷
-
1、小敏创作了一个“虎年大吉”的多媒体作品，她首先用Photoshop制作了一张背景图片，然后用Flash制作动画，请回答以下问题：
(1)、如图a所示，下列操作可行的是 (多选，填字母。)。A、直接为“壬寅年”图层设置“镜头光晕”滤镜 B、交换“老虎”图层和“壬寅年”图层位置 C、将“花朵”图层的图层样式复制到“背景”图层 D、利用“橡皮擦”工具擦除“2022”图层的内容 E、将“花朵”图层内容进行水平翻转(2)、动画制作的进间轴如图b所示：
“音乐”图层中的声音在动画开始播放约1秒后才开始播放，为使音乐从动画一开始即播放，可以执行的操作是 。
(3)、“灯笼”图层中的灯笼都是“灯笼”元件的实例，则“灯笼”图层的补间动画类型是(选填：形状补间动画/动画补间动画)；若修改“灯笼”元件的大小，则“灯笼”图层中的灯笼实例 (选填：会/不会)发生变化。(4)、该场景播放结束后画面停止，出现“跳转”按钮。单击“跳转”按钮，打开与本动画文件处于同一目录下的文件“新春快乐．jpg”，同时关闭动画文件，则“跳转”按钮上的脚本命令是。 -
2、某品牌公司统计商品年销售数据，并用Excel软件进行数据处理，部分数据如第13题图a所示。请回答下列问题：
(1)、图a中H2：K2单元格计算各销售渠道销售总额在2021年度总销售额中的占比，I2：K2的值是通过H2单元格自动填充得到，则H2单元格公式为。(提示：各销售渠道销售总额在2021年度总销售额中的占比=各销售渠道销售总额/2021年度总销售额* 100)
(2)、根据图a中的数据，制作了一张部分销售渠道2021年销售额走势图表，如图b所示，则制作该图表的数据区域是。
(3)、下列有关对图表和数据表操作描述，正确的是 (多选)。A、将H2：K2区域设置单元格数字格式保留3位小数，会影响第13题图b所示图表效果 B、为增加统计数据，在“月份”列后插入一列新数据，不影响原区域H2：K2所对应的新区域中的值 C、要对2021全年12个月数据按“品牌官网”销售额排序，可以仅选择B2：B14 区域进行排序 D、要筛选出电商平台和抖音直播间销售额均排在最高前三位的月份，可同时设置“电商平台”和“抖音直播间”列筛选条件为“最大的3项”得到 -
3、有如下对分查找VB程序段：
Key = Val(Text1. Text)
i= 1：j=10：c= 0
flag = True
Do While i<= j And flag
m= (i+j)\2
cnt=cnt+1
If a(m) = Key Then flag = False
If a(m) < Key Then
i=m+1
ElseIf flag Then
j =m-1
End If
Loop
Text2． Text = Str(cnt)
若数组元素a(1)~a(10)的值依次为“5，9，13，18，22，27，31，39，40，44" ，运行程序后，文本框Text2中显示的内容为3，则输人的key值不可能为（ ）
A、5 B、13 C、39 D、40 -
4、某加密算法为：从明文第一个字符开始，每间隔k个字符，将长度为k的字符串进行逆序换位加密，若剩余字符长度不满k则不进行位置变换。如： 明文为“IVeryLikeVB6．0”，k的值为3，则加密结果为“IVeLyrike6BV．0”。编写如下VB程序段实现该加密算法，则程序段中3个方框处的代码分别为：
s = Text1． Text
k = Val(Text2． Text)
i=1
count = 0
flag = False
Do While i<= Len(s)
count = count+1
If i+k- 1 <= Len(s) And flag Then
Else
ns= ns+ Mid(s，i，1)
i=i+1
End If
If count = k Then
count = 0
If flag = True Then
End If
Loop
Labell． Caption = ns
A、①ns=ns+Mid(s，i+k-count，1)②i=i+k③flag=Not flag B、①ns=ns+Mid(s，i+k-count，1)②i=i+1③flag=False C、①ns=ns十Mid(s，i+k-1，1)②i=i+k③flag=Not flag D、①ns=ns十Mid(s，i+k-1，1)②i=i+1③flag=False -
5、有如下VB程序段：
For i=1 To 3
k=i
For j=i+1 To 8
If a(j)<a(k) Then k=j
Next j
If k<> i Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
Next i
数组元素a(1)到a(8)的值依次为“8，13，20，2，11 ，30， 25，17”，下列说法不正确的是（ ）
A、执行该程序段后，数组元素a(1)到a(8)的值依次为2，8，11，13，20，30，25，17 B、每执行一次外循环，数组a元素都会进行多次位置交换 C、将代码“If k <> i”修改为“If k > i” ，不影响程序运行结果 D、执行该程序段后，变量k的值为5 -
6、有如下VB程序段：
s=1
a(1) = 1
For i=2 To 6
a(i) =2*i+a(i-1)
If I Mod 2=0 Then
a(i)=a(i)+1
End If
s= s+ a(i)
Next i
Text. Text = Str(s)
程序运行时，单击按钮Command1后，文本框Text1中显示的内容是（ ）
A、72 B、41 C、106 D、115 -
7、某算法的部分流程图如图所示。执行这部分流程，若依次输入x的值为6，10，15，20，28，则输出结果分别为（ ）
A、0，1，0，1，0 B、1，0，1，0，1 C、1，0，0，0，1 D、0，0，1，0，1 -
8、下列VB表达式中，计算结果与其他三项不同的是（ ）A、1+18Mod11\2 B、Val(Mid("20220101"，2，2))+(-1) *2 C、Asc("d")- Asc("a" )+ Int(Sqr(2)) D、-(7Mod3- 2-2)+ 1
-
9、一批未压缩的BMP格式图像，其参数如图所示。则容量为512MB的闪存盘可存储该批图像的张数约为（ ）
A、340 B、48 C、100 D、256 -
10、使用GoldWave软件编辑某音频文件，部分界面如第5题图所示。
下列说法正确的是（ ）
A、当前状态下，执行“删除”操作后，声音文件10~25秒将出现静音 B、执行“降低音量”操作后，声音文件的音质会明显下降 C、当前声音文件是经无损压缩后的wav格式 D、当前状态下，执行“剪裁”操作后，声音文件容量将变小 -
11、自然数n转换为8位二进制数，左侧第一-位数字为“1”且末尾为“0”。 下列说法正确的是（ ）A、二进制数去掉左侧第一位数后值变为 n\2 B、(n-1) Mod 2的结果一定是1 C、n转换为十六进制数值一定大于80H D、n的值可能大于255
-
12、某公司设计一工程管理系统时，使用Acess软件创建的数据表部分界面如图所示。
下列说法正确的是（ ）
A、该工程管理系统属于数据库管理系统 B、当前不能对“工程材料出人记录表”进行重命名操作 C、“2022- 1- 5”可作为“计划验收日期”字段的有效输入值 D、“项目序号”字段值可根据需要进行修改和调整 -
13、下列有关网页和浏览器的说法，正确的是（ ）A、常见的网页编辑的软件有记事本、FrontPage、Dreamweaver B、网页中的文本、图像和超链接等元素是用HTTP语言来描述的 C、将网页添加至浏览器收藏夹可以保存其中的文字、图片和超链接 D、访问网页时，浏览器与WEB服务器之间的信息通过SMTP协议进行传输
-
14、下列有关信息与信息技术的说法，不正确的是（ ）A、信息无处不在，并可以通过不同的载体进行传播和保存 B、监测得到气象信息，经计算机处理后给出天气预报，这体现了信息的可加工处理性 C、未经数字化处理的信息无法被计算机识别与存储 D、信息技术是依靠计算机对信息进行处理的一种技术手段
-
15、平面上有N(3≤N≤100)个房间围成一圈，按顺时针方向分别编号为1、2……N，相邻的两个房间之间均有一扇门，第i个房间居住人数为a(i)。初始时选择一个房间，将所有人都聚集在该房间，接着每个人都按顺时针方向走到相邻的房间，直到走到居住的房间。一个人每经过一扇门花费1能量，请确定初始房间，使得所有人花费的能量和最小。例如：N=5，a(1)=4，a(2)=7，a(3)=8，a(4)=6，a(5)=4
最佳方案：初始时所有人聚集在2号房间，花费的能量和：7? 0+8? 1+6? 2+4? 3+4? 4=48。为了解决这个问题，小明编写了一个VB程序。在窗体加载时，从数据库中读取N的值和编号为1到N的房间的居住人数，人数存储在数组a中。点击窗体上的按钮Command1，程序枚举每一种方案(不同的初始房间)，计算该方案的能量和，在文本框Text1中输出最优方案的初始房间编号，在文本框Text2中输出最小能量和。
实现上述功能的VB代码如下，请在划线处填入合适代码。
Dim a(1 To 100) As Integer '依次存储编号为1到100的房间居住人数
Private Sub Form_Load()
'本过程从数据库中读取N的值和每个房间居住人数，存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer，j As Integer，w As Integer，k as Integer
Dim t As Long，ans As Long
k=0：ans=32767 'ans 初始化为最大的Integer数据
For i=1 To n
t=0
For j=0 To n-1
w=
If w=0 Then w=n
t=
Next j
If t<ans Then
k=i
ans=t
End If
Next i
Text1.Text=Str(k) '起始房间编号
Text2.Text=
End Sub
-
16、有n个互不重复的数字，值的范围是[1，n]，分别保存在数组元素a(1)到a(n)中，如果数字i保存在a(i)，认为数字i在正确的位置上。若干个相互占用了位置的数字称为一组，一个在正确位置上的数字单独为一组，比如6个数字2，3，1，4，6，5分别保存在数组元素a(1)到a(6)中，则2、3、1为一组，4为一组，6、5为一组。该程序的功能为输出每组的情况。运行界面如下图：
(1)、数组元素a(1)到a(5)的值分别为2、5、3、1、4，这5个元素总共有组。(2)、请在划线处填入合适的代码。Const n=10
Dim a(1 To n) As Integer '保存原始数据
Dim b(1 To n) As Boolean '数组b用来标记相应的位置有没有找过
Private Sub Command1_Click()
Dim i As Integer, sum As Integer, total As Integer
sum=0：total=1 'total表示第几组
i=1
List2.Addltem ″第″+Str(total)+″组″
Do While sum<n
Do While Not b(i)
List2.Addltem a(i)
b(i)=True
sum=sum+1
Loop
If sum<n Then
List2.Addltem ″第″+Str(total)+″组″
i=1
Do While b(i) '该循环用来查找下一组的开始位置
i=i+1
Loop
End If
Loop
End Sub
Private Sub Form_Load()
Dim i As Integer
Randomize
For i=1 To n '产生n个不一样的整数，范围为[1，n]
a(i)=Int(Rnd* n)+1
Do While
a(i)=Int(Rnd*n)+1
Loop
Next i
For i=1 To n
List1.Addltem a(i)
b(i)=False
Next i
End Sub
Function f(x As Integer, y As Integer) As Boolean
'该函数的功能：判断x和数组a中前y个数有没有重复
Dim j As Integer
f=False
For j=1 To y
If a(j)=x Then f=True：Exit For
Next i
End Function
-
17、小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数(从1号位置开始)，报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号?
例如以6个同学编号为例，按1至2报数(从1号位置开始)依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表List1显示出列的顺序编号，文本框Text1中显示最后留下的编号，程序代码如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s，f，t As Integer
Dim a(1 To 400) As Boolean
For i=1 To 400
a(i)=False
Next i
s=0：f=0：i=0
Do While f<399
i=i+1
If i=401 Then i=
If a(i)=False Then s=s+1
If s=2 Then
List1.AddItem Str(i)
a(i)=True
f=
End If
Loop
For i=1 To 400
If Then Text1.Text=Str(i)
Next i
End Sub
-
18、单循环赛制是一种较为公平合理的比赛制度，比赛过程中所有参赛队伍均能相遇一次。其秩序编排可采用“逆时针轮转方法”：数字1~n依次作为队伍编号，把编号按U型走向分成均等两边(若n为奇数，则在末尾增加编号0，使总数为偶数)，即可得到第一轮的比赛秩序，例如，5个队伍的比赛编排情况如图a所示；第二轮，固定编号1，其余编号均按逆时针方向移动一个位置，即为该轮比赛秩序；以后各轮比赛秩序以此类推，与编号0对阵的表示本轮轮空。
现用VB程序实现上述功能：在文本框Text1中输入参赛队伍数n，单击“编排”按钮Command1，在列表
图a
图b
框List1中输出每轮比赛秩序。程序运行效果如图b所示。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click( )
Dim team(1 To 20) As String '存储各队伍编号
Dim n As Integer，c As Integer，result As String
Dim i As Integer，j As Integer，temp As String
n=Val(Text1.Text)
For i=1 To n
team(i)=Str(i)
Next i
c=n+n Mod 2 '变量c存储比赛编排的队伍总数
If c<>n Then team(c)=Str(0)
For i=1 To c-1
result=″ ″
For j=1 To c\2
result=result & team(j) & ″-″&
& ″；″ 'Next j
List1.AddItem ″第″ & Str(i) & ″ 轮″ & result
'固定编号1，其余队伍逆时针移动一个位置
temp=team(c)
For j=c To 2 Step -1
'Next j
team(2)=temp
Next i
End Sub
-
19、编写一个VB程序，将一个长度为n的有序序列a(1)、a(2)、……a(n)，以整数t(1≤t≤n)将该有序序列划分为两段，并将序列a的前t个数与后n-t个数对调，且保持这两段(t个数和n-t个数)之间的相对位置不变(即t个数和n-t个数各自有序)。例如，长度为6的有序序列38、42、59、61、69、78，当t=2时重排结果为59、61、69、78、38、42。程序运行时产生n个整数存储在数组a中，在文本框Text1中输入t，单击“对调”按钮Command1，在列表框List2输出t个数与n-t个数对调后的数字序列。为了实现上述功能，请在划线处填入合适的代码。
Const n=10
Dim a(1 To 10) As Integer
Private Sub Form_Load()
'生成n个有序数，显示在List1中，代码略
End Sub
Private Sub Command1_Click()
Dim t As Integer，i As Integer，j As Integer，temp As Integer
For i=t+1 To n
temp=a(i)
For j=i To i+1-t Step-1
Next j
a(j)=
Next i
For i=1 To n
List2.AddItem Str(a(i))
Next i
End Sub
-
20、利用VB程序将两组成绩数据合并为一组并按成绩从高到低排列输出。成绩相同时，第一批学生优先输出。实现上述功能的VB代码如下，但加框处代码有错，请改正：
Dim xm(1 to 1000) as string '存储学生姓名
Dim cj(1 to 1000) as integer '存储学生成绩
Private Sub Form_Load() '该处具体代码省略
'从数据库读取两批学生数据第1批学生的人数rs1，按成绩从高到低的顺序将成绩存入cj(1)、cj(2)…cj(rs1)中，姓名存入xm(1)、xm(2)…xm(rs1)中，第2批人数rs2，按成绩从高到低的顺序将成绩存入cj(rs1+1)、cj(rs1+2)…cj(rs1+rs2)中，姓名存入xm(rs1+1)、xm(rs1+2)…xm(rs1+rs2)中
End Sub
Private Sub Command1_Click()
i=1
j=rs1+1
'以下程序开始按成绩高低逐个输出，每次输出前后两段中，尚未处理的学生中成绩最高的n=1 '①
Do While i<=rs1 And j<=rs1+rs2 '两段都有未输出的情况，输出两段中最大值
n=n+1
If cj(i)>=cj(j) Then
k=i：i=i+1
Else
k=j： j=j+1
End If
List1.AddItem(″第″+Str(n)+″名″+xm(k)+″成绩：″+Str(cj(k)))
Loop
Do While i<=rs1 '剩下第一段还有未输出的，逐个输出
n=n+1
List1.AddItem(″第″+Str(n)+″名″+xm(i)+″成绩：″+Str(cj(i)))
i=i+1
Loop
Do While j<=rs2 '②若第二段还有未输出的，逐个输出
n=n+1
List1.AddItem(″第″+Str(n)+″名″+xm(j)+″成绩：″+Str(cj(j)))
j=j+1
Loop
End Sub
① ②