相关试卷
-
1、在一条宽度度为L的直线小河中，一只青蛙想沿着直线从河的左侧跳到右侧。小河中有n片位置互不相同的荷叶，青蛙必须跳到荷叶上过河，否则会掉入水中。开始时青蛙站在河的左侧（坐标为0)，接着不停地向右侧跳跃，每次跳跃的距离不超过W，当青蛙跳到或跳过河的右侧(坐标为L)时，青蛙完成过河。例如当L=20,n=4,W=5，开始时4片荷叶的坐标为3，9，11，17，则至少需要增加2片荷叶，即在坐标8和16分别增加一个荷叶，得到过河的可行方案是0→3→8→9→11→16→17→20。
图a
图b
编写程序找出青蛙成功过河至少需要增加的荷叶数，界面如图b。请回答以下问题：
(1)、 若要将列表框List1顶端与窗体顶端的距离设置为100，能实现该功能的语句是(A . List1.Height = 100 / B . List1.Top = 100 / C . List1.Width = 100）。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Form_Load()
'读取荷叶的位置，并保存到数组a中
'荷叶的数量保存在n中
'荷叶坐标和数量分别显示在list1和Text2中
End Sub
Private Sub Command1_Click()
Dim a(0 To 100) As Integer
Dim n As Integer, L As Integer, W As Integer, tot As Integer
Dim i As Integer, j As Integer, p As Integer, d As Integer
L = Val(Text1.Text) : n = Val(Text2.Text) : W = Val(Text3.Text)
a(0) = 0 : a(n + 1) =
For i = 1 To n - 1
k = i
For j = i + 1 To n
If a(k) > a(j) Then
Next j
If k <> i Then
tmp = a(k): a(k) = a(i): a(i) = tmp
End If
Next i
For i = 1 To n
List1.AddItem a(i)
Next i
p = 1: d = 0
Do While d < L
If p <= n + 1 And Then
d = a(p)
p = p + 1
Else
tot = tot + 1
End If
Loop
Label4.Caption = "至少需要增加的荷叶数为：" + Str(tot)
End Sub
(3)、程序中加框处代码有错，请改正。 -
2、使用flash软件打开“我的庄园.fla”文件，编辑界面如图a所示：
图a
请回答下列问题:
(1)、在制作作品前，小王进行了相应的需求分析，下列属于创作需求分析的是（A .该作品准备面向10岁以下的小朋友 B .该作品的使用价值如何 C .该作品的发布方式的选择 D .该作品选择的结构类型为游戏型 E.作品的背景音乐要悦耳，动画色彩和谐）(2)、“哈利波特”图层第1帧的属性如图b所示，则该图层的补间类型是（A .形状补间 / B .动画补间 / C .逐帧动画），若在第30帧插入关键帧，是否影响动画效果（A .是/ B .否）。
图b
(3)、若要实现“发芽”图层动画结束1秒后，“花朵”图层动画才开始，则对“发芽”图层正确的操作是：。(4)、若要实现该场景动画结束时，跳转到该场景的第1帧停止播放，则可行的操作是：。 -
3、小张收集了2020年浙江省内本科院校录取情况的相关数据，并用EXCEL表进行处理，如图a所示：
图a
请回答下列问题：
(1)、图a中I3：I11区域是用COUNTIF函数计算得到的，选择I3单元格输入公式后利用自动填充功能完成其他单元格的计算。观察上图，可知I3单元格中的公式为(COUNTIF函数的作用是计算某个区域中满足给定条件的单元格个数，如COUNTIF（D3:D61,D3）的作用是计算区域D3:D61中内容为“杭州市”的单元格个数)(2)、要使相同城市按照高校平均分有序排列，则排序时主、次关键字分别为、。(3)、选择图a数据区域A2：A61，F2：F61，创建了一张柱形图，为了更直观的观察杭州市录取平均分最高3所院校的柱形对比，可以对A2：F61区域进行操作，使柱形图更新为图b。①筛选出城市为“杭州市”的数据；②以城市为关键字，按笔画进行升序排序；③对“高校平均分”列设置“最大3项”的筛选；④以高校平均分为关键字进行降序排序；⑤隐藏第三所之后的所有院校。
图b
-
4、有如下VB程序段：
key = Val(Text1.Text): cnt=10
For i = 1 To cnt - 1
n = key - a(i)
L = i + 1: R = cnt
Do While L <= R
m = (L + R) \ 2
If a(m) = n Then Exit Do
If a(m) > n Then R = m - 1 Else L = m + 1
Loop
If L <= R Then Text2.Text = Str(key - a(m)) + "," + Str(a(m))
Next i
在数组a(1)～a(10)中存储的数据依次为“1，4，9，16，25，36，49，64，81，100”，在Text1中输入一个不大于200的数，执行该程序后，Text2中显示的内容可能是（ ）
A、1，99 B、36，64 C、81，25 D、100，100 -
5、有数据序列为“2，6，8，3，5，9，7”，经过一轮冒泡排序后的结果是“2，3，6，8，5，7，9”，那么还需要（ ）轮冒泡排序后，数据才能完全有序。A、2 B、3 C、4 D、5
-
6、有如下VB程序段：
For p = 11 To 12
Do While p > 1 And a(p) > a(p \ 2)
tmp = a(p): a(p) = a(p \ 2): a(p \ 2) = tmp
p = p \ 2
Loop
Next p
若a(1)～a(12)中的元素依次为“25，14，19，5，12，17，8，1，3，10，20，30”执行该程序段后，变量a(1)、a(2)和a(3)的值依次是（ ）
A、1 3 5 B、10 20 30 C、20 25 30 D、30 20 25 -
7、在字符串s中查找是否存在字符子串s1，若有则返回第一个s1的起始位置，若没有则返回-1，实现该功能的VB程序段如下：
⑴ : i = 1
n = Len(s): t = Len(s1)
Do While i < n - t And p = -1
If ⑵ Then p = i
⑶
Loop
Label1.Caption = p
代码中划线部分由下列代码组成：
①p=1
②s1 = Mid(s, i, t)
③p=-1
④s1 = Mid(s, i, 1)
⑤i = i + 1
⑥i = i + t
下列选项中，代码顺序正确的是（ ）
A、③②⑥ B、①④⑥ C、③②⑤ D、③④⑤ -
8、某算法的部分流程图如图所示。执行这部分流程，若输入s的值为“yummy”，则输出的ch、t值分别为（ ）
A、"y",1 B、"m",1 C、"y",5 D、"m",4 -
9、下列VB表达式的值一定为2021的是（ ）A、Len("2020") + 1 B、Abs(Int(-2020.6)) C、Val("2020"+"1") D、Int(Rnd()*2022)
-
10、班里计划组织演唱比赛，小李打算帮大家录视频，录制的视频是未经压缩的1920*1080像素、256色图像、帧频为25，每位同学的表演时间为不超过5分钟，有15位同学参赛，小李至少需要准备多大的存储卡来存储演唱视频（ ）A、256GB B、128GB C、64GB D、32GB
-
11、使用Photoshop软件制作“商贸义乌”作品，部分界面如图所示：
下列说法正确的是（ ）
A、可用“文字工具”修改“奇迹”两字的字号大小。 B、当前状态下，不能移动文字“义乌-伦敦”的位置。 C、将“义乌-伦敦”的图层样式拷贝给“中欧班列”后，“中欧班列”图层会有4个图层样式。 D、“备用背景”图层的内容不可见的原因，是该图层的不透明度为0%。 -
12、下列关于信息编码的描述，正确的是（ ）A、JPEG是常用的静态图像压缩标准。 B、若十进制数a转换为二进制后末尾为0，则a/2转换为二进制后末尾也为0。 C、字符“A”的ASCII码值为41H，则“J”的ASCII码值为50H。 D、一幅16色的图片，每个像素点占用2个字节。
-
13、使用ACCESS设计了一个“学生表”，用于存储如下图所示的数据：
下列关于“学生表”描述正确的是（ ）
A、“班级”字段的数据类型可以为“数字”。 B、“学籍辅号”字段的数据类型可以为“自动编号”。 C、若要增加一位“01”班学生的信息，可以在“学生表”的第3行位置插入一行记录。 D、“学生表”的字段顺序可以与图中数据的列顺序不一致。 -
14、下列有关浏览器与网页的说法，正确的是（ ）A、收发电子邮件时收件人地址必须与发件人地址不同。 B、使用IE浏览器登录网站时，浏览器会自动记录用户的账号和密码。 C、以“网页，全部（*htm;*html)”格式保存网页，不一定能把网页中的全部内容保存下来。 D、使用记事本打开某网页文件就可以看到这个精美的网页。
-
15、下列关于信息与信息的加工描述正确的是（ ）A、计算机的运算速度只与硬件的性能有关。 B、计算机信息加工的本质是通过计算完成的。 C、使用Ultra Edit软件查看到某字符的内码是“D5 BD”，说明该字符在计算机内是用十六进制编码的。 D、随着科技的发展，计算机已经可以替代人自行做出所有的决策。
-
16、小安需要在一个n*n（4<=n<=10）的房间里使用黑白两种地砖铺设房间，要求相邻的两块地砖颜色都不同。房间里会随机产生m（m<=10）根柱子，如果最后黑白两种地砖使用的数量相同，就认为可以铺满整个房间。小安将a数组元素值设置为0、1和2三种，当数组a的值为0时显示“□”，代表白地砖，为1时显示“■”，代表黑地砖，为2时显示“○”，代表柱子。最后，小安还求出了任意两根柱子之间的最大面积，单位长度为1（当两个柱子在同一行或同一列，认为面积为0，面积求法如图b所示）。
图a
图b
程序运行界面如图a所示。实现上述功能的VB代码如下：
Dim n As Integer, m As Integer
Dim a(1 To 100) As Integer
Dim b(1 To 10) As Integer 'b数组存储柱子位置
Dim f(3) As Integer, i As Integer 'f数组存储三种类型的个数
Private Sub Command1_Click()
n = Val(Text1.Text)：m = Val(Text2.Text)
k = 0
For i = 1 To m
b(i) = Int((Rnd * n ^ 2) + 1)
a(b(i)) = 2
For j = 1 To i - 1
If b(i) = b(j) Then
①
Exit For
End If
Next j
Next i
'将房间设置为黑白两种颜色交错，白黑以0、1代替
For i = 1 To n * n
If a(i) = 0 And k = 1 Then
s = s + "■": a(i) = k
ElseIf a(i) = 0 And k = 0 Then
s = s + "□": a(i) = k
Else
s = s + "○"
f(k) = f(k) - 1
f(2) = f(2) + 1
End If
②
If i Mod n = 0 Then
List1.AddItem s
s = ""
End If
Next i
'对b数组的数值按升序进行排序，代码略
For i = 1 To m - 1
s = search(i)
If s > smax Then smax = s
Next i
'对f(0)和f(1)的相等情况进行判断，并输出最后结果，代码略
End Sub
Function search(i As Integer) As Integer
Dim x1 As Integer, x2 As Integer
Dim y1 As Integer, y2 As Integer
x1 = (b(i) - 1) \ n + 1
y1 = (b(i) - 1) Mod n + 1
For j = i + 1 To m
x2 = (b(j) - 1) \ n + 1
y2 = (b(j) - 1) Mod n + 1
If ③ Then s = 0
s = (x2 - x1) * (y2 - y1)
If s > search Then search = s
Next j
End Function
(1)、请在划线处填入合适代码。① ② ③
(2)、实线框处的语句改为k = 1 - k，对程序运行结果（填：有/无）影响？ -
17、在100个小球中,只有一个小球轻于其它小球。如何用没有砝码的天平找出该小球？小安设计了一个三分查找程序来快速查找这个小球，程序认定当需查找的小球个数小于3个时，认为已找到，程序运行界面如图。
Dim a(1 To 100) As Integer
Private Sub Form_Load()
'产生100个重量为10的小球，存储在数组a中
'其中随机选取1个小球的重量改为8，代码略
End Sub
Private Sub Command1_Click()
Dim left As Integer, right As Integer
Dim mid As Integer, count As Integer
Dim s(1 To 2) As Integer
left = 1: right = 100: count = 1
List2.AddItem Str(left) + "-------->" + Str(right)
Do While left<=right
s(1) = 0: s(2) = 0
①
i = left: k = 1
Do While i <= left + mid * 2 - 1
s(k) = s(k) + a(i)
If ② Then k = k + 1
i = i + 1
Loop
If s(1) = s(2) Then
left = left + 2 * mid
ElseIf s(1) < s(2) Then
right = left + mid - 1
Else
left = left + mid
End If
count = count + 1
List2.AddItem Str(left) + "-------->" + Str(right)
Loop
List2.AddItem "经过" + Str(count) + "次后找到这个数"
End Sub
(1)、实线框处代码有错，请改正。(2)、请在划线处填入合适代码。① ②
(3)、根据上述程序代码，若将虚线框处的两行代码交换一下顺序，则查找结果是（单选，填字母：A .下标越界 /B .找到这个数 /C .找不到这个数 /D .死循环） -
18、为了响应全民防疫，小明创作主题为“接种新冠疫苗宣传片”的多媒体作品，部分编辑界面如图所示。
请回答下列问题：
(1)、在创作之前进行了作品设计，下列说法正确的是 （多选，填字母）A、为提倡全民防疫，考虑将该作品作为公益广告，属于作品的创作需求分析 B、考虑作品需要用flash软件制作，属于作品的应用需求分析 C、考虑主场景的背景音乐和色彩分布设计，属于作品的模块设计 D、用photoshop软件制作素材属于编写制作脚本 E、制作脚本是在文字脚本之后，其中制作脚本是制作多媒体作品的直接依据(2)、根据制作脚本要求，“病毒1”图层动画结束后“病毒2”图层动画开始，应如何修改？(3)、“病毒1”图层中补间动画类型是（单选，填字母：A .动画补间动画 /B .形状补间动画 /C .逐帧动画）(4)、已知“声音”图层的声音同步类型为“事件”，现在想调整该层声音只播放到第20帧，但不影响其它动画效果，结合前面题设，下列操作可行的是（多选，填字母：A .选“声音”图层第20到60 帧执行“删除帧”操作 / B .在“声音”图层第 20 帧执行“插入关键帧”操作，并设置声音的同步方式为“数据流” / C .在“病毒1”图层第 20 帧，添加脚本动作：stop(); / D .在“病毒1”图层第 20 帧，添加脚本动作：stopAllSounds();）(5)、单击“注意事项”按钮后跳转到“注意事项”场景第1帧并播放，为实现这一功能，该按钮实例上添加的动作脚本是on(press){} -
19、为了响应全民健身计划,某高中对学生进行了体质健康测评,并用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、区域M2:P15 的数据是通过公式计算得到的，在M2单元格中输入公式后，再使用自动填充功能完成该区域的计算，则N3单元格中的公式是“=SUMPRODUCT(()*($I$3:$I$553=N$1))”。（提示：M2单元格输入公式=SUMPRODUCT((A1:A100=“2”)*(I1:I100=“优秀”))，表示同时满足A1:A100是2班和I1:I100是优秀这两个条件的情况有几个，也就是进行条件计数。）
(2)、根据图a中的数据制作的图表如图b所示。创建该图表的数据区域是
图b
(3)、对图a工作表进行相关数据分析，下列说法正确的是 （多选，填字母）。A、以“总分等级”为依据进行升序排序，选择的区域是A3：I553 B、选择“A3：I553”按照“总分等级”升序排序后，图b的图表不会发生改变 C、现需要选出总分等级为“不及格”的学生，可选择区域A3：I553，以“总分等级”为“不及格”进行筛选并保留结果 D、为了显示男生立定跳远得分最高的3位学生数据，可先对“性别”为“男”进行筛选，再对“立定跳远”进行筛选，选择最大的3项 -
20、某算法有如下程序段
Key = Int(Rnd * 5) * 2 + 10
i = 1: j = 8: n = 0
Do While i <= j
m = (i + j + 1) \ 2
If a(m) >= Key Then i = m + 1 Else j = m - 1
n = n + 1
Loop
数组元素a(1)~a(8)的值为“22，21，18，17，16，15，14，10”。若该程序段执行后，下列说法错误的是( )
A、j的值为i-1 B、i的值可能是3 C、n的值一定是3 D、j的值可能是3