相关试卷
-
1、查找最短26个字母字符串：在文本框Text1中输入任意一串包含小写字母的字符串（长度n>=26），要求找到长度最小的一段区间，能够包含全部26个小写英文字母。小王设计了VB程序用于搜索最短字符串，单击“查找”按钮command1，若无解，则在标签Label1中输出“无解！”，反之程序在标签Label1中输出该最小区间的长度以及字符的开始位置，并在文本框Text2中输出相应的最短字符串，程序界面如图所示：
⑴确定初始右边界：从第1个字符开始，向右搜索到包含全部26个字母的子串，并因此而确定右边界，同时记录每个字母在子串中出现过的次数。
⑵调整子串左边界：若左边界有重复的字母则表明该子串可缩短，故左边可右移1位……直到找到一个符合条件的子串并记录，然后子串左边界再右移1位。
⑶调整子串右边界：子串右边界继续右移，在新子串符合条件后，记录并进行比较。
重复（2）各调整步骤，直至遍历完整个字符串，获得并输出满足条件的最小长度字符串。
实现上述功能的VB程序如下，请回答下列问题。
Const n = 300
Dim i As Integer, k As Integer, length As Integer, L As Integer
Dim pos As Integer, s1 As String, res As String
Dim f(1 To 26)As Integer '数组f记录每个小写英文字母的出现次数
Dim s(1 To n)As Integer '数组s记录每个输入字符在字母表中的位置
Private Sub Command1_Click()
res = ""
s1 = Text1.Text
For i = 1 To Len(s1)
s(i)= ①
Next i
k = 0: pos = 1: length = n
For i = 1 To 26
f(i)= 0
Next i
For i = 1 To Len(s1)
If f(s(i))= 0 Then k = k + 1
f(s(i))= f(s(i))+ 1 '调整右边界，直到达到26个字母
Do While ②
f(s(pos))= f(s(pos))- 1
If ③ Then
k = k - 1
If i - pos + 1 < length Then
length = i - pos + 1
res = Mid(s1, pos, length)
L = pos
End If
End If
pos = pos + 1
Loop
Next i
If res <> "" Then
Text2.Text = res
Label1.Caption = "最短长度:" + Str(length)+ "开始位置:" + Str(L)
Else
Label1.Caption = "无解!"
End If
End Sub
(1)、对于字符串“qbwcadsgeqbdatcy”，包括字母“abcde”的最短字符串长度为（填数字）。(2)、请在画线处填入合适的代码。① ② ③
-
2、在文本框中输入一串表示宾馆信息的二进制代码，不同的代码段用“|”分割，其中奇数段的代码为“宾馆的楼层、房号、朝向”（楼层用任意位二进制来描述，用4位二进制表示房号，用2位二进制表示朝向如“10110011100”其中“10110”表示楼层信息，“0111”表示房号信息，“00”表示房门朝向），偶数段表示该房间的是否住人（“0”表示空房，“1”表示入住），现将奇数代码段和偶数代码段分别存储在数组x(i)和y(i)中，并显示在列表框List1中，具体界面如下图所示∶
(1)、结合上述功能描述和下面的程序，“获取”按钮的名称是。(2)、实现上述功能的VB程序如下，请在横线处填入合适的代码。Private Sub GetInfo_Click()
Dim x(1 To 100) As String '存储读取的奇数段二进制
Dim y(1 To 100) As String '存储读取的偶数段二进制
Dim c As String
Dim n As Integer
Dim k As Integer
c = Text1.Text
n = Len(c): i = 1: k = 1: j = 1
v = ""
Do While i <= n
ch = Mid(c, i, 1)
If ch = "|" Then
If k Mod 2 = 1 Then
Else
y(k \ 2) = v
List1.AddItem x(k \ 2 + 1)+ " " + y(k \ 2)
End If
v = ""
k = k + 1
Else
End If
i = i + 1
Loop
End Sub
(3)、加框处的代码有误，请修改。 -
3、小明使用Flash软件制作主题为“抗击疫情”的多媒体作品，“主交互界面”场景如下图所示。请回答下列问题：
(1)、“标语”图层的第1帧至25帧的补间动画实现了由文字“中国加油！”渐变为“抗击疫情从我做起”的效果，则该补间类型为 (选填字母：A .动画补间/B .形状补间)。(2)、测试场景时，“人物”图层的第36帧至50帧的补间动画实现了人物自左向右平移，由完全透明到完全显示的动画效果，则“人物”图层的第50帧的alpha值是 ， 第50帧的实例位置与第36帧比较，x坐标轴的值（选填：增大/减小/不变）。(3)、“音乐”图层第1帧添加了音乐“bj.mp3”，测试场景时，小明 (选填字母：A .能B .不能)听见声音。(4)、要想按钮在最后一帧才出现，下列操作可行的是______________（多选，填字母）。A、将“按钮”图层中的第1帧移动至最后一帧 B、复制“按钮”图层的第1帧至最后一帧，再对第1帧执行“清除关键帧” C、对“按钮”图层的最后一帧执行“插入关键帧”，再删除第1帧中的内容 D、对“按钮”图层的最后一帧执行“插入关键帧”，再对第1帧执行“清除帧”(5)、测试影片时，单击“不信谣”按钮，跳转到“不信谣”场景第10帧继续播放，并打开位于同一目录下的“bxy.doc”文件，则“不信谣”按钮上添加的动作命令是 。 -
4、小董收集了某黄金首饰网店的销售数据，并用 Excel 软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、区域F3:F167的数据是通过公式计算得到的，在F3单元格中输入公式 ， 再使用自动填充功能完成区域F4:F167的计算。（提示：活动价格（元）=重量（克）×黄金单价（元/克）×活动折扣+加工费（元））
(2)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是。
图 b
(3)、结合图a和图b，下列说法正确的有 _____________（多选，填字母）。A、若不慎将K列删除，则F3单元格的显示结果是0.00 B、若将区域E3:E167的单元格格式设置为“数值”并保留 0位小数，“第一季度加工费”列的数值不变 C、若将区域A165:H167数据以“列D”为关键字进行升序排序，图表会随之改变 D、若将区域A2:H167以“品种”为手链进行筛选，再以“重量(克)”为关键字降序排序，选取排在最前面的首饰一定是最贵的手链 -
5、给定一个n正整数（n<=20），根据设定的保留位数，舍去一部分数字，剩下的数字按原次序组成一个最大的新数。例如原数36835132，保留4位，最大数为6532。在文本框Text1输入原数，文本框Text2中输入保留的位数，文本框Text3中输出删除后的最大数。实现上述功能的部分VB代码如下∶
Dim a(1 To 20)As String, ys As String, xs As String
Dim k As Integer, h As Integer, n As Integer, i As Integer, j As Integer
ys=Text1.Text: k=Val(Text2.Text)
n=Len(ys):h=1
For i=1 To n
a(i)=mid(ys,i,1)
Next i
For i=1 To k
For j = h To
If a(j) > a(h) Then
Next j
xs=xs + a(h)
h=h + 1
Next i
Text3.Text=xs
上述程序中方框处可选语句为
①n-k+i ②i+k ③n-k+1 ④j=h ⑤h=j
则方框处语句依次是（ ）
A、③⑤ B、①⑤ C、①④ D、②⑤ -
6、有如下 VB程序段∶
Dim a(1 to 6) As Integer, i As Integer
For i=1 To 6
a(i)=Int（Rnd*4）*2+1
If i Mod 2=1 Then a(i)=a(i) * 2 Else a(i)=a(i)+a(i-1)
Next i
最终a数组各元素的值可能是（ ）
A、10，11，6，7，14，17 B、6，5，2，9，10，17 C、2，9，14，17，5，7 D、6，11，10，23，4，9 -
7、有一编码规则如下：
明文∶a b c……x y z
密文∶C D E……Z A B
已知变量ym是明文中的一个小写字母，则生成对应密文字母的表达式为（ ）
A、Chr(Asc(ym)-32+2) B、Chr(65+Asc(ym)-Asc("a")+2) C、Chr(65＋(Asc(ym)-Asc("a")+2) Mod 26) D、Chr(Asc(ym)+(Asc(ym)-Asc("a")+2) Mod 26) -
8、某算法的部分流程图如图所示。执行这部分流程，若输入s的值为“WZ2021-3-26”，则输出 sum的值为（ ）
A、0 B、2021 C、2024 D、2050 -
9、VB 表达式Int(Rnd*100) Mod 13\2*2的值可能是（ ）A、2 B、3 C、6 D、12
-
10、使用Photoshop软件制作“小龙虾”作品，部分界面如图所示。下列说法正确的是（ ）
A、可将“图片”图层的图层样式拷贝到“麻辣”图层 B、“背景”图层处于锁定状态，则该图层不能被删除 C、选择“小龙虾”图层后，使用“文字工具”可改变该图层字体的大小 D、将作品存储为jpg格式文件，该jpg文件的存储容量是 2.25MB -
11、使用 GoldWave 软件编辑某音频文件，部分界面如图所示。下列说法正确的是（ ）
A、在当前状态下执行“删除”和“静音”，最后的音效一样 B、在当前状态下执行“剪裁”后直接保存，音频的时长不变 C、通过“插入静音”操作插入2秒静音后，按原参数保存，文件容量不变 D、该音频文件每秒钟采样44100个采样点，每个采样点需要16字节进行存储 -
12、将一段分辨率为1024×768像素、24位真彩色、PAL制式的未经压缩无声视频，压缩为MP4格式，压缩比为100：1，则该视频压缩后每秒钟播放的数据量约为（ ）A、16.8MB B、14MB C、4.5MB D、0.56MB
-
13、如图所示，用黑色代表“1”，白色代表“0”，每行表示一个二进制数，如第 3 行表示的二进制数为 0010100，则（ ）
A、所有行表示的二进制数之和转化为十进制数为 254 B、前 4 行表示的二进制数之和转化为十进制数为 127 C、第 7 行和第 6 行表示的二进制数之差转化为十进制数为 33 D、前 4 行表示的二进制数之和减去后三行表示的二进制数之和的值为 1 -
14、用Access软件设计家电销售系统的数据库，其中已建好的“家电库存”数据表用于存储如图所示的数据。
序号
库存编号
类别
库存数量
零售价
入库时间
盈利情况
1
cWJDO01
家电
78
265元
2021年2月10日
正利润
2
SHDQ001
生活电器
121
868元
2021年3月12日
负利润
3
SHDQ002
生活电器
98
322元
2021年3月12日
零利润
…
…
…
…
…
…
…
下列相关描述，正确的是（ ）
A、可以在该数据表的第1条记录前插入一条记录 B、图中“盈利情况”列在该数据表中相应字段的类型可以设置为“是/否” C、图中“库存编号”列在该数据表中相应字段可以设置为主键 D、该数据表中可有两个字段名都为“kc”的字段，分别存储图中任意两列的数据 -
15、以下属于人工智能应用的是（ ）
①通过刷脸完成支付宝的验证登录②使用在线二维码生成器制作二维码③通过“拍照识花”APP了解花卉信息 ④通过语音命令“天猫精灵”打开电视机 ⑤通过微信发送语音消息
A、①③④⑤ B、①②③④ C、①③⑤ D、①③④ -
16、果农们为推销自己种植的水果，开通了微信公众号发布销售信息，下面说法不正确的是（ ）A、在信息的传递过程中，其载体是可以变化的 B、通过手机扫二维码关注公众号的过程，属于信息的编码过程 C、网民们通过微信公众号了解水果的销售信息，体现了信息的共享 D、在公众号的某篇文章下获得了258个赞，这属于信息的统计评价
-
17、某密文是由一串数字加密得到，其解密规则是：①对连续重复的大写字母，仅保留1个；②在去重后的文本中，从首字符开始间隔5个字符取1个，依次连接取出的字符，即为明文。
编写解密的VB程序，功能如下：在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中显示去重后的文本，并在标签Label1中显示明文。程序运行界面如图所示。
(1)、命令按钮Command1上显示的“解密”文字，是通过修改该按钮的（单选，填字母：A .Font/ B .Caption/ C .BackColor）属性实现的。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1Click( )
Dim s1 As String, s2 As String, c As String, mw As String
Dim i As Integer
s1= Text1.Text
s2 = Mid（s1, 1, 1）
For i=2 To
c=Mid（s1, i, 1）
If c>="A" And c<= "Z" Then
IfThen s2 =s2 +c
Else
s2 =s2+c
End If
Next i
mw=“”
i=6
Do While i<= Len（s2）
mw = mw + Mid(s2, i, 1)
Loop
Text2. Text= s2
Label1. Caption =mw
End Sub
-
18、使用Flash软件创作“君子四艺”作品，其中“围棋”场景的制作脚本如下表所示。
场景名：围棋
类别序号：2
进入方式：来自“片头”场景，通过“围棋”按钮进入
呈现方式：
①云在舞台上方持续移动。
②一枚黑色棋子在舞台左侧由小变大，再渐变成“围棋”二字，然后持续显示至最后。
③人物在舞台右侧从完全透明到完全显示，时长1秒。
④“规则”按钮位于舞台右下角，单击该按钮跳转到“规则”场景第1帧并开始播放。
（其他略）
呈现顺序：
①开始时出现背景图片、云动画、文字动画和背景音乐。
②3.5秒时开始出现人物动画。
③最后出现“规则”按钮，并停止场景播放，背景音乐不停止。
(1)、分析制作脚本，下列说法正确的有 （多选，填字母）。A、该作品至少需要3个场景 B、开始时背景音乐和人物动画均需出现 C、云的动画效果可以通过编辑元件实现 D、当前场景的最后1帧需要添加动作脚本 E、背景音乐同步方式需要设置为“数据流”(2)、根据上述脚本，在Flash软件中编辑“围棋”场景，部分界面如图所示。
“文字”图层的第11帧至21帧的补间动画实现了由棋子渐变为“围棋”二字的效果，则该补间类型为（选填：动画/形状）。
(3)、测试影片，为了使“人物”图层中的动画起止时间符合脚本要求（从3.5秒时开始到4.5秒时结束），正确的操作是。(4)、根据制作脚本，“规则”按钮上的动作脚本为。(5)、若使该作品发布后有交互功能，则发布的格式是 （单选，填字母）。A、Flash影片（*，swf） B、GIF动画（*.gif） C、Windows AVI（*.avi） -
19、Private Sub Command1_Click( )
Dim a AsString
Dim c AsString
a = “lianshizhongxue”
c = Mid (a , Len( a) \2 +1, 8)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是（ ）
A、”lianshi” B、”zhongxue” C、lianshi D、zhongxue -
20、模拟剪刀石头布的游戏，骰子是一个正六面体，用1~3这3个数分别代表剪刀、石头、布这三种情况，使用RND随机函数可以表示为（ ）A、INT（RND（3）+1） B、INT（RND*2+1） C、INT（RND（2）+1） D、INT（RND*3+1）