2020-2021学年浙江省高中联盟高三（上）期中信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题0分，共24分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、错选、多选均不得分。）
-
1．下列有关信息和信息处理的说法，正确的是（ ）
组卷：2引用：2难度：0.7 -
2．下列应用中，体现了人工智能技术的有（ ）
①用天猫精灵语音控制房内电子设备
②人脸识别门禁考勤
③微信发送语音
④手机应用软件“作业帮”识别图片内容进行检索
⑤手机 APP实时显示公交车行驶轨迹组卷：3引用：2难度：0.3 -
3．使用Access软件打开数据库，部分界面如图所示。下列说法正确的是（ ）
组卷：1引用：1难度：0.4 -
4．使用UltraEdit软件观察字符内码，部分界面如图所示。
下列说法正确的是（ ）组卷：2引用：1难度：0.5 -
5．使用 Gold Wave软件打开某音频文件，界面如图所示。
下列说法正确的是（ ）组卷：0引用：1难度：0.6
二、非选择题（4分，8分，7分，7分，共26分）
-
15．无重叠区间。在若干个区间中，删除重复区间，使得剩余区间互不重叠（区间[1，2]和[2，3]虽有边界值2相等，但不认为是重叠区间）。小李设计VB程序，在文本框Textl中输入用逗号分隔的整数，相邻两个整数表示一个区间（任意区间的左边数据小于右边数据）。如图中所示为区间[1，2]，[2，3]，[3，4]，[2，4]。点击“判断”按钮Command1后，删除重复区间[2，4]，在文本框Text2输出满足无重复区间时需要删除的最小区间数量。运行界面如图所示。
（1）若输入的区间集合为[2，4]，[1，3]，[3，4]，[5，6]，则需要删除区间的最小数量为。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click ____
Dim a（1 To 100）As Integer
Dim i As Integer,j As Integer
Dim temp As Integer,k As Integer
Dim res As Integer,ed As Integer
'从文本框Textl中依次读入整数存储到数组a中，整数的个数存放在变量k中，代码略.
For i=1 To k\2-1'以区间左边数据为主要关键字升序排序
For j=k\2 Toi+1 Step-1
If ①Then
temp=a（j*2-1）：a（j*2-1）=a（（j-1）*2-1）：a（（j-1）*2-1）=temp
temp=a（j*2）：a（j*2）=a（（j-1）*2）：a（（j-1）*2）=temp
End If
Next j
Next i
ed=a（2）
res=0
For i=2 To k\2'计算需要删除区间的最小数量
If ②Then
res=res+1
ed=min（ed,③）
Else
ed=a（i*2）
End If
Next i
Text2.Text=Str（res）
End Sub
Function min（x As Integer,y As Integer）As Integer'函数功能：返回x与y的最小值
'代码略
End Function组卷：0引用：1难度：0.3 -
16．元旦放假，小明帮助外公在果园搬果子。果园里有n堆（n＜=100）重量不一的果子，需要将它们合并成一堆。已知合并两堆果子所消耗的体力等于两堆果子的重量之和。为了节省体力，每次合并，小明会把其中重量最小的两堆果子合并一起，n堆果子经过若干次合并之后只剩一堆为止。比如，n=4时，表示共有4堆果子，重量分别是2、4、5、9，先合并重量为2和4的果子堆，新堆重量是6，耗费体力为6；接着将重量5和6的果子堆合并，新堆重量是11，耗费体力为11；最后将重量9和11的果子堆合并，新堆重量是20，耗费体力为20。因此总消耗体力是6+11+20=37，这样合并是最少耗费体力的方法。请设计程序，计算合并这n堆果子最少消耗的体力值。
（1）有5堆果子重量分别是：17，15，16，16，19，则小明将5堆果子搬成1堆至少需要消耗体力值为。
（2）请在①②③处填上合适代码，实现程序功能。
Dim n As Integer
Dim a（1 To 100）As Integer'a数组存储各堆果子重量
Dim b（o To 100）As Integer'b（0）存放a数组中最小值的下标，若a（i）是数组中最大数，则 b（i）的值为-1
Dim flag（1 To 100）As Boolean
Private Sub Form_Load ____
初始化果子的数量n和每堆果子的重量a（i），并依此显示在列表框list1中，代码略
初始化b数组的值均为-1，flag 数组的值均为False,代码略
End Sub
Private Sub Command1_Click _____
Dim i As Integer,k As Integer
Dim p As Integer,q As Integer,w As Integer
p=0
Do While True'生成b数组，标记升序后a（i）的下一个元素在a数组中的位置为b（i）
For i=1 To n
If Not flag（i）Then k=i：Exit For
Next i
If i=n+1 Then Exit Do
i=1
Do While i＜=n
If Not flag（i） And a（k）＞a（i）Then k=i
i=i+1
Loop
b（p）=k
flag（k）=True
①
Loop
w=0
p=b（0）：q=b（p）
Do While b（p）＜＞-1
a（p）=a（p）+a（q）
w=②
If b（q）＜＞-1 Then b（0）=b（q）Else Exit Do
Call sort（p）
p=b（0）：q=b（p）
Loop
Text1.Text=Str（w）
End Sub
Sub sort（p As Integer）'将a（p）插入到合适位置
Dim pl As Integer,ql As Integer
pl=b（0）
If a（p）＜=a（pl）Then
b（0）=p：b（p）=pl
Else
Do While a（p）＞a（p1）And b（p1）＜＞-1
ql=pl：pl=b（pl）
Loop
If b（p1）=-1 And a（p）＞a（p1）Then
b（pl）=p：b（p）=-1
Else
b（p）=pl：③
End If
End If
End Sub组卷：0引用：1难度：0.3
