资源简介

浙江省2019-2020学年普通高校招生选考科目信息技术考试试卷(三)
一、选择题(本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求)
1．（2020·浙江模拟）下列有关信息的说法，正确的是(　　)
A．微信中发送的文字和图片是信息
B．计算机内部可以直接使用十六进制处理信息
C．通过无线网络传输的信息不依附于任何载体
D．采用“指纹+密码”方式进行网上支付，可提高信息的安全性
2．（2020·浙江模拟）小明启动IE浏览器后，自动访问图文并茂的某网页。此时，IE浏览器地址栏显示如图所示，下列描述不正确的是（　　）
A．地址栏中显示的是一个URL地址
B．通过HTTP协议将网页文件下载到本地计算机
C．网页index.html文件中包含了文字、图片和超链接
D．IE浏览器的主页设置为http：//zj..cn/GB/186938/186953/index.html
3．（2020·浙江模拟）下列应用中，体现了人工智能技术的有(　　)
①阿里vr购物中，用户带上头盔，眼前立刻出现梦幻般的购物景象，并进行购物；②与机器人对弈；③扫描图书中文字并保存为图片；④手机语音智能拨号；⑤利用人眼虹膜进行考勤
A．①②④ B．②④⑤ C．②③⑤ D．③④⑤
4．（2020·浙江模拟）为了检查编码传输中是否出错，广泛使用奇偶校验码检查。其中奇校验规定如下：在传输编码的最高位置前加一位“1”或“0”使得传输字符的编码“1”的个数恒为奇数；已知“P”(50H)的编码为“101010000B”那么“M”的编码为(　　)
A．101001101 B．001001001 C．001001101 D．101001001
5．（2020·浙江模拟）使用Goldwave软件编辑某音频时的部分界面截图如下图所示，下列说法正确的是(　　)
A．提高音量将会调整该声音的采样频率
B．该声音文件设置了淡入效果
C．执行“删除”操作后，该声音文件长度为35秒
D．执行“剪裁”操作后，被选中的部分音频将变成“静音”
6．（2020·浙江模拟）小红制作“元宵节”Flash动画，某按钮元件界面和相应属性如下图所示，下列描述正确的是(　　)
A．该按钮在指针经过时发出背景音乐，并重复1次
B．该按钮元件“汤圆”图层指针经过状态的内容和弹起状态的内容不相同
C．该按钮元件“点击”状态没有关键帧，导致该按钮时而有效，时而无效
D．若使该按钮正常使用，应在“文字”或“汤圆”图层点击状态插入空白关键帧
7．（2020·浙江模拟）某算法流程图如图所示，
执行该算法，输入n的值为13，下列说法正确的是(　　)
A．变量p为循环变量
B．该流程执行后，变量t的值是11
C．该算法功能：判断n是否是素数
D．该流程完整执行1次，“i≥2？”共执行了n-2次
8．（2019高二下·衢州期末）下列VB表达式的值等于23的是（　　）
A．Str(20) + “3” B．Len(“-20”) + 20
C．Val(“-20”) + 20 D．Abs(Int（-23.3）)
9．（2020·浙江模拟）有如下VB程序段：
For i = 1 To 6
a(i) = Int(Rnd * 10) + 1
Next i
For i = 2 To 6
If i Mod 2 = 0 And a(i)>a(i-1) Then
t=a(i)：a(i)=a(i-1)：a(i-1)=t
Else
a(i)=a(i)-1
End If
Next i
执行程序后，数组元素a(1)到a(6)的值可能是(　　)
A．11，1，7，5，4，3, B．5，3，6，4，0，2
C．10，9，8，0，5，2 D．9，8，1，1，5，4
10．（2019高二下·湖州期末）有如下 VB 程序段：
i = 1: j = 63: n = 0
Do While i <= j
m = (i + j) \ 2
If key = a(m) Then Exit Do
ElseIf key < a(m) Then j = m - 1: n = n - 1
Else
i = m + 1: n = n + 1 End If
Loop
数组元素a(1)到a(63)存放着递增的数据。若执行该程序段后，n 的值为 6，则下列表达式成立的是（　　）
A．key < a(1) B．key = a(1) C．key = a(63) D．key > a(63)
11．（2020·浙江模拟）小赵对选择排序算法进行了修改改进，VB程序段如下：
i = n
Do While i >=2
k = i
For j = To 1 Step -1
If a(j) > a(k) Then k = j
Next j
If i <> k Then
t = a(k): a(k) = a(i): a(i) = t
End If
Loop
则下列说法正确的是(　　)
A．①应填入的内容为n B．该段程序实现降序排列
C．变量t与数组a的类型可能不一样 D．②应填入的内容为i = i - 1
12．（2020·浙江模拟）自定义函数delStr(S，m)的功能是删除字符串S中第m位上的字符，
Function delStr(S As String, m As Integer) As String
Dim n As Integer
n = Len(S)
If m < 1 Or m > n Then
delStr = ”输入位置有误！”
ElseIf m = 1 Then
delStr = Mid(S, 2, n - 1)
ElseIf m < n Then
ElseIf m = n Then
delStr = Mid(S, 1, n - 1)
End If
End Function
则横线处代码填写正确的是(　　)
A．delStr = Mid(S, 1, m) + Mid(S, m + 1, n)
B．delStr = Mid(S, 1, m - 1) + Mid(S, m , n)
C．delStr = Mid(S, 1, m) + Mid(S, m, n - m)
D．delStr = Mid(S, 1, m - 1) + Mid(S, m + 1, n - m)
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2020·浙江模拟）小张同学收集了某网店2018淘宝双十一购物狂欢节促销商品清单数据(共300条商品信息)，并使用Excel软件进行数据处理，如图所示。
请回答下列问题：
（1）表中“折扣价(元)”的计算采用单件“满100减40”的折扣方案，选择D3单元格输入公式，然后用自动填充功能完成D4：D302的计算。则D3单元格中的公式为　 　。(提示：折扣价=市场价-INT(市场价÷100)×40，INT函数作用是将数值向下取整，如INT(4.5)=4。)
（2）表中“市场价(元)”和“折扣价(元)”列中的单元格进行了　 　的操作。(单选，填字母：A . 增加小数位数 / B . 使用千位分隔符 / C . 设置百分比格式)
（3）要查看折扣最大(折扣=折扣价÷市场价)的连衣裙，下列操作可以实现的是______(多选，填字母)。
A．以“折扣”为关键字升序排序，再以“商品名称”为包含连衣裙进行筛选，选最前面的商品
B．以“商品名称”为包含连衣裙，以“折扣”为最小1项进行筛选，选最前面的商品
C．以“商品名称”为包含连衣裙进行筛选，再以“折扣”为关键字升序排序，选最前面的商品
D．以“商品名称”为包含连衣裙进行筛选，再用最大值函数MAX计算折扣列中的最大值，最后按最大值挑选商品
14．（2020·浙江模拟）某同学创作了一个关于“鲲龙AG600”的多媒体作品，首先他用Photoshop软件处理图片，然后使用Flash软件制作动画，请回答下列问题：
（1）如图a所示，要获得透明背景的鲲龙图像，下列操作可以实现的是　 　(多选，填字母：A . 选中“背景”图层并删除，然后存储为png格式 /B . 选中“背景”图层，设置不透明度为0%，然后存储为png格式 /C . 选中“背景”图层，用橡皮擦擦除其中的图像，然后存储为png格式 /D . 选中“背景”图层，设置为不可见，然后存储为png格式)。
图a
（2）“文字”图层第1帧至第20帧实现了由文字“鲲龙首飞”逐渐变为文字“国之重器”的动画效果，则动画类型为　 　。(单选，填字母：A . 动画补间/B . 形状补间/C . 逐帧动画)
图b
（3）若要在“飞机”图层第1帧至第40帧实现飞机在空中飞行到当前位置的过程中逐渐消失的动画效果，应进行的操作是　 　。
（4）“声音”图层的同步方式如图c所示，若在第20帧处执行“清除关键帧”操作，则声音播放时长为　 　秒。
图c
（5）要想通过单击“更多”按钮，打开同一目录下的“kunlong.docx”文件了解更多详情。则在该按钮上添加的动作脚本是　 　。
15．（2020·浙江模拟）某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试的资格线根据计划录取人数的200%划定，即如果考试最终录取x人，则第2*x名选手的笔试分数为面试资格分数线(该分若有同分者可一同参加面试)。现在编写VB程序功能如下：自动读取数据库中考生考号和笔试成绩，依次存储在数组kh(i)、cj (i)中，并显示在Listl列表框中。
用户从Text1中输入计划人数，单击“入围划线”按钮Command1，面试分数线显示在文本框Text2 中，入围面试最终人数显示在 Text3中，进入面试考生的考号和笔试成绩显示在List2列表框中，如果成绩相同，则按考号从小到大的顺序显示。程序界面如图所示。
Dim kh(1 To 500) As String, cj(1 To 500) As Integer
Dim n As Integer ′参加考试总人数
Private Sub Form_Load()
Dim conn As New ADODB.Conncction
Dim rs As New ADODB.Recordset
conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0；datasource=”+App.Path + ”\BSCJ.accdb”
conn.Open
Set rs.ActiveConnection = conn
rs.Open “select * FROM scoreinfo”
′本过程其他代码略
End Sub
Private Sub Commandl_click()
Dim m As Integer, i As Integer, j As Integer
Dim t1 As Integer, t2 As String, flag As Boolean
For i = 1 To n - 1
For j = 1 To
If cj(i) < cj(j) Then
t1 = cj(i): cj(i) = cj(j): cj(j) = t1
t2 = kh(i): kh(i) = kh(j): kh(j) = t2
EleIf ① Then
t2 = kh(i): kh(i) = kh(j): kh(j) = t2
End If
Next j
Next i
m = ②
If m <= n Then
i = m
flag = Flase
Do While i < n And Not flag
If cj(i) = cj(i + 1) Then
i = i + 1
Else
③
End If
Loop
Text2.Text = Str(cj(m))
Text3.Text = Str(i)
For j = 1 To i
List2.Addltem kh(j) + “ ” + Str(cj(j))
Next j
Else
Text2.Text = “面试人数超过了总人数”
End If
End Sub
（1）由代码可知，读取的数据库文件名为 　 　。
（2）下面加框处代码有错误，请改正。
（3）请在划线处填入适当的代码。
①　 　②　 　③　 　
16．（2020·浙江模拟）维吉尼亚(Vigenere)密码。如下图所示，分别用行和列表示待加密的字符(明文)和当前字符的密钥，行和列的交叉点的字符即为加密后的结果(密文)。在加密时，密文与明文的字母大小写形式保持一致，如，明文字母为大写，则加密后的密文字母也为大写；当密钥长度不足时重复使用密钥。例如：当明文M=HelloWorld，密钥K=abc时，密文C=HfnlpYosnd。运算过程如下所示：
明文：HelloWorld
密钥：abcabcabca
密文：HfnlpYosnd
　 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
A A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
B B C D E F G H I J K L M N O P Q R S T U V W X Y Z A
C C D E F G H I J K L M N O P Q R S T U V W X Y Z A B
D D E F G H I J K L M N O P Q R S T U V W X Y Z A B C
E E F G H I J K L M N O P Q R S T U V W X Y Z A B C D
F F G H I J K L M N O P Q R S T U V W X Y Z A B C D E
G G H I J K L M N O P Q R S T U V W X Y Z A B C D E F
H H I J K L M N O P Q R S T U V W X Y Z A B C D E F G
I I J K L M N O P Q R S T U V W X Y Z A B C D E F G H
J J K L M N O P Q R S T U V W X Y Z A B C D E F G H I
K K L M N O P Q R S T U V W X Y Z A B C D E F G H I J
L L M N O P Q R S T U V W X Y Z A B C D E F G H I J K
M M N O P Q R S T U V W X Y Z A B C D E F G H I J K L
N N O P Q R S T U V W X Y Z A B C D E F G H I J K L M
O O P Q R S T U V W X Y Z A B C D E F G H I J K L M N
P P Q R S T U V W X Y Z A B C D E F G H I J K L M N O
Q Q R S T U V W X Y Z A B C D E F G H I J K L M N O P
R R S T U V W X Y Z A B C D E F G H I J K L M N O P Q
S S T U V W X Y Z A B C D E F G H I J K L M N O P Q R
T T U V W X Y Z A B C D E F G H I J K L M N O P Q R S
U U V W X Y Z A B C D E F G H I J K L M N O P Q R S T
V V W X Y Z A B C D E F G H I J K L M N O P Q R S T U
W W X Y Z A B C D E F G H I J K L M N O P Q R S T U V
X X Y Z A B C D E F G H I J K L M N O P Q R S T U V W
Y Y Z A B C D E F G H I J K L M N O P Q R S T U V W X
Z Z A B C D E F G H I J K L M N O P Q R S T U V W X Y
依据上述算法描述设计了如下VB程序。请回答下列问题：
（1）若明文是Jia，密钥是Pass，则输出的密文是：　 　。
（2）请在横线处填上合适的代码。
Const MIN_ASC = 65 ′字母“A”的ASCII值
Function X2D(x As String) As String ′字符串小写转成大写
Dim s As String, zf As String, i As Integer
s = “”
For i = 1 To Len(x)
zf = Mid(x, i, 1)
If zf >= “a” And zf <= “z” Then
s = s +　 　
Else
s = s + zf
End If
Next i
X2D = s
End Function
Private Sub Command1_Click()
Dim M As String, K As String, C As String, flag As Boolean
Dim i As Integer, t As Integer, ch As Integer, pos As Integer, j As Integer
M = Text1.Text ′明文
K = Text2.Text ′密钥
t = Len(K)
K = X2D(K) ′将密钥全部转成大写
C = “ ” ′加密后的结果
For i = 1 To Len(M)
ch = Asc(Mid(M, i, 1))
flag = False
If ch >= 97 And ch <= 122 Then ch = ch - 32: flag = True
pos =　 　 ′密钥的字符位置值
If pos = 0 Then pos = t
j = Asc(Mid(K, pos, 1)) ′密钥字符的ASCII值
ch = ch - MIN_ASC
j = j - MIN_ASC
ch = 　 　
ch = ch + MIN_ASC
If flag Then ch = ch + 32 ′设置字母的大小写形式
C = C & Chr(ch)
Next i
Text3.Text = C
End Sub
答案解析部分
1．【答案】D
【知识点】信息及其特征；信息系统安全防护；计算机、移动终端的工作原理
2．【答案】C
【知识点】网址与统一资源定位器；浏览器
3．【答案】B
【知识点】人工智能的应用
4．【答案】A
【知识点】信息的编码
5．【答案】C
【知识点】声音素材的基本处理
6．【答案】B
【知识点】元件的类型与应用
7．【答案】C
【知识点】常量、变量及变量的赋值；流程图识读
【解析】【解答】变量i为循环变量，p＝0？是判断语句的条件表达式，选项A错误；这些i都不能被n整除，说明n是素数，选项C正确；输入n的值为13，i的值分别为12、11、10……2，共计n-2个，因此“i≥2？”共执行了n-1次，选项D错误。故答案选C。
【分析】本题考查的是对流程图的识读以及对语句的理解。
8．【答案】B
【知识点】运算符、基本运算与表达式
【解析】【解答】选项A：Str(20) + “3”="20"+"3"="203"。A错误；选项B：Len(“-20”) + 20=3+20=23。B正确；选项C：Val(“-20”) + 20=-20+20=0。C错误；选项D：Abs(Int（-23.3）)=Abs(-24)=24。D错误。故答案选B。
【分析】本题考查学生对VB常用标准函数的熟练掌握，主要涉及Str()、Len()、Val()等函数。
9．【答案】A
【知识点】常见数据类型、数组；常量、变量及变量的赋值
【解析】【解答】每个数的范围是[1，10]。如果满足条件i Mod 2 ＝ 0 And a(i)>a(i－1)，即i＝2，4，6时，且他比他前一个数大，进行交换，即偶数位的数字比奇数位小，与前面一个数交换不可能为0，偶数位数字为0，只可能是a(i)<＝a(i－1)。对于奇数位，没有操作，不可能为0。当i是偶数，且a(i)<＝a(i－1), a(i)－1之后，两数不可能相等。故答案选A。
【分析】本题考查的是对程序及语句的理解。
10．【答案】D
【知识点】查找算法及程序实现
【解析】【解答】本题程序分析如下：
i = 1: j = 63: n = 0 ‘给变量i、j和n赋初值，i为要查找数组的下标的下限，j为要查找数组的下标的上限，n为计数器用于统计查找次数
Do While i <= j ‘当下标下限小于上限时进行循环（查找）
m = (i + j) \ 2 ‘将下标下限和上限之和的一半赋给变量m，m为要查找数组下标的中值
If key = a(m) Then Exit Do ‘如果数组中值元素的值和要查找的数据相同则退出循环
ElseIf key < a(m) Then j = m - 1: n = n - 1 ‘否则如果要查找数据小于中值时则将下标上限值设为原中值少1，并将计数器变量n减1
Else ‘否则（即要查找的数据比数组中值大时）则进行如下处理
i = m + 1: n = n + 1 ‘将下标下限值设为原中值多1，并将计数器变量n加1
End If
Loop
选项A：如果key值小于a（1）则一直在前半个数组中查找则n一直递减，查找过程为a（32）、a(16)、a(8)、a（4）、a（2）、a（1）最后一次循环将j值再减1，故n=-6。选项B：由选项A分析知，最后没有执行n=n-1，故n=-5。选项C：如果key值等于a（63）则一直在后半个数组中查找则n一直递增，查找过程为a（32）、a（48）、a（56）、a（60）、a（62）、a（63），共6次，但最后一次没有执行n=n+1，故n=5。选项D：如果key值大于a（63）则一直在后半个数组中查找则n一直递增，查找过程为a（32）、a（48）、a（56）、a（60）、a（62）、a（63），在查找a（63）后，key仍比a（63）大则执行 i = m + 1: n = n + 1 语句，故n=6。故答案选D。
【分析】本题考查的是对使用分法查找数据的方法，对分法查找过程是先将一个数列放于一个有序数组中，然后比较中间数组元素的值与要查找的值，或中间数组的值比要查找的值大，则在前半个数组中查找，若中间数组的值比要查找的值小则在后半个数组中查找。查找方法仍是比较中间数组元素的值和要查找的值。以此类推直到查到或下限大于了上限（没查找）为止。
11．【答案】D
【知识点】常量、变量及变量的赋值；排序算法及程序实现
12．【答案】D
【知识点】过程与自定义函数
13．【答案】（1）=C3-INT(C3/100)*40
（2）B
（3）A；C
【知识点】表格数据的基本操作；表格数据的处理与计算
14．【答案】（1）AD
（2）B
（3）将“飞机”图层第50帧移至第40帧处，并将第40帧中对象Alpha值设置为0 或0%(或其他等价答案)
（4）4.6
（5）On(release){geturl(“kunlong.docx”)；} 或On(press){geturl(“kunlong.docx”)；}
【知识点】图片加工常用工具的使用；图层及图层的基本操作；动画的类型；时间轴、帧、图层、库的概念及基本操作
15．【答案】（1）BSCJ.accdb
（2）n-i+1
（3）cj(i)= cj(j)；2*Val(Text.Text)；flag = True
【知识点】常量、变量及变量的赋值；排序算法及程序实现
16．【答案】（1）Yis
（2）Chr(Asc(zf) - 32)；i Mod t；(ch + j) Mod 26
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值；过程与自定义函数；加密与解密算法
1 / 1浙江省2019-2020学年普通高校招生选考科目信息技术考试试卷(三)
一、选择题(本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求)
1．（2020·浙江模拟）下列有关信息的说法，正确的是(　　)
A．微信中发送的文字和图片是信息
B．计算机内部可以直接使用十六进制处理信息
C．通过无线网络传输的信息不依附于任何载体
D．采用“指纹+密码”方式进行网上支付，可提高信息的安全性
【答案】D
【知识点】信息及其特征；信息系统安全防护；计算机、移动终端的工作原理
2．（2020·浙江模拟）小明启动IE浏览器后，自动访问图文并茂的某网页。此时，IE浏览器地址栏显示如图所示，下列描述不正确的是（　　）
A．地址栏中显示的是一个URL地址
B．通过HTTP协议将网页文件下载到本地计算机
C．网页index.html文件中包含了文字、图片和超链接
D．IE浏览器的主页设置为http：//zj..cn/GB/186938/186953/index.html
【答案】C
【知识点】网址与统一资源定位器；浏览器
3．（2020·浙江模拟）下列应用中，体现了人工智能技术的有(　　)
①阿里vr购物中，用户带上头盔，眼前立刻出现梦幻般的购物景象，并进行购物；②与机器人对弈；③扫描图书中文字并保存为图片；④手机语音智能拨号；⑤利用人眼虹膜进行考勤
A．①②④ B．②④⑤ C．②③⑤ D．③④⑤
【答案】B
【知识点】人工智能的应用
4．（2020·浙江模拟）为了检查编码传输中是否出错，广泛使用奇偶校验码检查。其中奇校验规定如下：在传输编码的最高位置前加一位“1”或“0”使得传输字符的编码“1”的个数恒为奇数；已知“P”(50H)的编码为“101010000B”那么“M”的编码为(　　)
A．101001101 B．001001001 C．001001101 D．101001001
【答案】A
【知识点】信息的编码
5．（2020·浙江模拟）使用Goldwave软件编辑某音频时的部分界面截图如下图所示，下列说法正确的是(　　)
A．提高音量将会调整该声音的采样频率
B．该声音文件设置了淡入效果
C．执行“删除”操作后，该声音文件长度为35秒
D．执行“剪裁”操作后，被选中的部分音频将变成“静音”
【答案】C
【知识点】声音素材的基本处理
6．（2020·浙江模拟）小红制作“元宵节”Flash动画，某按钮元件界面和相应属性如下图所示，下列描述正确的是(　　)
A．该按钮在指针经过时发出背景音乐，并重复1次
B．该按钮元件“汤圆”图层指针经过状态的内容和弹起状态的内容不相同
C．该按钮元件“点击”状态没有关键帧，导致该按钮时而有效，时而无效
D．若使该按钮正常使用，应在“文字”或“汤圆”图层点击状态插入空白关键帧
【答案】B
【知识点】元件的类型与应用
7．（2020·浙江模拟）某算法流程图如图所示，
执行该算法，输入n的值为13，下列说法正确的是(　　)
A．变量p为循环变量
B．该流程执行后，变量t的值是11
C．该算法功能：判断n是否是素数
D．该流程完整执行1次，“i≥2？”共执行了n-2次
【答案】C
【知识点】常量、变量及变量的赋值；流程图识读
【解析】【解答】变量i为循环变量，p＝0？是判断语句的条件表达式，选项A错误；这些i都不能被n整除，说明n是素数，选项C正确；输入n的值为13，i的值分别为12、11、10……2，共计n-2个，因此“i≥2？”共执行了n-1次，选项D错误。故答案选C。
【分析】本题考查的是对流程图的识读以及对语句的理解。
8．（2019高二下·衢州期末）下列VB表达式的值等于23的是（　　）
A．Str(20) + “3” B．Len(“-20”) + 20
C．Val(“-20”) + 20 D．Abs(Int（-23.3）)
【答案】B
【知识点】运算符、基本运算与表达式
【解析】【解答】选项A：Str(20) + “3”="20"+"3"="203"。A错误；选项B：Len(“-20”) + 20=3+20=23。B正确；选项C：Val(“-20”) + 20=-20+20=0。C错误；选项D：Abs(Int（-23.3）)=Abs(-24)=24。D错误。故答案选B。
【分析】本题考查学生对VB常用标准函数的熟练掌握，主要涉及Str()、Len()、Val()等函数。
9．（2020·浙江模拟）有如下VB程序段：
For i = 1 To 6
a(i) = Int(Rnd * 10) + 1
Next i
For i = 2 To 6
If i Mod 2 = 0 And a(i)>a(i-1) Then
t=a(i)：a(i)=a(i-1)：a(i-1)=t
Else
a(i)=a(i)-1
End If
Next i
执行程序后，数组元素a(1)到a(6)的值可能是(　　)
A．11，1，7，5，4，3, B．5，3，6，4，0，2
C．10，9，8，0，5，2 D．9，8，1，1，5，4
【答案】A
【知识点】常见数据类型、数组；常量、变量及变量的赋值
【解析】【解答】每个数的范围是[1，10]。如果满足条件i Mod 2 ＝ 0 And a(i)>a(i－1)，即i＝2，4，6时，且他比他前一个数大，进行交换，即偶数位的数字比奇数位小，与前面一个数交换不可能为0，偶数位数字为0，只可能是a(i)<＝a(i－1)。对于奇数位，没有操作，不可能为0。当i是偶数，且a(i)<＝a(i－1), a(i)－1之后，两数不可能相等。故答案选A。
【分析】本题考查的是对程序及语句的理解。
10．（2019高二下·湖州期末）有如下 VB 程序段：
i = 1: j = 63: n = 0
Do While i <= j
m = (i + j) \ 2
If key = a(m) Then Exit Do
ElseIf key < a(m) Then j = m - 1: n = n - 1
Else
i = m + 1: n = n + 1 End If
Loop
数组元素a(1)到a(63)存放着递增的数据。若执行该程序段后，n 的值为 6，则下列表达式成立的是（　　）
A．key < a(1) B．key = a(1) C．key = a(63) D．key > a(63)
【答案】D
【知识点】查找算法及程序实现
【解析】【解答】本题程序分析如下：
i = 1: j = 63: n = 0 ‘给变量i、j和n赋初值，i为要查找数组的下标的下限，j为要查找数组的下标的上限，n为计数器用于统计查找次数
Do While i <= j ‘当下标下限小于上限时进行循环（查找）
m = (i + j) \ 2 ‘将下标下限和上限之和的一半赋给变量m，m为要查找数组下标的中值
If key = a(m) Then Exit Do ‘如果数组中值元素的值和要查找的数据相同则退出循环
ElseIf key < a(m) Then j = m - 1: n = n - 1 ‘否则如果要查找数据小于中值时则将下标上限值设为原中值少1，并将计数器变量n减1
Else ‘否则（即要查找的数据比数组中值大时）则进行如下处理
i = m + 1: n = n + 1 ‘将下标下限值设为原中值多1，并将计数器变量n加1
End If
Loop
选项A：如果key值小于a（1）则一直在前半个数组中查找则n一直递减，查找过程为a（32）、a(16)、a(8)、a（4）、a（2）、a（1）最后一次循环将j值再减1，故n=-6。选项B：由选项A分析知，最后没有执行n=n-1，故n=-5。选项C：如果key值等于a（63）则一直在后半个数组中查找则n一直递增，查找过程为a（32）、a（48）、a（56）、a（60）、a（62）、a（63），共6次，但最后一次没有执行n=n+1，故n=5。选项D：如果key值大于a（63）则一直在后半个数组中查找则n一直递增，查找过程为a（32）、a（48）、a（56）、a（60）、a（62）、a（63），在查找a（63）后，key仍比a（63）大则执行 i = m + 1: n = n + 1 语句，故n=6。故答案选D。
【分析】本题考查的是对使用分法查找数据的方法，对分法查找过程是先将一个数列放于一个有序数组中，然后比较中间数组元素的值与要查找的值，或中间数组的值比要查找的值大，则在前半个数组中查找，若中间数组的值比要查找的值小则在后半个数组中查找。查找方法仍是比较中间数组元素的值和要查找的值。以此类推直到查到或下限大于了上限（没查找）为止。
11．（2020·浙江模拟）小赵对选择排序算法进行了修改改进，VB程序段如下：
i = n
Do While i >=2
k = i
For j = To 1 Step -1
If a(j) > a(k) Then k = j
Next j
If i <> k Then
t = a(k): a(k) = a(i): a(i) = t
End If
Loop
则下列说法正确的是(　　)
A．①应填入的内容为n B．该段程序实现降序排列
C．变量t与数组a的类型可能不一样 D．②应填入的内容为i = i - 1
【答案】D
【知识点】常量、变量及变量的赋值；排序算法及程序实现
12．（2020·浙江模拟）自定义函数delStr(S，m)的功能是删除字符串S中第m位上的字符，
Function delStr(S As String, m As Integer) As String
Dim n As Integer
n = Len(S)
If m < 1 Or m > n Then
delStr = ”输入位置有误！”
ElseIf m = 1 Then
delStr = Mid(S, 2, n - 1)
ElseIf m < n Then
ElseIf m = n Then
delStr = Mid(S, 1, n - 1)
End If
End Function
则横线处代码填写正确的是(　　)
A．delStr = Mid(S, 1, m) + Mid(S, m + 1, n)
B．delStr = Mid(S, 1, m - 1) + Mid(S, m , n)
C．delStr = Mid(S, 1, m) + Mid(S, m, n - m)
D．delStr = Mid(S, 1, m - 1) + Mid(S, m + 1, n - m)
【答案】D
【知识点】过程与自定义函数
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2020·浙江模拟）小张同学收集了某网店2018淘宝双十一购物狂欢节促销商品清单数据(共300条商品信息)，并使用Excel软件进行数据处理，如图所示。
请回答下列问题：
（1）表中“折扣价(元)”的计算采用单件“满100减40”的折扣方案，选择D3单元格输入公式，然后用自动填充功能完成D4：D302的计算。则D3单元格中的公式为　 　。(提示：折扣价=市场价-INT(市场价÷100)×40，INT函数作用是将数值向下取整，如INT(4.5)=4。)
（2）表中“市场价(元)”和“折扣价(元)”列中的单元格进行了　 　的操作。(单选，填字母：A . 增加小数位数 / B . 使用千位分隔符 / C . 设置百分比格式)
（3）要查看折扣最大(折扣=折扣价÷市场价)的连衣裙，下列操作可以实现的是______(多选，填字母)。
A．以“折扣”为关键字升序排序，再以“商品名称”为包含连衣裙进行筛选，选最前面的商品
B．以“商品名称”为包含连衣裙，以“折扣”为最小1项进行筛选，选最前面的商品
C．以“商品名称”为包含连衣裙进行筛选，再以“折扣”为关键字升序排序，选最前面的商品
D．以“商品名称”为包含连衣裙进行筛选，再用最大值函数MAX计算折扣列中的最大值，最后按最大值挑选商品
【答案】（1）=C3-INT(C3/100)*40
（2）B
（3）A；C
【知识点】表格数据的基本操作；表格数据的处理与计算
14．（2020·浙江模拟）某同学创作了一个关于“鲲龙AG600”的多媒体作品，首先他用Photoshop软件处理图片，然后使用Flash软件制作动画，请回答下列问题：
（1）如图a所示，要获得透明背景的鲲龙图像，下列操作可以实现的是　 　(多选，填字母：A . 选中“背景”图层并删除，然后存储为png格式 /B . 选中“背景”图层，设置不透明度为0%，然后存储为png格式 /C . 选中“背景”图层，用橡皮擦擦除其中的图像，然后存储为png格式 /D . 选中“背景”图层，设置为不可见，然后存储为png格式)。
图a
（2）“文字”图层第1帧至第20帧实现了由文字“鲲龙首飞”逐渐变为文字“国之重器”的动画效果，则动画类型为　 　。(单选，填字母：A . 动画补间/B . 形状补间/C . 逐帧动画)
图b
（3）若要在“飞机”图层第1帧至第40帧实现飞机在空中飞行到当前位置的过程中逐渐消失的动画效果，应进行的操作是　 　。
（4）“声音”图层的同步方式如图c所示，若在第20帧处执行“清除关键帧”操作，则声音播放时长为　 　秒。
图c
（5）要想通过单击“更多”按钮，打开同一目录下的“kunlong.docx”文件了解更多详情。则在该按钮上添加的动作脚本是　 　。
【答案】（1）AD
（2）B
（3）将“飞机”图层第50帧移至第40帧处，并将第40帧中对象Alpha值设置为0 或0%(或其他等价答案)
（4）4.6
（5）On(release){geturl(“kunlong.docx”)；} 或On(press){geturl(“kunlong.docx”)；}
【知识点】图片加工常用工具的使用；图层及图层的基本操作；动画的类型；时间轴、帧、图层、库的概念及基本操作
15．（2020·浙江模拟）某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试的资格线根据计划录取人数的200%划定，即如果考试最终录取x人，则第2*x名选手的笔试分数为面试资格分数线(该分若有同分者可一同参加面试)。现在编写VB程序功能如下：自动读取数据库中考生考号和笔试成绩，依次存储在数组kh(i)、cj (i)中，并显示在Listl列表框中。
用户从Text1中输入计划人数，单击“入围划线”按钮Command1，面试分数线显示在文本框Text2 中，入围面试最终人数显示在 Text3中，进入面试考生的考号和笔试成绩显示在List2列表框中，如果成绩相同，则按考号从小到大的顺序显示。程序界面如图所示。
Dim kh(1 To 500) As String, cj(1 To 500) As Integer
Dim n As Integer ′参加考试总人数
Private Sub Form_Load()
Dim conn As New ADODB.Conncction
Dim rs As New ADODB.Recordset
conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0；datasource=”+App.Path + ”\BSCJ.accdb”
conn.Open
Set rs.ActiveConnection = conn
rs.Open “select * FROM scoreinfo”
′本过程其他代码略
End Sub
Private Sub Commandl_click()
Dim m As Integer, i As Integer, j As Integer
Dim t1 As Integer, t2 As String, flag As Boolean
For i = 1 To n - 1
For j = 1 To
If cj(i) < cj(j) Then
t1 = cj(i): cj(i) = cj(j): cj(j) = t1
t2 = kh(i): kh(i) = kh(j): kh(j) = t2
EleIf ① Then
t2 = kh(i): kh(i) = kh(j): kh(j) = t2
End If
Next j
Next i
m = ②
If m <= n Then
i = m
flag = Flase
Do While i < n And Not flag
If cj(i) = cj(i + 1) Then
i = i + 1
Else
③
End If
Loop
Text2.Text = Str(cj(m))
Text3.Text = Str(i)
For j = 1 To i
List2.Addltem kh(j) + “ ” + Str(cj(j))
Next j
Else
Text2.Text = “面试人数超过了总人数”
End If
End Sub
（1）由代码可知，读取的数据库文件名为 　 　。
（2）下面加框处代码有错误，请改正。
（3）请在划线处填入适当的代码。
①　 　②　 　③　 　
【答案】（1）BSCJ.accdb
（2）n-i+1
（3）cj(i)= cj(j)；2*Val(Text.Text)；flag = True
【知识点】常量、变量及变量的赋值；排序算法及程序实现
16．（2020·浙江模拟）维吉尼亚(Vigenere)密码。如下图所示，分别用行和列表示待加密的字符(明文)和当前字符的密钥，行和列的交叉点的字符即为加密后的结果(密文)。在加密时，密文与明文的字母大小写形式保持一致，如，明文字母为大写，则加密后的密文字母也为大写；当密钥长度不足时重复使用密钥。例如：当明文M=HelloWorld，密钥K=abc时，密文C=HfnlpYosnd。运算过程如下所示：
明文：HelloWorld
密钥：abcabcabca
密文：HfnlpYosnd
　 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
A A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
B B C D E F G H I J K L M N O P Q R S T U V W X Y Z A
C C D E F G H I J K L M N O P Q R S T U V W X Y Z A B
D D E F G H I J K L M N O P Q R S T U V W X Y Z A B C
E E F G H I J K L M N O P Q R S T U V W X Y Z A B C D
F F G H I J K L M N O P Q R S T U V W X Y Z A B C D E
G G H I J K L M N O P Q R S T U V W X Y Z A B C D E F
H H I J K L M N O P Q R S T U V W X Y Z A B C D E F G
I I J K L M N O P Q R S T U V W X Y Z A B C D E F G H
J J K L M N O P Q R S T U V W X Y Z A B C D E F G H I
K K L M N O P Q R S T U V W X Y Z A B C D E F G H I J
L L M N O P Q R S T U V W X Y Z A B C D E F G H I J K
M M N O P Q R S T U V W X Y Z A B C D E F G H I J K L
N N O P Q R S T U V W X Y Z A B C D E F G H I J K L M
O O P Q R S T U V W X Y Z A B C D E F G H I J K L M N
P P Q R S T U V W X Y Z A B C D E F G H I J K L M N O
Q Q R S T U V W X Y Z A B C D E F G H I J K L M N O P
R R S T U V W X Y Z A B C D E F G H I J K L M N O P Q
S S T U V W X Y Z A B C D E F G H I J K L M N O P Q R
T T U V W X Y Z A B C D E F G H I J K L M N O P Q R S
U U V W X Y Z A B C D E F G H I J K L M N O P Q R S T
V V W X Y Z A B C D E F G H I J K L M N O P Q R S T U
W W X Y Z A B C D E F G H I J K L M N O P Q R S T U V
X X Y Z A B C D E F G H I J K L M N O P Q R S T U V W
Y Y Z A B C D E F G H I J K L M N O P Q R S T U V W X
Z Z A B C D E F G H I J K L M N O P Q R S T U V W X Y
依据上述算法描述设计了如下VB程序。请回答下列问题：
（1）若明文是Jia，密钥是Pass，则输出的密文是：　 　。
（2）请在横线处填上合适的代码。
Const MIN_ASC = 65 ′字母“A”的ASCII值
Function X2D(x As String) As String ′字符串小写转成大写
Dim s As String, zf As String, i As Integer
s = “”
For i = 1 To Len(x)
zf = Mid(x, i, 1)
If zf >= “a” And zf <= “z” Then
s = s +　 　
Else
s = s + zf
End If
Next i
X2D = s
End Function
Private Sub Command1_Click()
Dim M As String, K As String, C As String, flag As Boolean
Dim i As Integer, t As Integer, ch As Integer, pos As Integer, j As Integer
M = Text1.Text ′明文
K = Text2.Text ′密钥
t = Len(K)
K = X2D(K) ′将密钥全部转成大写
C = “ ” ′加密后的结果
For i = 1 To Len(M)
ch = Asc(Mid(M, i, 1))
flag = False
If ch >= 97 And ch <= 122 Then ch = ch - 32: flag = True
pos =　 　 ′密钥的字符位置值
If pos = 0 Then pos = t
j = Asc(Mid(K, pos, 1)) ′密钥字符的ASCII值
ch = ch - MIN_ASC
j = j - MIN_ASC
ch = 　 　
ch = ch + MIN_ASC
If flag Then ch = ch + 32 ′设置字母的大小写形式
C = C & Chr(ch)
Next i
Text3.Text = C
End Sub
【答案】（1）Yis
（2）Chr(Asc(zf) - 32)；i Mod t；(ch + j) Mod 26
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值；过程与自定义函数；加密与解密算法
1 / 1

展开更多......

收起↑