2020年浙江省宁波市五校（奉化中学、宁波中学、北仑中学等）高考信息技术适应性试卷
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分。在每小题列出的四个选项中，只有一项是符合题目要求的，不选、多选、错选均不得分）
-
1．以下关于信息与信息技术的描述正确的是（ ）
组卷：4引用：3难度：0.7 -
2．有关网络常见术语的描述正确的是（ ）
组卷：3引用：1难度：0.6 -
3．下列应用中，体现了人工智能技术的有（ ）
①多国语言翻译
②微信发送语音
③无人驾驶汽车
④人脸识别打击拐卖
⑤热水器根据水温自动加热
⑥手机扫码二维码支付组卷：3引用：1难度：0.7 -
4．关于数据库说法错误的是（ ）
组卷：0引用：1难度：0.5 -
5．使用UE软件观察字符内码，其中截图中的字符B的二进制内码是（ ）
组卷：3引用：1难度：0.5
二、非选择题（本大题共4小题，其中第13题4分，第14题8分，第15题7分，第16题7分，共26分）
-
15．在计算过程中，有时候数据会特别大，超过系统允许的范围，这时候我们会采用一种特殊的方法来处理，将数字当做字符，然后逐个处理。以下程序用来处理超级大的正整数乘以一个个位数的情况：每输入一个乘数和被乘数，按一下计算，会在列表框中输出运算结果。（保证输入的被乘数是个位正整数，乘数可以是200位以内的正整数），完成填空。
算法思路：从乘数的最后一位开始逐个取出来与被乘数相乘，例如635的最后一位5，取出来与被乘数5相乘，得到25，个位数5作为结果存入s字符串，十位数2作为进位，留着加入下一次的乘积中，然后取出3，与5相乘，得到15，但是要加上刚才的进位，所以应该是17，个位数7作为结果存入s（此时结果是75），十位数作为进位1，留着加入下一次乘积……。
（1）程序中additem 是（1）（选填：属性/属性值/对象名/方法/过程）
（2）根据算法完成程序填空：
Private Sub Command1_Click （ ）
dim s as string,s1 as string,s2 as string
dim i as integer,jinwei as integer,d as integer,t as integer
s1=Text1．Text
s2=Text2．Text
s=““
jinwei=0
For i=Len（s1）To 1 Step-1
d=Val（Mid（s1，i,1））
t=①
s=②
jinwei=t\10
Next
If jinwei＜＞0 Then s=③
List1．AddItem s1 &″*″& s2 &″=″& s
End Sub组卷：0引用：1难度：0.4 -
16．某学校要对班主任进行满意度调查，有20个评分项（为方便程序处理，评分项具体的名称本题中不显示，仅以序号代替），每个评分项学生可以打A、B、C 三个等级中的一个，现在已经收集所有学生对班主任的评价，为了保证隐私，不显示学生姓名，只显示班级，并存储在数据库的表中，点击command2（读取数据），读取原始数据显示在左侧list1中，左侧列表显示的原始评价数据第一条表示高二（01）班有1位同学在第9项给班主任打A，依此类推，点击command1（统计），统计出各项目的评价统计（A+B所占的百分比）。
（1）根据以下代码可知，本程序访问的数据库名称是
（2）完成横线处的代码填空
Dim classname（1 To 8000）As String‘存储原始数据中的班级名称
Dim selectabc（1 To 8000）As String‘存储原始数据选项的值
Dim xiangmu（1 To 8000）As String‘存储原始数据选项的序号
Dim n As Integer
Private Sub Command2_Click （ ）′从数据库读取数据，并且按班级名称排序
Dim conn As New ADODB．Connection
conn.ConnectionString=″provider=microsoft.ace.jye.ai.12.0；data source=″&App.Path&“\pingjia.jye.ai″
conn.Open
Dim rs As New ADODB．Recordset
Set rs.ActiveConnection=conn
rs.Open″select*from data″
n=0′记录评价的总条数
′读取数据，并按班级排序，代码略
End Sub
Private Sub Command1_Click （ ）
Dim cstart（1 To 50）As Integer'存储每个班级在数组classname中的起始位置
Dim cend（1 To 50）As Integer'存储每个班级在数组classname中的末尾位置
Dim k As Integer'存储班级数量
Dim testall（1 To 20）As Integer'存储每一项总选择人数，例如testall（1）里存储这评价项目1里的总人数，testc（1）里存储评价项目1里选C的人数
Dim testc（1 To 20）As Integer'存储每一题（项）选c的人数
'确定每个班级的起止位置，存储到cstart数组和cend数组
cstart（1）=1
temp=classname（1）
k=1
For i=1 To n
If classname（i）＜＞temp Then
①
k=k+1
cstart（k）=i
temp=classname（i）
End If
Next
cend（k）=n
For i=1 To k'每个班级分别统计评价项目
②
For q=1 To 20'对testall和testc数组初始化，
testall（q）=0
testc（q）=0
Next
For j=cstart（i） To cend（i）'对第i个班级进行统计
testall（xiangmu（j））=testall（xiangmu（j））+1
If selectabc（j）=″C″Then③
Next
For p=1 To 20'统计完成后输出这个班级的20个项目的 A+B所占百分比
s=s &″″&Str（Round（（testall（p）-testc（p））/testall（p）*100，1））
Next
List2．AddItem s
Next
End Sub组卷：2引用：1难度：0.2
