资源简介

浙江省普通高校招生选考科目考试
信息技术试题(三)
一、选择题(本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求)
1．下列有关信息的说法，正确的是(　　)
A．微信中发送的文字和图片是信息
B．计算机内部可以直接使用十六进制处理信息
C．通过无线网络传输的信息不依附于任何载体
D．采用“指纹＋密码”方式进行网上支付，可提高信息的安全性
解析　计算机内部采用二进制数来表示和存储，信息是一种含义，文字和图片是载体。
答案　D
2．小明启动IE浏览器后，自动访问图文并茂的某网页。此时，IE浏览器地址栏显示如图所示。
下列描述不正确的是(　　)
A．地址栏中显示的是一个URL地址
B．通过HTTP协议将网页文件下载到本地计算机
C．网页index.html文件中包含了文字、图片和超链接
D．IE浏览器的主页设置为http：//zj.people.com.cn/GB/186938/186953/index.html
解析　该地址栏中显示的URL，通过http建立服务器和浏览器之间的连接。网页中只有文本信息，不包含图片，只包含图片的地址。
答案　C
3．下列应用中，体现了人工智能技术的有(　　)
①阿里vr购物中，用户带上头盔，眼前立刻出现梦幻般的购物景象，并进行购物；②与机器人对弈；③扫描图书中文字并保存为图片；④手机语音智能拨号；⑤利用人眼虹膜进行考勤
A．①②④ B．②④⑤
C．②③⑤ D．③④⑤
解析　阿里vr购物是虚拟现实技术，扫描图书中文字并保存为图片，仅仅保存图片，没有识别图片中文字。
答案　B
4．为了检查编码传输中是否出错，广泛使用奇偶校验码检查。其中奇校验规定如下：在传输编码的最高位置前加一位“1”或“0”使得传输字符的编码“1”的个数恒为奇数；已知“P”(50H)的编码为“101010000B”那么“M”的编码为(　　)
A．101001101 B．001001001
C．001001101 D．101001001
解析　M是P前面第3个，内码减去3。50H－3＝4DH＝01001101B，需要前面加1才能实现1的个数为奇数。
答案　A
5．使用Goldwave软件编辑某音频时的部分界面截图如下图所示。
下列说法正确的是(　　)
A．提高音量将会调整该声音的采样频率
B．该声音文件设置了淡入效果
C．执行“删除”操作后，该声音文件长度为35秒
D．执行“剪裁”操作后，被选中的部分音频将变成“静音”
解析　选中是双声道声音，设置了淡出效果，删除后，选中部分删除，剩余35秒。
答案　C
6．小红制作“元宵节”Flash动画，某按钮元件界面和相应属性如下图所示，下列描述正确的是(　　)
A．该按钮在指针经过时发出背景音乐，并重复1次
B．该按钮元件“汤圆”图层指针经过状态的内容和弹起状态的内容不相同
C．该按钮元件“点击”状态没有关键帧，导致该按钮时而有效，时而无效
D．若使该按钮正常使用，应在“文字”或“汤圆”图层点击状态插入空白关键帧
解析　由于帧频为12fps，一帧只播放1/12秒，同步方式需设置为事件。点击帧可以延续前面关键帧的内容，因此该按钮是有效的。
答案　B
7．某算法流程图如图所示，
执行该算法，输入n的值为13，下列说法正确的是(　　)
A．变量p为循环变量
B．该流程执行后，变量t的值是11
C．该算法功能：判断n是否是素数
D．该流程完整执行1次，“i≥2？”共执行了n－2次
解析　输入n的值为13，i的值分别为12、11、10……2，共计n－2个，因此“i≥2？”共执行了n－1次，变量i为循环变量，p＝0？是判断语句的条件表达式。这些i都不能被n整除。
答案　C
8．下列VB表达式的值等于23的是(　　)
A．Str(20) ＋ “3” B．Len(“－20”) ＋ 20
C．Val(“－20”) ＋ 20 D．Abs(Int(－23.3))
解析　选项A的值为字符串的203，B选项的值为23，C选项的值为0 ，D选项的值为24。
答案　B
9．有如下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
解析　每个数的范围是[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．有如下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)
解析　63个数，最多查找的次数是Int(Log263)＋1＝6，即最多查找6次，如果第6次找到了，中途退出，n最大值为5，说明该数没有找到。n的值为6，表示每一次均要向右查找。
答案　D
11．小赵对选择排序算法进行了修改改进，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
解析　i表示实现排序有序的位置和趟数，k表示每趟排序的最值位置，j表示比较位置，终值为1，应从i的前面一个位置开始比较。J在k的前面，a(j) > a(k)表示前面的数据比较后面大，要交换，升序。
答案　D
12．自定义函数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)
解析　m表示在s中位置，把s分成前后两个部分，并重新连接。
答案　D
二、非选择题(本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分)
13．小张同学收集了某网店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计算折扣列中的最大值，最后按最大值挑选商品
(注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分)
答案　(1)＝C3－INT(C3/100)*40　(2)B　(3)AC
14．某同学创作了一个关于“鲲龙AG600”的多媒体作品，首先他用Photoshop软件处理图片，然后使用Flash软件制作动画，请回答下列问题：
图a
(1)如图a所示，要获得透明背景的鲲龙图像，下列操作可以实现的是________(多选，填字母：A.选中“背景”图层并删除，然后存储为png格式 /B.选中“背景”图层，设置不透明度为0%，然后存储为png格式 /C.选中背景”图层，用橡皮擦擦除其中的图像，然后存储为png格式 /D.选中“背景”图层，设置为不可见，然后存储为png格式)。
(注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分)
图b
(2)“文字”图层第1帧至第20帧实现了由文字“鲲龙首飞”逐渐变为文字“国之重器”的动画效果，则动画类型为________。(单选，填字母：A.动画补间/B.形状补间/C.逐帧动画)
(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．某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试的资格线根据计划录取人数的200%划定，即如果考试最终录取x人，则第2*x名选手的笔试分数为面试资格分数线(该分若有同分者可一同参加面试)。现在编写VB程序功能如下：自动读取数据库中考生考号和笔试成绩，依次存储在数组kh(i)、cj (i)中，并显示在Listl列表框中。
用户从Text1中输入计划人数，单击“入围划线”按钮Command1，面试分数线显示在文本框Text2 中，入围面试最终人数显示在 Text3中，进入面试考生的考号和笔试成绩显示在List2列表框中，如果成绩相同，则按考号从小到大的顺序显示。程序界面如图所示。
(1)由代码可知，读取的数据库文件名为 ____________。
(2)下面加框处代码有错误，请改正。
(3)请在划线处填入适当的代码。
Dim kh(l 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
Elelf ____①____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 ＋ l
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
解析　可以从conn.ConnectionString语句中判断查询的数据库名称。在排序算法中，第i趟实现他对称位置的数据有序，该算法不是冒泡排序。如果成绩相同，则按考号从小到大的顺序显示。m是计划人数，在文本框Text1中输入，但录取人数是该数字的2倍。从该名次开始往下查找同分的情况，若不相同，不再查找。
答案　(1)BSCJ.accdb 　(2)n－i＋1 　(3)①cj(i)＝ cj(j)
②2*Val(Text.Text)　③flag ＝ True
16．维吉尼亚(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
浙江省普通高校招生选考科目考试
信息技术试题(三)
一、选择题(本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求)
1．下列有关信息的说法，正确的是(　　)
A．微信中发送的文字和图片是信息
B．计算机内部可以直接使用十六进制处理信息
C．通过无线网络传输的信息不依附于任何载体
D．采用“指纹＋密码”方式进行网上支付，可提高信息的安全性
2．小明启动IE浏览器后，自动访问图文并茂的某网页。此时，IE浏览器地址栏显示如图所示。
下列描述不正确的是(　　)
A．地址栏中显示的是一个URL地址
B．通过HTTP协议将网页文件下载到本地计算机
C．网页index.html文件中包含了文字、图片和超链接
D．IE浏览器的主页设置为http：//zj.people.com.cn/GB/186938/186953/index.html
3．下列应用中，体现了人工智能技术的有(　　)
①阿里vr购物中，用户带上头盔，眼前立刻出现梦幻般的购物景象，并进行购物；②与机器人对弈；③扫描图书中文字并保存为图片；④手机语音智能拨号；⑤利用人眼虹膜进行考勤
A．①②④ B．②④⑤
C．②③⑤ D．③④⑤
4．为了检查编码传输中是否出错，广泛使用奇偶校验码检查。其中奇校验规定如下：在传输编码的最高位置前加一位“1”或“0”使得传输字符的编码“1”的个数恒为奇数；已知“P”(50H)的编码为“101010000B”那么“M”的编码为(　　)
A．101001101 B．001001001
C．001001101 D．101001001
5．使用Goldwave软件编辑某音频时的部分界面截图如下图所示。
下列说法正确的是(　　)
A．提高音量将会调整该声音的采样频率
B．该声音文件设置了淡入效果
C．执行“删除”操作后，该声音文件长度为35秒
D．执行“剪裁”操作后，被选中的部分音频将变成“静音”
6．小红制作“元宵节”Flash动画，某按钮元件界面和相应属性如下图所示，下列描述正确的是(　　)
A．该按钮在指针经过时发出背景音乐，并重复1次
B．该按钮元件“汤圆”图层指针经过状态的内容和弹起状态的内容不相同
C．该按钮元件“点击”状态没有关键帧，导致该按钮时而有效，时而无效
D．若使该按钮正常使用，应在“文字”或“汤圆”图层点击状态插入空白关键帧
7．某算法流程图如图所示，
执行该算法，输入n的值为13，下列说法正确的是(　　)
A．变量p为循环变量
B．该流程执行后，变量t的值是11
C．该算法功能：判断n是否是素数
D．该流程完整执行1次，“i≥2？”共执行了n－2次
8．下列VB表达式的值等于23的是(　　)
A．Str(20) ＋ “3” B．Len(“－20”) ＋ 20
C．Val(“－20”) ＋ 20 D．Abs(Int(－23.3))
9．有如下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．有如下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．小赵对选择排序算法进行了修改改进，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．自定义函数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小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分)
13．小张同学收集了某网店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计算折扣列中的最大值，最后按最大值挑选商品
(注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分)
14．某同学创作了一个关于“鲲龙AG600”的多媒体作品，首先他用Photoshop软件处理图片，然后使用Flash软件制作动画，请回答下列问题：
图a
(1)如图a所示，要获得透明背景的鲲龙图像，下列操作可以实现的是________(多选，填字母：A.选中“背景”图层并删除，然后存储为png格式 /B.选中“背景”图层，设置不透明度为0%，然后存储为png格式 /C.选中背景”图层，用橡皮擦擦除其中的图像，然后存储为png格式 /D.选中“背景”图层，设置为不可见，然后存储为png格式)。
(注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分)
图b
(2)“文字”图层第1帧至第20帧实现了由文字“鲲龙首飞”逐渐变为文字“国之重器”的动画效果，则动画类型为________。(单选，填字母：A.动画补间/B.形状补间/C.逐帧动画)
(3)若要在“飞机”图层第1帧至第40帧实现飞机在空中飞行到当前位置的过程中逐渐消失的动画效果，应进行的操作是________。
(4)“声音”图层的同步方式如图c所示，若在第20帧处执行“清除关键帧”操作，则声音播放时长为______秒。
图c
(5)要想通过单击“更多”按钮，打开同一目录下的“kunlong.docx”文件了解更多详情。则在该按钮上添加的动作脚本是____________。
15．某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试的资格线根据计划录取人数的200%划定，即如果考试最终录取x人，则第2*x名选手的笔试分数为面试资格分数线(该分若有同分者可一同参加面试)。现在编写VB程序功能如下：自动读取数据库中考生考号和笔试成绩，依次存储在数组kh(i)、cj (i)中，并显示在Listl列表框中。
用户从Text1中输入计划人数，单击“入围划线”按钮Command1，面试分数线显示在文本框Text2 中，入围面试最终人数显示在 Text3中，进入面试考生的考号和笔试成绩显示在List2列表框中，如果成绩相同，则按考号从小到大的顺序显示。程序界面如图所示。
(1)由代码可知，读取的数据库文件名为 ____________。
(2)下面加框处代码有错误，请改正。
(3)请在划线处填入适当的代码。
Dim kh(l 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
Elelf ____①____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 ＋ l
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
16．维吉尼亚(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

展开更多......

收起↑