2022诸暨高三上学期12月选考诊断性考试技术试题含答案

这是一份2022诸暨高三上学期12月选考诊断性考试技术试题含答案，共22页。试卷主要包含了选择题，非选择题等内容，欢迎下载使用。

诸暨市2021年12月高三诊断性考试试题
技术试题
第一部分 信息技术(共50分)
一、选择题(本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分)
1．下列有关信息与信息技术的说法不正确的是
A．计算机技术是传递信息的技术，通信技术是处理、存储信息的技术
B．信息作为一种社会资源自古就存在
C．语言和文字的出现是信息技术史上的重大事件
D．摄影技术、电影技术、广播和电视技术都属于近代信息技术
2．下列操作，没有体现人工智能技术的是
A．通过语音输入“人工智能”关键词在百度中搜索
B．通过手写方式输入“人工智能”关键词在百度中搜索
C．使用百度翻译把一篇“人工智能”内容的短文全文翻译成英语
D．在百度搜索引擎中使用“智能 ABC”音形输入法输入“人工智能”，搜索相关信息
3．用Access软件打开某数据表，部分界面如下图所示。下列说法正确的是










A．当前数据表共有7条记录，2个字段
B．数据表“仓储数据”中不能包含数据类型为自动编号的字段
C．若将“是/否”类型修改为“文本”类型，相应字段值将自动变成“Yes/No”
D．若要新增“商品数”字段，只能将其插入在“时间”字段之后
4．一个十进制正整数x转换为十六进制数为2位数，末位是“9”，下列说法正确的是
A．无法确定x是奇数还是偶数
B．正整数x最大的可能值是153
C．x Mod 8的十进制值不一定是1
D．x+1的十六进制数不可能是一个3位数
5．使用Photoshop软件制作“科技引领未来”作品，部分界面如图所示。












下列说法正确的是
A．可以使用文本工具修改“标题”图层中的文字字体
B．“正文”图层没有设置图层样式，也没有设置滤镜效果
C．“把握机遇”图层的图层样式不可视，“标题”图层的图层样式可视
D．可以直接使用“自由变换”命令改变“地球”图层的图像大小
6．有一个Photoshop作品的图像大小为800×600像素，颜色位深度为24位，分别将其存储为BMP格式图像A和JPEG格式图像B，已知图像B的文件容量为200KB，则图像A和图像B的压缩比约为
A．2:1 B．7:1 C．14:1 D．56:1
7．下列选项中，不能实现变量k值为0结果为1，k值为1结果为0的表达式是
A．1-k B．(1-k) ^ k C．(k+1) Mod 2 D．1-Int(Rnd * k)
8．某算法的部分流程图如图所示。













