本卷为 2020年浙江卷技术高考真题,共 16 道题,平均得分率 58%。试卷适用地区:浙江省。涉及知识点:数据与信息的特征、URL的使用、建立主题网站、动态网页制作、Access、数据管理及数据管理技术、数制的转换、图片的插入 等。
| A.智能手机已成为信息处理的常用工具 |
| B.内存容量是影响计算机信息处理能力的因素之一 |
| C.未经数字化的图像所承载的信息是没有价值的 |
| D.人工智能广泛应用于图像识别、自然语言处理等领域 |
| A.使用搜索引擎对相同关键词检索两次,得到的结果一定相同 |
| B.用HTML(超文本标记语言)可以描述网页中的文本、图像和超链接等元素 |
| C.在IE浏览器中,使用“添加到收藏夹”功能可以保存正在浏览的网页内容 |
| D.在IE浏览器中,以“文本文件(*.txt)”类型保存网页,可以保存网页中的超链接地址 |
| 序号 | 问题编号 | 问题摘要 | 解答状态 | 学号 | 提问日期 |
| 1 | XX0051 | 选择排序优化 | 已解答 | 20180131 | 2020-3-10 |
| 2 | WL0192 | 共点力的合成 | 未解答 | 20191201 | 2020-4-11 |
| … | … | … | … | … | … |
A.![]() | B.![]() | C.![]() | D.![]() |
| A.F082 | B.EA30 | C.A906 | D.F311 |

| A.执行“拷贝”、“粘贴”命令后,粘贴的鹰图像将出现在新增图层中 |
| B.可以执行“自由变换”命令,调整鹰图像的大小和位置 |
| C.选中“飞越高峰”图层,添加“描边”图层样式,描边效果将呈现在矩形选区边缘 |
| D.选中“背景”图层,添加“镜头光晕”滤镜,滤镜效果将呈现在矩形选区外 |

| A.3:1 | B.6:1 | C.12:1 | D.18:1 |
| A.x<5 And x>= 9 |
| B.Not x > 5 And Not x< 9 |
| C.x >= 5 Or x< 9 |
| D.x<5 Or x >= 9 |

| A.2 | B.3 | C.4 | D.5 |
k =Val(Mid(sl,j,1))
c= c +Mid(s2,m +k,1)
j=j+1
If j>4 Then j= 1:m =m+ 4
Next i| A.acbdegfh | B.acbdacbd | C.acbdefgh | D.abcdefgh |
If a(i) > a(j) Then
(1)
(2)
Else
(3)
(4)
End If
i=1:j=j-1
Loop| A.④③②① | B.④②③① | C.③②④① | D.③①④② |
m=(i+j)\2
F(m)=1
If a(m)= key then Exit Do 'Exit Do表示退出循环
If a(m)> key Then j= m-1 Else i= m +1
Loop| A.1,1,0,0,1,0,0,0,0 |
| B.0,0,0,0,1,0,0,0,0 |
| C.0,0,0,0,1,1,1,1,0 |
| D.0,1,1,1,1,0,0,0,0 |
For j=6 To i+ 1 Step-l
If a(j)Mod 3 >a(j-1)Mod 3 Then
t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i| A.2,1,4,3,6,7 |
| B.5,2,1,7,8,3 |
| C.7,7,6,3,3,1 |
| D.8,7,4,3,3,2 |





Dim n As Integer, y As String
Dim cla(1 To 20)As Integer, num(I To 20)As Integer
Dim room as Integer '存储考场号
Dim seat as Integer '存储座位号
Function fm(k As Integer) As String
'返回整数k(l≤k≤99)对应的数字字符串,不足两位左侧补“0”,代码略
End function
Private Sub Command 1_ Click()
'从Text l中读取入学年份存入变量y,从数据库中读取该人学年份的班级数据,
'将班级个数存人变量n(1<n≤20),各班班号和人数分别存人数组cla和num,
'各班班号均大于0,各班人数均未超过总人数的一半,
'将数组cla和num按班级人数降序排列后,显示在List l中,代码略
End Sub
Private Sub Command 2_ Click()
Dim i As Integer, t As Integer, s As Integer
Dim choice As Integer, m As Integer, f As Boolean
room=1:seat=1:choice=0
①
Do While f = True
If cla (1) <> choice Then m= 1 Else m = 2
choice = cla(m)
'在列表框List2中显示准考证号、考场号、座位号
List 2. Addltem y+fm(cla(m))+fm(num(m))+" "+fm(room)+" "+fm(seat)
seat = seat+ 1
If seat > 30 Then

seat = 1
End If
Num(m)= num(m)-1
For i= ② To n-1 '维护班级降序序列(按未分配人数)
If num(i)< num(i + 1)Then
t=num(i):num(i)=num(i+1):num(i+1)=t
s = cla(i):cla(i)= cla(i + 1):cla(i+1)=s
Else
Exit For 'ExitFor表示退出循环
End If
Next i
If ③ Then f = False
Loop
End Sub
| 时间 | 第1小时 | 第2小时 | 第3小时 | 第4小时 | 第5小时 | 第6小时 | 第7小时 | |
| A城温度 | 30 | 30 | 33 | 33 | 31 | 31 | 32 | |
| A城数据 | 温度 | 30 | 33 | 31 | 32 | |||
| 截止时间 | 2 | 4 | 6 | 7 | ||||
| B城温度 | 20 | 20 | 20 | 22 | 21 | 21 | 22 | |
| B城数据 | 温度 | 20 | 22 | 21 | 22 | |||
| 持续时长 | 3 | 1 | 2 | 1 | ||||
| 计算结果 | 温差 | 10 | 13 | 11 | 10 | |||
| 持续时长 | 2 | 1 | 1 | 3 | ||||
Const m =1000 '温度数据和温差数据包含的记录数都少于1000
Dim na As Integer, nb as integer 'A、B城数据分别有na和nb个记录
Dim ha(m)As Integer 'ha(i)存储A城第i个记录中的温度
Dim ta(m)As Integer 'ta(i)存储A城第i个记录中的截止时间
Dim hb(m)As Integer 'hb(i)存储B城第i个记录中的温度
Dim tb(m)As Integer 'tb(i)存储B城第i个记录中的持续时长
Dim h(m)As Integer 'h(i)存储计算结果第i个记录中的温差
Dim t(m)As Integer 't(i)存储计算结果第i个记录中的持续时长
Private Sub Command l__ Click()
Dim i As Integer,j As Integer
Dim p0 As Integer,p1 As Integer,diff As Integer
Dim n As Integer '两城温差数据的记录个数
'读取两城数据,存入变量ma,nb及数组ha,ta,hb,tb中,代码略
For i=2 To nb
Tb(i)=
Next i
i=1:j=1
n=0
p0=0
Do While i < na And i<= nb
diff = ha(i)-hb(j)
pl = ta(i)
If
If p1 >= tb (j) Then
pl = tb(i)
j=j+1
End if
If n = 0 Or diff <> h(n) Then
n=n+l
h(n) = diff
t(n) = pl- p0
Else
End If
p0=pl
Loop
'输出两城温差数据,代码略
End Sub