浙江省湖州市2021-2022学年高三上学期信息技术高考考前模拟试卷（四）
试卷更新日期：2022-01-19 类型：高考模拟
一、选择题(本大题共12小题，每小题2分，共24分。)
-
1. 下列有关信息和信息技术的说法正确的（ ）A、古代没有电脑、没有网络，也没有信息技术 B、信息的加工和管理必须使用计算机才能完成 C、对朋友圈里的信息进行点赞属于信息的个人推荐评价 D、随着信息技术的发展，信息的处理不需要人类参与就可以完成各项任务2. 下列关于浏览器和网页的说法，正确的是（ ）A、静态网页可根据情况的变化、用户的需要生成不同的页面 B、网页通过HTTP协议传输，可以通过浏览器解释执行HTML代码 C、在 IE 浏览器中，可以使用“添加到收藏夹”保存网页中的内容 D、将网页以“Web档案，单个文件（*.mht）”类型保存，其中的图片未被保存3. 某医院使用Access创建“医疗管理系统”，某数据表的设计视图如下图所示，下列说法正确的是（ ）
A、当前数据库文件名是“用户信息.accdb” B、可以在“用户信息”表的“是否住院”字段中输入逻辑值“否” C、“诊断表”和“住院”表中都不可以包含“诊断卡号”字段 D、“诊断时间”字段值可以输入“2021/9/1”，也可以输入“17:00:00”4. 用UltraEdit软件观察字符内码，部分界面如图所示，下列说法正确的是（ ）
A、上述字符中共有8个ASCII码字符 B、字符“10.0”的内码是“3A 2E 30” C、字符“J”的内码用十六进制表示是“50” D、汉字“联”的ASCII码用十六进制表示是“C1 AA”5. 使用GoldWave软件编辑某音频文件，选中一段音频后的部分编辑界面如下图所示：
下列说法正确的是（ ）
A、该音频是 Wave 格式的文件，每秒钟采样44100次 B、当前状态下执行“剪裁”操作，音频时长变成30s C、通过“更改音量”命令提升音量，音频的采样频率同步变大 D、当前状态下，执行“删除”命令后再插入30s静音，音频文件存储容量变大6. 一段时长为1分钟、1024×768像素、RGB/8模式、PAL制式的AVI格式视频，该视频声音存储容量约为10M，则该视频文件存储容量约为（ ）A、3.3GB B、1.1GB C、56.3MB D、66.3MB7. 下列选项的结果与其他选项不同的是（ ）A、Mid("5671732",4,2) B、Int(Rnd * 9 + 40) \ 20 + 15 C、2019 Mod 100 – 2019\1000 D、(Asc("d") - Asc("a"))^ 3-Int（Sqr(101)）8. 某算法的部分流程图如图所示，
输入s=“101001”，b=0，执行这部分流程后，输出b的结果是（ ）
A、31 B、15 C、3 D、19. 有如下VB程序段：c = Text1.Text
s1 = "jiayou！" s2 = s1 + s1
For i =1 to len(s1)
If c = Mid(s2, i, Len(s1)) Then Exit For
Next i
Label1.Caption = Str(i)
程序执行完后，Label1中显示的内容是4，则Text1中输入的内容是（ ）
A、"jiayou!" B、"you!jia" C、"ayou!ji" D、"jayou!j"10. 有如下VB程序：n = 4
For i = 1 To 25
j = 1: a(j) = a(j) + 1
Do While a(j) = 4
a(j) = 0
j = j + 1
a(j) = a(j) + 1
Loop
Next i
For i = 1 To n
s = Str(a((i + 1) Mod 4 + 1)) + s
Next i
数组a(1)至a(4)初值均是0，执行该程序后，s的值是（ ）
A、"1012" B、"2101" C、"0121" D、"1210"11. 有一组数据（共n*n）个，分别存放在a(1)至a(n*n)中，将这些数据平均分为n段，通过下列程序实现n段数据升序排序，例如，当n=4时，排序结果如图所示：
For i = 1 To ①
k = i
For j = i + 1 To ②
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
s = s + Str(a(i))
If ③ Then
List1.AddItem s: s = ""
End If
Next i
划线处的代码应为（ ）
A、① n*n ② ((i - 1) \ 4 + 1) * 4 ③ i Mod 4 = 0 B、① n*n ② (i \ 4) * 4 ③ i \ 4 = 0 C、① n*n-1 ② ((i - 1) \ 4 + 1) * 4 ③ i Mod 4 = 0 D、① n*n-1 ② (i \ 4) * 4 ③ i \ 4 = 012. 有如下VB程序段：i = 1: j = 9
k= Int(Rnd * 6) * 10 + Int(Rnd * 6)
Do While i <= j
m = (i + j) \ 2
If a(m) Mod 10 > k Mod 10 Then
j = m - 1
Else
i = m + 1
End If
Loop
已知数组a(1) 至a(9)中的值分别是“21,13,23,43,15,45,47,48,48”，运行该程序段后，j的值不可能是（ ）
A、1 B、4 C、6 D、7二、非选择题(本大题共4小题，4+8+7+7，共26分)
-
13. 小李收集了某辩论赛的相关数据，并使用Excel软件进行处理，如图a所示。
图a
(1)、在D16单元格中使用SUMIF函数计算“爱拼才会赢”所有队员第一回合得分之和，然后往右填充计算“爱拼才会赢”所有队员所有回合得分之和，则D16单元格中的公式是
。(提示：SUMIF 函数用于对区域中满足条件的单元格求和。例如：=SUMIF(B2:B15,"一辩",D2:D15)表示所有一辩队员第一回合的得分总和)
(2)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是 。
图b
(3)、小李把A1:H15的数据复制到Sheet2工作表，找出“to be No.1”辩论队中平均分最高的一辩选手（若存在符合条件的多名选手，则全部选取）。下列方法可行的是 （多选，填字母）A、以“队名”为“to be No.1”进行筛选，再以“平均分”为关键字降序排序，选取排在最前面的队员 B、以“队名”为“to be No.1”进行筛选，再以“顺序”为主要关键字降序、“平均分”为次要关键字降序排序，选取排在最前面的队员 C、以“队名”、“顺序”和“平均分”分别为主要和次要关键字，排序方式依次设置升序、降序和降序，进行排序，选取排在最前面的队员 D、以“顺序”为“一辩”进行筛选，再以“平均分”为关键字降序排序，选取排在最前面的队员14. 某同学制作了一主题是“垃圾分类”多媒体作品，他首先使用 PhotoShop软件制作一张背景图片，然后使用Flash软件制作动画。(1)、使用PhotoShop软件编辑背景图片，部分编辑界面如图a所示，在当前状态下，以下说法正确的是 （多选，填字母）。
图a
A、可以将“树木”图层的图层样式隐藏 B、可以使用自由变换命令仅将“美丽生活”中的“美丽”变大 C、将“小鸟”图层移动到“树木”图层的下方，图片的显示效果会发生改变 D、可以使用“移动工具”将“小鸟副本”的小鸟移动到“小鸟”图层中小鸟的左侧 E、删除“背景”图层，将图片直接存储为BMP格式，图片的存储容量约为1.06MB(2)、如图b所示，在当前状态下，执行测试影片命令，首先播放的场景是 ， “音乐”图层的声音（单选，填字母：A .能/B .不能）正常播放。
图b
(3)、如图b所示，“人物”图层第20帧到第40帧实现了人物淡入并放大的动画效果，要使人物在41帧处消失并持续到本场景结束，可以执行的操作是。(4)、测试影片时，单击“跳转”按钮，声音停止播放，并跳转到下一场景第10帧继续播放，则需要在该按钮上添加的脚本命令是。15. 某次模拟考试后，某班主任为了统计本班学生的语文和数学成绩，制作了如下 VB 程序。程序界面如下图所示：在文本框Text1中输入语文和数学成绩，成绩之间用“，”隔开，以“，”结束，加载窗体时，将成绩提取到数组 a中，如a(1)表示第一位学生的语文成绩，a（2）表示第一位同学的数学成绩，如a(3)表示第二位学生的语文成绩，a（4）表示第二位同学的数学成绩，……，以此类推，单击按钮Command11，将成绩按照语文为主要关键字、数学为次要关键字做升序排序，并将排序后的结果显示在文本框Text2中。
(1)、窗体中没有用到的控件是 。A、
B、
C、
D、
(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码Dim a(1 To 20) As Integer
Dim i As Integer, n As Integer
Private Sub Form_Load()
Dim s As String, ch As String
n = 1：s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
a(n) =
Else
n = n + 1
End If
Next i
End Sub
Private Sub Command1_Click()
Dim j As Integer, t1 As Integer, t2 As Integer
For i = 2 To n/2
t1 = a(2 * i - 1): t2 = a(2 * i): j = i - 1
Do While
a(2 * j + 1) = a(2 * j - 1)
a(2 * j + 2) = a(2 * j)
j = j - 1
If j = 0 Then Exit Do
Loop
a(2 * j + 1) = t1
Next i
For i = 1 To n/2
Text2.Text = Text2.Text + Str(a(2 * i - 1)) + Str(a(2 * i))
Next i
End Sub
(3)、程序中加框处代码有误，请改正16. 某学校某一年级共有m（偶数）个班级，在开展运动会期间，所有班级的学生随机站成一排并按位置顺序进行编号，已知共有n位同学。现要选取k位选手参加跳绳比赛，选取方法是：在排好的队列中选取连续的k位（k是偶数且k>=m）学生，要求每个班级至少有一位学生参加比赛，并且参赛的男生人数和女生人数相同。现要设计一VB程序，确定选取学生的起止位置，VB的部分界面如下图所示，加载窗体时，在List1中生成n个学生所处的位置和学生编号，其中位置就是学生所在队列中的位置，学生编号由两位数字构成，即班级+性别（0表示男生，1表示女生），在文本框Text1中输入抽取的学生的人数k，单击“抽取”按钮Command1，在列表框List2中显示满足条件的所有队列情况。
(1)、若共有4个班级，学生排列的编号是11,21,30,11,40,41,30,21,20,10,11,20,31,40，若k=4，共存在种抽取方案。(2)、请在划线处填入适当代码。Dim s As String
Dim i As Integer，sum As Integer
Dim a(1 To 1000) As Integer
Dim b(1 To 1000) As Integer
Dim ton(1 To 6) As Integer '存储选中队列中各个班级的人数
Const m = 6
Const n = 300
Private Sub Form_Load()
For i = 1 To n
'随机生成n个学生编号显示在列表框List1中，并将学生的班级号和性别分别存储在数组a和b中
Next i
End Sub
Private Sub Command1_Click()
Dim j As Integer, k As Integer, tmp As Integer
k=Val(Text1.text)
For i = 1 To n – k + 1
For j =
If ton(a(j)) = 0 Then
sum = sum + 1
End If
If xb(b(j)) = False Then tmp = tmp + 1
Next j
If Then
List2.AddItem Str(i) + Str(i + k - 1)
End If
sum = 0: tmp = 0
For k = 1 To m
ton(k) = 0
Next k
Next i
End Sub
Function xb(data As Integer) As Boolean
xb = False
If data = 0 Then xb = True
End Function