2020-2021学年浙江省北斗星盟高二（下）月考信息技术试卷（5月份）
发布：2024/12/10 16:0:2
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．下列关于信息与信息处理的说法，错误的是（ ）
组卷：8引用：1难度：0.7 -
2．下列有关网页与浏览器的说法，正确的是（ ）
组卷：3引用：1难度：0.7 -
3．使用 UltraEdit 软件观察字符“hi 人工智能 AI”的内码，部分界面如图所示。
下列说法正确的是（ ）组卷：8引用：1难度：0.5 -
4．用 Access 软件设计某学习管理软件的数据库，其中已创建好的“学习情况”数据表用于存储如表所示的数据。
下列关于“学习情况”数据表的描述，错误的是（ ）序号 学生学号 学习时间 学习模块 学习时长（分钟） 作业完成情况 1 20190101 2021.01.26 选择排序 23 已完成 2 20190411 2021.03.29 对分查找 18 未完成 3 20190203 2021.04.05 冒泡查找 23 未完成 … … … … … … 组卷：0引用：1难度：0.5 -
5．一段未经压缩的 1024×768 像素、16 位彩色、PAL 制式（25 帧/秒）的 AVI 视频文件，其存储容量为 75MB，则该视频的时长约为（ ）
组卷：0引用：1难度：0.4
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分。）
-
15．垂直升降式电梯里的显示屏会动态显示朝上或者朝下的箭头。小郑编写了一个 VB 程序，模拟箭头往上、往下的移动，以及箭头方向的调转。运行程序时，数组元素 a（1）到 a（64）存储 0 或 1（如图 1），分别表示空字符和星号，并在列表框 List1 中显示相应的图形（如图 2）。单击“上移”按钮，箭头向上移动一个位置，超出上边界的图形则继续从下边界往上移（如图 3）；单击“下移”按钮，箭头向下移动一个位置；单击“调头”按钮，则切换箭头的上下朝向。
请回答下列问题：
（1）List1.AddItem 中的 AddItem 是对象 List1 的（单选，填字母：A.对象名/B.属性名
/C.方法名/D.事件名）。
（2）实现上述功能的 VB 程序如下，请在横线处填入合适的代码。
（3）程序执行到加框处代码时，会弹出错误提示（单选，填字母：A.溢出/B.下标越界/C.类型不匹配）。为了使程序能正常实现图形的上移和显示功能，加框处的代码改为。
Dim a（1 To 64）As Integer
Dim b（0 to 1）As String Private Sub Form_Load （ ）
b（0）=““：b（1）=“*“
'给数组 a 赋初值，并在列表框 List1 显示箭头图形，代码略
End Sub
Private Sub up_Click （ ）
Dim i As Integer,j As Integer,s As String,tmp As Integer List1.Clear
For i=1 To 8'将第i 列数据向上平移一个位置
tmp=①
For j=2 To 8
a（（j-2）*8+i）=a（②）
Next j
a（7*8+i）=tmp Next i
s=““
s=s+b（i）
For i=1 To 64
If i Mod 8=0 Then List1.AddItem s：s=““Next i
End Sub
Private Sub turn_Click （ ）
‘调转箭头方向（朝上的变为朝下，朝下的变为朝上），代码略 End Sub
Private Sub down_Click （ ）
‘图形向下移动一个位置，代码略End Sub组卷：1引用：1难度：0.5 -
16．学校物品室有 n 个箱子（箱子上分别有编号 1、2、3…n），箱子里存有数量不一的物品。有 m 位学生前来领取物品（物品总量足够领取），每位学生优先从物品数量最多的箱子领取，数量不够时，再从下一个数量最多的箱子领取。小郑设计了一个 VB 程序，在文本框Text1 中按箱子编号从小到大依次输入每个箱子的物品数量，在文本框 Text2 中依次输入每位学生需要领取物品的数量，单击“领取”按钮后，在列表框 List1中按顺序显示每个学生领取物品的箱子编号，并显示领取结束后非空箱子的编号和剩余物品数量。运行界面如图所示。
回答下面问题：
（1）如果 1 号到 5 号箱子的物品数量分别是 25，16，9，5，3，每位学生需要的物品数量分别是
19，18，10，3，则第 3 位学生领取物品的箱子编号按顺序依次是 3 号、（填整数）号。
（2）实现上述功能的 VB 程序如下，请在横线处填入合适的代码。
Private Sub get_Click （ ）
Dim a（1 To 100）As Integer,bh（1 To 100）As Integer Dim b（1 To 100）As Integer
Dim n As Integer,m As Integer'n 表示箱子数量，m 表示需领取物品的学生人数
Dim i As Integer,j As Integer,num As Integer
Dim p As Integer,q As Integer,t As Integer,s As String
'依次获取 Text1 里物品数量存入数组 a,箱子上的编号（1 到 n）依次存入数组 bh,箱子数量存入变量 n,并按物品数量从多到少对箱子排序，代码略
'依次获取 Text2 里学生需要领取物品的数量存入数组 b,学生人数存入变量 m,代码略p=1：q=1
For i=1 To m num=0
Do While num＜b（i）num=num+a（q）a（q）=0
①
Loop
s=“第“& i &“位学生领取物品的箱子编号依次为：“
For j=p To q-1
s=s+Str（bh（j））Next j
List1.AddItem s
If num＞b（i）Then a（q-1）=②：q=q-1
For j=③'维护非空箱子降序序列（按箱子中剩余物品数量）If a（j）＜a（j+1）Then
t=a（j）：a（j）=a（j+1）：a（j+1）=t
t=bh（j）：bh（j）=bh（j+1）：bh（j+1）=t End If
Next j p=q Next i
List1.AddItem“剩余物品数量：“For i=1 To n
If a（i）＞0 Then List1.AddItem Str（bh（i））+“号箱子：“+Str（a（i））Next i
End Sub组卷：0引用：1难度：0.5