执行这部分流程，当输入x的值为21时，输出m，n的值分别是.
A．2，2 B．2，3 C．3，2 D．3，3
9．有一个“字符插入”程序的功能为：在文本框Text1中输入多个字符，在文本框Text2和Text3中分别输入插入的字符和插入的位置，单击“插入”按钮Command1，在文本框Text4中输出新生成的字符（若插入的位置大于原始字符长度，则将字符插入至末尾）。请将下列程序补充完整。
Private Sub Command1_Click()
wz = Val(Text3.Text): t = ""
If wz > Len(Text1.Text) Then
（1）
Else
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If i wz Then
（2）
Else
（3）
End If
Next i
End If
Text4.Text = t
End Sub
划线处的代码由以下三句组成
①t = t + c ②t = t + Text2.Text + c ③t = Text1.Text + Text2.Text
下列选项中代码顺序正确的是
A．③①② B．③②① C．②①③ D．②③①
10．有如下VB程序段：
s1 = "Beauty!": s2 = ""
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If c >= "a" And c = "A" And c pj(j + 1) Then
st = pp(j): pp(j) = pp(j - 1): pp(j - 1) = st
st = xh(j): xh(j) = xh(j - 1): xh(j - 1) = st
t = jg(j): jg(j) = jg(j - 1): jg(j - 1) = t
t = pj(j): pj(j) = pj(j - 1): pj(j - 1) = t
End If
Next j
Next i
'将对应品牌排序后的数据显示在列表框List2中，代码略。
End Sub
16．2022届毕业生开始，浙江省的赋分规则将由原赋分办法的21个等级变为20个赋分区间，赋分分差由3分细化为1分。在新等级赋分中，第1区间为100-97，第2区间为96-94……以此类推。
原等级赋分
100
97
94
91
88
85
82
79
76
73
70
比例（%）
1
2
3
4
5
6
7
8
7
7
7
新等级赋分
100-97
96-94
93-91
90-88
87-85
84-82
81-79
78-76
75-73
72-70
原等级赋分
67
64
61
58
55
52
49
46
43
40
　
比例（%）
7
7
7
6
5
4
3
2
1
1
　
新等级赋分
69-67
66-64
63-61
60-58
57-55
54-52
51-49
48-46
45-43
42-40
　
具体步骤为：
第一步，将卷面得分按人数比例划分为20个赋分区间，得出每个区间卷面得分的上限、下限。
第二步，对每个区间的卷面得分进行等比例转换，公式为：
其中，s2、s1为卷面得分区间的上限和下限，s为待转换卷面得分；t2、t1为赋分区间的上限和下限，t为卷面得分等比例转换后的赋分。
第三步，将转换结果四舍五入取整后即为等级赋分。
举例说明：赋分区间为87-85，如对应的卷面得分区间为84-81，某考生的卷面得分为83，通过等比例转换：，可以得出t=86.3，四舍五入取整后的等级赋分为86分。
现有某次考试的新等级赋分对应卷面得分区间的上限、下限对应表及该次考试同学卷面分和原等级赋分情况表，请编程实现计算该次考试新等级赋分情况。
新等级赋分
卷面得分区间的上限s2
卷面得分区间的下限s1
物理
化学
生物
政治
历史
地理
技术
物理
化学
生物
政治
历史
地理
技术
100-97
86
89
93
95
91
87
95
78
83
84
86
79
75
77
96-94
78
82
83
85
78
75
77
76
80
80
84
75
73
73
……
……
……
新等级赋分对应卷面得分区间上限、下限对应表
班级
姓名
卷面得分
原等级赋分
物理
化学
生物
政治
历史
地理
技术
物理
化学
生物
政治
历史
地理
技术
301
陈洲琦
0
0
0
56
51
0
37
0
0
0
61
70
0
61
302
周嘉
0
38
58
0
45
0
0
0
58
73
0
64
0
0
……
……
……
卷面分和原等级赋分情况表
请回答下列问题：
（1）若小李同学技术学科处于赋分区间为96-94，如对应的卷面得分区间为77-73，他的卷面得分为75，可以得出他新等级赋分为 。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim a(1 To 380) As Integer ‘卷面得分上下限
Dim b(1 To 700) As Integer ‘卷面分和原等级赋分
Dim dj(1 To 20) As String ‘新等级赋分
Dim m(1 To 100) As String ‘班级姓名数据
Dim n As Integer ‘需要赋分人数
通过数据库获取各变量值（代码略）：
数组a依次存储第一个新等级赋分的物化生政史地技卷面得分区间的上限、卷面得分区间的下限，再存储第二个新等级赋分的卷面得分区间……。数组b依次存储第一位同学的物化生政史地技卷面得分、原等级赋分，再存储第二位……。数组dj依次存储20个新等级赋分分数段。数组m依次存储第一位同学的班级、姓名，再存储第二位……。
Private Sub Command1_Click()
Dim s As Integer，djf As Integer，km As Integer
For i = 1 To n
①
xm = m(i * 2)
st = bj + xm
For j = 1 To 7
k = (i - 1) * 14 + j
If b(k) 0 Then
s = b(k)
djf = b(k + 7)
km = j
②
Else
ff = 0
End If
st = st + Str(ff)
Next j
List1.AddItem st
Next i
End Sub

Function Assign(s As Integer, ydjf As Integer, km As Integer) As Integer
Dim flag As Boolean
Dim t1 As Integer
Dim t2 As Integer
For i = 1 To 20
flag = True
t2 = 0
t1 = 0
For j = 1 To Len(dj(i))
c = Mid(dj(i), j, 1)
If c = "-" Then
flag = False
ElseIf flag Then
t2 = t2 * 10 + Val(c)
Else
t1 = t1 * 10 + Val(c)
End If
Next j
If ydjf >= t1 And ydjf