相关试卷
-
1、小美在研究自定义货币系统，她想知道和自己定义的任意货币系统等价，同时面额种数最少的货币系统中有多少种面额。例如，和{3,6,10,19}等价的货币系统中，面额种数最少的是{3,10}，即可用{3,10}表示{3,6,10,19}中的任意数。
在寻找等价货币系统时，小美发现了如下规律：
1）与给定货币系统等价的货币系统必定是该货币系统的子集；
2）如果货币系统中的某个面额可以被其他货币表示时，该面额是无效的；
为此，小美按照如下方法构造最小等价货币系统B：先将原货币系统A的所有面额升序排序，每次把A中可以被B中的货币表示的面额删去后，将A中的最小面额放入B中。以此类推。基于此方法，小美编写了如下程序，在文本框Text1中输入给定的货币系统，单击按钮Command1后，在标签Label1中输出与其等价的货币系统的最小面额种数，在标签Label2中输出该货币系统。程序运行界面如图所示。
(1)、若给定货币系统为{4,6,8,14,22}，则与其等价的面额种数最少的货币系统为。(2)、按此要求编写的程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim s As String, tmp As String, c As String
Dim n As Integer, i As Integer, j As Integer, ans As Integer
Dim a(1 To 100) As Integer, b(1 To 10000) As Boolean
'数组b(i)用于表示值i能否用已经放入新货币系统中的面额来表示
'此段程序用于将给定货币系统存储在a数组中并将其元素个数存储在变量n中
s = Text1.Text
tmp = "": n = 0
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
ElseIf tmp <> "" Then
n = n + 1
a(n) = Val(tmp)
tmp = ""
End If
Next i
For i = 1 To n - 1
For j = n To i + 1 Step -1
If Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
Next i
ans = 0: s = "{"
For i = 1 To a(n)
b(i) = False
Next i
For i = 1 To n
If Not b(a(i)) Then
ans = ans + 1
If ans <> 1 Then s = s + ","
s = s + CStr(a(i)) 'Cstr函数用于将数值变量转为字符串变量并去除首位空格
For j = a(i) + 1 To a(n)
If b(j - a(i))= True Then b(j) = True
Next j
End If
Next i
s = s + "}"
Label1.Caption = "与之等价的最小货币系统面额种数为" + Str(ans)
Label2.Caption = "其为" + s
End Sub
-
2、编写一个VB程序，实现程序功能如下：打开程序时，随机产生10个两位正整数存入数组a中，并在列表框List1中显示。单击“排序”按钮Command1后，在列表框List2中显示左右交替上升序列，程序运行界面如下图所示。排序方法：使用选择排序算法将数组改造成左右交替上升序列，即将最小值放在最左端，第2小值放在最右端；再将第3小值放到左端，第4小值放到右端。以此类推，直到形成左右交替上升序列。例如将数组a = (4,8,2,9,3,6,1,7,5,10)，排序成a = (1,3,5,7,9,10,8,6,4,2)。
(1)、该程序界面中有几类对象：（填数字）(2)、实现上述功能的VB程序如下，请在划线处填上合适的代码。Const n = 10
Dim a(1 To n) As Integer
Private Sub Form_Load()
For i = 1 To n
a(i) = ‘产生两位随机正整数
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, pos1 As Integer, pos2 As Integer, t As Integer
p = 1: q = n
Do While
If a(p) <= a(p + 1) Then
pos1 = p: pos2 = p + 1
Else
pos1 = p + 1: pos2 = p
End If
For i = p To q
If a(i) < a(pos1) Then
pos2 = pos1
pos1 = i
ElseIf a(i) < a(pos2) Then
pos2 = i
End If
Next i
If pos1 <> p Then t = a(pos1): a(pos1) = a(p): a(p) = t
If pos2 = p Then
If pos2 <> q Then t = a(pos2): a(pos2) = a(q): a(q) = t
p = p + 1: q = q - 1
Loop
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
(3)、加框处代码有误，请改正。 -
3、使用Flash软件创作“垃圾分类宣传”作品，其中“主界面”场景的制作脚本如下表所示：
场景名：主界面
序号类别：2
进入方式：来自“片头”场景，通过“开始”按钮进入
呈现方式：
⒈“垃圾”文字从舞台左上侧飞入，最终停在舞台中央（偏左）。
⒉“分类”文字从舞台上侧飞入，旋转一圈后静止在“垃圾”右侧。
……
呈现顺序：
⒈一开始出现城市背景，“垃圾”文字从舞台左上侧飞入，补间动画持续1秒，静止在舞台中央（偏左）。
⒉动画开始1秒后，“分类”文字从舞台上侧飞入，补间动画持续1秒，静止在舞台中央（偏右）。
……
(1)、有关多媒体作品设计和本作品的制作脚本，下列说法正确的是 (多选 ，填字母)。A、根据创作方法和特点划分，Flash软件属于以时间序列为基础的多媒体创作工具。 B、要了解整个作品的组成部分、工作流程和主要界面，可查阅其应用需求分析报告。 C、制作脚本不是多媒体作品制作的直接依据 D、在片头场景，至少存在一个按钮 E、脚本中描述的“垃圾”文字和“分类”文字的动画效果，都可以用动画补间来实现。(2)、如图所示，“从我做起”图层已经被隐藏，则导出“.swf”动画后该图层内容是否可见 （选填：是/否）。
(3)、根据测试动画时发现，垃圾图层中的“垃圾”文字的动画效果未符合制作脚本中出现时间的要求，需进行修改，则下列操作可行的有 （多选，填字母）A、选择“垃圾”图层第1帧执行“清除关键帧”操作，然后将第20帧移动到第10帧 B、选择“垃圾”图层第11帧移动到第1帧，然后将第20帧移动到第10帧 C、选择“垃圾”图层第20帧执行“剪切帧”，选择该图层1帧执行粘贴帧操作 D、选择“垃圾”图层第11帧至第20帧，移动至第1帧 E、选择“垃圾”图层第11帧执行“清除帧”操作，然后将第20帧移动到第10帧(4)、该场景播放至最后一帧，动画停止播放，音乐继续播放，并且出现“垃圾危害”按钮，则音乐的同步属性为：（填：数据流/事件）。单击该按钮，实现音乐停止播放并且场景跳转至下一场景第一帧停止播放，在该按钮上添加的动作脚本是。 -
4、小李收集了2020年浙江省城市主要经济指标的数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、如图a所示，“省内位次”（嘉兴在全省各城市中的排名）行的数据是通过RANK函数计算得到，在B17单元格中输入公式后，使用自动填充功能完成区域C17：I17的计算。现如果把B17单元格中的公式改为=RANK(B9,B6:B16)，那么向右自动填充完成区域C17：I17的计算，是否会出错。（填：会/不会）（提示：RANK函数语法形式：RANK（number，ref），其中number为需要排名的那个数值或单元格，ref为排名的参照数值区域）(2)、对浙江省内城市（不包含浙江省）的三大类产业的“实绩”列同时进行筛选，筛选设置都如图b所示，则筛选出的城市个（填数字）。
图b
(3)、根据图a中的数据制作图表如图c所示，下列说法正确的有 （多选，填字母）。
图c
A、柱形图可以比较直观的显示数据多少，而饼图可以比较形象的显示各组成所占比率 B、由图c可知，图表选择的数据区域是A5：A16，F5：F16 C、对数据区域A6：I16，按列B降序排序，图c所示图表会随之改变 D、在图a所示工作表的“地区”列前插入一列“地区编号”，图c所示图表不会随之改变 -
5、下面VB程序段用二分查找的方法求不等式2x+3x-5≤n(n≥0)的最大正整数解：
Dim left As Integer, right As Integer, n As Integer, x As Integer
n = Val(Text1.Text)
left = 1: right = n
Do While ①
x = (left + right) \ 2
If 2 ^ x + 3 * x - 5 <= n Then
left = x + 1
Else
right = x - 1
End If
Loop
Label1.Caption = "方程2^x+3*x-5<=n的最大正整数解为：" + Str( ② )
为实现程序功能，①②处代码应为（ ）
A、① left < right ② left B、① left < right ② right C、① left <= right ② left D、① left <= right ② right -
6、已知有这样一种对冒泡排序的优化方法：在每一遍“加工”过程中，记录在这遍“加工”中是否进行过数据交换。若在一遍“加工”过程中没有进行过数据交换，则数据已经有序，可以直接退出循环结束排序。则下列说法错误的是（ ）A、对有n个数据的数组进行优化后的冒泡排序，最小比较次数为n-1。 B、对有n个数据的数组进行冒泡排序，无论是否优化，最大比较次数相同。 C、对冒泡排序算法进行优化，能够较大提高其效率，符合算法设计的一般原则。 D、若待排序数组中的数据依次为23，17，46，58，34，11，对其使用优化后的冒泡排序进行升序排序，比较次数为9。
-
7、有如下VB程序段：
Function fun(x As Integer) As Integer
If x <= 2 Then
fun = x
Else
fun = 2 * fun(x - 1) + fun(x - 2)
End If
End Function
则表达式fun(5)的值为（ ）
A、12 B、29 C、30 D、70 -
8、有如下VB程序段：
For i = 1 To 2
k = i
For j = i + 1 To 7
If a(j) < a(k) Then k = j
Next j
If i <> k Then
t = a(i) : a(i) = a(k) : a(k) = t
End If
Next i
数组元素a(1)到a(7)的值依次为“19，85，86，90，24，22，62”，经过该程序段“加工”后，数组元素a(1)到a(7)的值依次为（ ）
A、19，22，24，62，85，86，90 B、19，22，86，90，24，85，62 C、90，86，85，19，24，22，62 D、90，86，85，62，24，22，19 -
9、“通过输出变量c的值，判断n是否为质数（除了1和它本身不能被其他数整除的数）”的主要算法流程图如图所示，关于此流程图说法错误的是（ ）
A、输入6，算法结束后，输出c的值为3 B、算法结束后，若c>1则n不是质数 C、将i<=n-1改为i<=sqr(n)后，依然能判断n是否是质数 D、该算法流程图不能判断2是否为质数 -
10、在文本框中输出下列VB表达式的结果，其中结果显示为1的有 ( )
①Str（7 mod 2）；
②Str(Abs(Int(-2.3))-2)；
③Mid(“嘉兴0123”，3，1)+“1”；
④Str(5＼6／2)
A、①②④ B、②③④ C、①②③ D、①③④ -
11、使用GoldWave软件编辑某音频文件，选中其中一段音频后的状态栏信息如图所示。
下列说法正确的是( )
A、当前状态下，执行“删除”操作后按原参数保存，音频存储容量变小 B、无法通过图中的信息计算该音频的存储容量 C、当前状态下，调整音量，音频容量会发生变化 D、当前状态下，执行“删除”操作，左声道最后30秒出现静音 -
12、用Photoshop软件制作“开学疫情防控”作品，进行相关编辑后的文字效果如图所示。
下列描述不正确的是（ ）
A、当前状态下，不可以直接对“背景”图层添加图层样式 B、“疫情防控”图层只显示了两种图层样式效果 C、当前“城市”图层中的内容呈现半透明效果 D、当前状态下，不可以直接对“疫情防控”图层添加滤镜 -
13、使用UltraEdit软件查看字符“2020新冠肺炎！”的内码，部分界面如图所示。
下列说法正确的是( )
A、输入字符“10”显示的内码是“31 30” B、图中使用ASCII编码的有5个字符 C、汉字“炎”所占存储空间为4字节 D、图中“！”为全角字符，内码为“A1” -
14、用 Access 创建一张数据表，部分界面如图所示。
下列说法正确的是（ ）
A、“书籍编号”字段数据类型一定是“数字” B、当前数据表视图下不可以修改字段名称 C、单击①处，可以增加一个自动编号类型的字段 D、某条记录的“收藏日期”字段中输入“2013 年 06 月 10 日”也符合格式要求 -
15、下列应用中，体现了人工智能技术的有（ ）
①使用红外测温枪，不接触就能测量体温
②使用翻译笔直接将普通话翻译成英语
③某网站将用户上传的视频进行压缩转码后输出
④通过人脸识别，直接获取“绿码”信息
A、①②③ B、②③④ C、②④ D、③④ -
16、以下关于信息和信息技术说法不正确的是（ ）A、使用微信“扫一扫”扫描二维码，属于信息的解码 B、微信具有朋友圈功能，用户可以发布图文信息，这主要体现了信息的共享性 C、“浙江教育”公众号中文章的点赞数量属于核心刊物评价 D、广播电视、电影技术都属于近代信息技术
-
17、查找最短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)、请在画线处填入合适的代码。① ② ③
-
18、在文本框中输入一串表示宾馆信息的二进制代码，不同的代码段用“|”分割，其中奇数段的代码为“宾馆的楼层、房号、朝向”（楼层用任意位二进制来描述，用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)、加框处的代码有误，请修改。 -
19、小明使用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”文件，则“不信谣”按钮上添加的动作命令是 。 -
20、小董收集了某黄金首饰网店的销售数据，并用 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以“品种”为手链进行筛选，再以“重量(克)”为关键字降序排序，选取排在最前面的首饰一定是最贵的手链