2020-2021学年浙江省丽水外国语实验学校高二（下）第一次月考信息技术试卷（选考）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．下列关于信息与信息技术的描述，正确的是（ ）
组卷：18引用：4难度：0.8 -
2．用Access软件设计抗疫物资收发系统的数据库，其中已建好的“物资流向”数据表用于存储如表所示的数据。下列关于“物资流向”数据表的描述，正确的是（ ）
发放序号 发放日期 领用单位 物资名称 数量 是否定向 20200101 2020.01.29 街道办事处 医用口罩 1000 是 20200102 2020.02.12 疫情防控组 普通防护服 200 否 20200103 2020.02.12 疫情防控组 体温枪 500 否 … … … … … … 组卷：3引用：3难度：0.6 -
3．下列应用中，体现了人工智能技术的有（ ）
①电梯门打开后，延时一段时间自动关闭
②高铁站通过人脸识别验证旅客身份
③输入正确的密码后，密码门锁自动开启
④某客服机器人能与客户以语音方式进行交流
⑤无人驾驶汽车能自动识别路况并安全行驶组卷：23引用：4难度：0.8 -
4．某算法的部分流程图如图所示。执行这部分流程，输出m、n的值分别是（ ）组卷：14引用：4难度：0.6 -
5．英文字符在计算机中有全角和半角之分。全角英文字符的内码由两个字节组成，第一个字节的值是A3H，第二个字节的值是其对应的半角内码值加上80H得到的。例如，半角字符“A”的内码值是41H，则全角字符“A”的内码值是A3C1H。用UltraEdit软件查看字符内码，部分界面如图所示。下列说法错误的是（ ）
组卷：9引用：4难度：0.5
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题5分，第16小题9分，共26分）
-
15．一个弹球会发出红、绿或蓝三种单色光。发着光的弹球从高处垂直下落，触地会垂直弹起，且弹起时发光颜色会变化。假设弹球下落高度为h,触地前发红光、绿光、蓝光时，反弹高度分别为0.8h、0.6h、0.5h。触地若干次后，弹球弹起时不再发光。
观察弹球的发光颜色变化，并用字符串记录，其中每个字符表示弹球一次触地前的发光颜色（字符R、G、B分别表示红、绿、蓝）。
编写一个VB程序，计算弹球发光状态下的运动轨迹长度。在文本框Text1中输入弹球的初始高度，在文本框Text2中输入表示发光颜色变化的字符串，单击命令按钮Commandl后，文本框Text3中显示弹球在发光状态下的运动轨迹长度，程序运行界面如图所示。
（1）若要将命令按钮Commandl上显示的内容改为“计算”，能实现该功能的语句是（单选，填字母：A.Command1=“计算”/B.Command1.Caption=“计算”/C.Commandl.Text=“计算”）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Commandl_Click（ ）
Dimh As Single,sumAsSingle
Dims As String,cAsString
Dimi As Integer
h=Val（Textl.Text）
s=Text2.Text
sum=h
Fori=1ToLen（s）-1
①
Ifc=″R″Then
h=0.8*h
②
h=0.6*h
Else
h=0.5*h
End If
sum=sum+h*2
Next i
Text3.Text=Str（Int（sum））
End Sub
（3）若将程序中的语句“Text3.Text=Str（Int（sum））”改为“Text3.Text=Str（Int（h））”，在文本框Text1中输入“100”，在文本框Text2中输入“BRG”，单击命令按钮Command1后，文本框Text3中显示的内容是。组卷：2引用：2难度：0.6 -
16．根据申请人的QA和QB值，从m个申请人中挑选2人组队参加某挑战赛。条件一是2人的QA值都必须大于指定参数h；条件二是2人的QA值之差（较大值减较小值）小于h。在满足上述两个条件的所有2人组合中，挑选QB值之和最大的一个组合。（QA、QB和h的值均为正整数）
编写VB程序，实现上述挑选功能。运行程序，在文本框Text1中输入参数h后，单击“挑选”按钮Command1，在列表框List1中按QA值降序显示满足条件一的申请人信息，最后在标签Label1中显示组队结果。程序运行界面如图所示。
请回答下列问题：
（1）若要清空列表框List1，能实现该功能的语句是（单选，填字母：A.List1.Caption=““/B.List1.Text=““/C.List1.Clear）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Const m=20’m表示申请人个数
Dim id（m）As Integer,qa（m）As Integer,qb（m）As Integer
Private Sub Command1_Click （ ）
Dim i As Integer j As Integer,k As Integer,t As Integer,max As Integer
Dim h As Integer,n As Integer’变量n存储满足条件一的申请人个数
Dim s As String
’读取全部申请人的编号、QA和QB值，分别存入数组id、qa和qb,代码略
h=Val（Text1.Text）：n=m
For i=1 To m—1
k=i
For j=i+1 To m
If qa（j）＞qa（k）Then k=j
Next j
If
Then
k＜＞i Then
t=qa（i）：qa（i）=qa（k）：qa（k）=t
t=qb（i）：qb（i）=qb（k）：qb（k）=t
t=id（i）：id（i）=id（k）：id（k）=t
End If
Else
n=①
Exit For’Exit For表示退出循环
End If
Next i
’满足条件一的申请人信息显示在列表框Listl中，代码略
max=0：s=“没有满足条件的组合”
’在满足条件的组合中，寻找QB值之和最大的组合，若有并列，只保留第一个
For i=n To 2 Step—1
j=i—1
Do While②
If qb（i）+qb（j）＞max Then
s=“组队结果：“+Str（id（i））+“号，“+Str（id（j））+“号“
③
End If
j=j—1
Loop
Next i
Label1.Caption=s
End Sub组卷：0引用：1难度：0.5
