本卷为 2019年浙江卷技术高考真题,共 17 道题,平均得分率 56%。试卷适用地区:浙江省。涉及知识点:因特网服务类型、网络通信工作原理、人工智能典型应用场景、数据库与数据库管理系统、数制的转换、VB程序的调试、声音媒体的采集与制作、GoldWave 等。
| A.计算机中的信息是以十六进制形式存储的 | B.计算机信息处理能力只与CPU有关 |
| C.离开计算机网络,信息便无法传递 | D.使用加密技术可以提高信息的安全性 |
| A.从收件人电子邮件服务器中将邮件读到收件人计算机中 |
| B.从发件人计算机中将邮件发送到发件人电子邮件服务器中 |
| C.从发件人电子邮件服务器中将邮件发送到收件人电子邮件服务器中 |
| D.从发件人计算机中将邮件发送到收件人电子邮件服务器中 |
| A.门禁系统通过指纹识别确认身份 |
| B.某软件将输入的语音自动转换为文字 |
| C.机器人导游回答游客的问题,并提供帮助 |
| D.通过键盘输入商品编码,屏幕上显示出相应价格 |
| A.数据表中的字段数可以为0 |
| B.同一数据表中各记录的字段数是相同的 |
| C.数据表中有记录时,该表的字段类型无法修改 |
| D.在数据表中不能通过“导入Excel电子表格”的操作来添加记录 |
| A.D0 | B.34 | C.A9 | D.65 |

| A.8,10 | B.10,14 | C.12,6 | D.12,24 |

| A.执行“淡出”命令后直接保存,音频文件存储容量与原来一样 |
| B.执行“删除”命令后直接保存,音频文件存储容量与原来一样 |
| C.执行“插入静音”命令,设置时间为4秒后直接保存,音频文件存储容量与原来一样 |
| D.执行“更改音量”命令,将音量升高两倍后直接保存,音频文件存储容量是原来的两倍 |

| A.不能将“知了”图层移动到“纸鸢”图层的下方 |
| B.使用“文字工具”可将“文字”图层中的汉字字体改为楷体 |
| C.执行“自由变换”命令可以改变“诗句”图层中文字大小 |
| D.将“背景”图层设置为不可见后,保存成的JPEG格式图像背景透明 |

| A.“停止”按钮元件“指针经过”帧中实例的宽高比被锁定,则该实例的大小不能被修改 |
| B.将“停止”按钮元件“文字”图层锁定后,不能对该图层“点击”帧执行“删除帧”操作 |
| C.修改“停止”按钮元件“背景”图层“弹起”帧中的内容,“Load”场景中该按钮实例随之变化 |
| D.测试影片,鼠标移动到“停止”按钮上时,该按钮外观会发生变化 |
| A.4 | B.8 | C.16 | D.24 |
| A.52,95,46,74,77,83 | B.50,55,46,70,21,97 |
| C.62,78,57,61,69,50 | D.31,54,48,72,50,82 |
m = (i + j) \ 2
If a(m + 1) - a(m) > a(m) - a(m - 1) Then

Else

End if
Loop| A.① i = m ② j = m | B.① i = m ② j = m - 1 |
| C.① i = m + 1 ② j = m – 1 | D.① i = m + 1 ② j = m |



Dim s As String, t As String, ch As String
Dim c As String, num As String, ss As String
Dim n As Integer, i As Integer
s = Text1.Text: t = Text2.Text
c = "": num = "": ss = s
For i = Len(t) To 1 Step -1
If ch >= "a" And ch <= "z" Or ch >= "A" And ch = "Z" Then
c = ch + c
ElseIf ch >= "0" And ch <= "9" Then
num = ch + num
Else
n = Val(num)
If ch = "-" Then
s = Mid(s, 1, n - 1) +
Else
s = Mid(s, 1, n - 1) + Mid(s, n + Len(c), Len(s) - n - Len(c) + 1)
End If
ss = ss + "→" + s
c = "": num = ""
End If
Next i
Label1.Caption = ss
End Sub 

For j = 1 To n - i * 2
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
Next j
Next ij = 2 * i - 1
If a(j) > a(j+1) Then t = a(j): a(j) = a(j+1): a(j+1) = t
Next it = a(i): j = i - 1
Do While t < a(j)
a(j + 1) = a(j): j = j - 1
Loop
a(j + 1) = t
Next i第1段是从数组首个元素开始、元素值都属于第1区间的最长连续元素段。如果首个元素不属于第1区间,则第1段元素个数为0;
第1段分割后的剩余元素,用同样的方法来依次分割第2段、第3段、…、第m段;
第m段分割后的剩余元素分割到第m+1段(剩余段)。若第p(1≤p≤m-1)段末尾连续元素的值也同时属于第p+1区间,则这块连续元素称为第p段“重叠块”,该段其余部分称为第p段“非重叠块”。由于不存在第m+1区间,这里特别规定:第m段的全部元素都分割到m段“非重叠块”,第m段“重叠块”的元素个数为0,一个数组分段示例如下图。图中数组第1个元素10不属于第1区间[0,5],因此第1段的元素个数为0。10和20属于第2区间,而33不属于第2区间,因此第2段只包含10和20两个元素。第3段末尾连续3个元素的值也同时属于第4区间,因此,第3段“非重叠块”包含33,58,46,第3段“重叠块”包含55,62,69。

Dim i As Integer, p As Integer, L As Integer, LL As Integer
'读取n个数据并保存在数组a中,代码略
'读取m个区间的下限和上限并保存在数组b中,代码略
For i = 1 To 2 * m + 1
c(i) = 0Next i
i = 1: p = 1
L = 0: LL = 0
Do While
Loop
If i <= n Then
c(2 * p - 1) = n - i + 1Else
c(2 * p - 1) = L
c(2 * p) = LL
End If
'输出统计结果,代码略
End Sub