相关试卷
-
1、某Access数据表的设计视图与表视图部分截图如左图和图所示，下列描述正确的是( )
A、序号字段中的数字可以重复 B、当前记录为第4条记录，表名为“员工表．accdb” C、将该数据表导出到Excel后，“性别”字段所显示的值为“True”或“False” D、将李飞的“基本工资”修改为“￥6，000.00”，则该记录“工资合计”自动更新为“￥7，400.00” -
2、下列关于信息的描述中，正确的是( )A、信息的加工和管理必须使用计算机才能完成 B、人脑虽然能够记忆，但不能作为信息的载体 C、在传递过程中可以实现信息的形态转换 D、摄影技术、电影技术、广播和电视技术是现代信息技术
-
3、维吉尼亚(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 = sEnd 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
-
4、某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试的资格线根据计划录取人数的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) Theni = i + 1
Else
③
End If
LoopText2.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)、请在划线处填入适当的代码。① ② ③
-
5、某同学创作了一个关于“鲲龙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”文件了解更多详情。则在该按钮上添加的动作脚本是。 -
6、小张同学收集了某网店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计算折扣列中的最大值，最后按最大值挑选商品 -
7、自定义函数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) -
8、小赵对选择排序算法进行了修改改进，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 -
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、某算法流程图如图所示，
执行该算法，输入n的值为13，下列说法正确的是( )
A、变量p为循环变量 B、该流程执行后，变量t的值是11 C、该算法功能：判断n是否是素数 D、该流程完整执行1次，“i≥2？”共执行了n-2次 -
11、小红制作“元宵节”Flash动画，某按钮元件界面和相应属性如下图所示，下列描述正确的是( )
A、该按钮在指针经过时发出背景音乐，并重复1次 B、该按钮元件“汤圆”图层指针经过状态的内容和弹起状态的内容不相同 C、该按钮元件“点击”状态没有关键帧，导致该按钮时而有效，时而无效 D、若使该按钮正常使用，应在“文字”或“汤圆”图层点击状态插入空白关键帧 -
12、使用Goldwave软件编辑某音频时的部分界面截图如下图所示，下列说法正确的是( )
A、提高音量将会调整该声音的采样频率 B、该声音文件设置了淡入效果 C、执行“删除”操作后，该声音文件长度为35秒 D、执行“剪裁”操作后，被选中的部分音频将变成“静音” -
13、为了检查编码传输中是否出错，广泛使用奇偶校验码检查。其中奇校验规定如下：在传输编码的最高位置前加一位“1”或“0”使得传输字符的编码“1”的个数恒为奇数；已知“P”(50H)的编码为“101010000B”那么“M”的编码为( )A、101001101 B、001001001 C、001001101 D、101001001
-
14、下列应用中，体现了人工智能技术的有( )
①阿里vr购物中，用户带上头盔，眼前立刻出现梦幻般的购物景象，并进行购物；②与机器人对弈；③扫描图书中文字并保存为图片；④手机语音智能拨号；⑤利用人眼虹膜进行考勤
A、①②④ B、②④⑤ C、②③⑤ D、③④⑤ -
15、小明启动IE浏览器后，自动访问图文并茂的某网页。此时，IE浏览器地址栏显示如图所示，下列描述不正确的是（ ）
A、地址栏中显示的是一个URL地址 B、通过HTTP协议将网页文件下载到本地计算机 C、网页index.html文件中包含了文字、图片和超链接 D、IE浏览器的主页设置为http：//zj.people.com.cn/GB/186938/186953/index.html -
16、下列有关信息的说法，正确的是( )A、微信中发送的文字和图片是信息 B、计算机内部可以直接使用十六进制处理信息 C、通过无线网络传输的信息不依附于任何载体 D、采用“指纹+密码”方式进行网上支付，可提高信息的安全性
-
17、编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文(每个明文字母对应1个不重复的密文字母)。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文，并在文本框Text2中显示对应密文(运行效果如图所示)。实现上述功能的VB代码如下，请完善程序代码。
Dim m2 As String
Private Sub Command1_Click()
Dim flag(1 To 26) As Boolean
Dim num As Integer，t As Integer
Randomize
num = 1
Text3.Text = “”
For i = 1 To 26
flag(i) = False
Next i
Do While num <= 26
x = Int(Rnd * 26) + 97
If flag(t) = False Then
m2 = m2 + Chr(x)
num = num + 1
End If
Loop
Text3.Text = m2
End Sub
Private Sub Command2_Click()
Dim s As String, m As String, result As String
Dim k As String, c As Integer
s = Text1.Text
m = “abcdefghijklmnopqrstuvwxyz”
For i = 1 To Len(s)
k = Mid(s, i, 1)
If k >= ”A” And k <= “Z” Then
k = Chr(Asc(k) + 32)
End If
c = 1: continue = True
Do While
If k = Mid(m, c, 1) Then
continue = False
End If
c = c + 1
Loop
Next i
Text2.Text = result
End Sub
-
18、有一个报数游戏， n个人排成一圈，游戏开始时规定一个报数号m，然后从其中一个人开始按顺时针报数1，2，3，…，n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。
实现上述功能的VB代码如下，但加框处有错，请改正。
Private Sub Command1_Click()
Dim n As Integer, m As Integer
Dim a(1 To 50) As Integer
n = Val(Text1.Text)
m = Val(Text2.Text)
For i = 1 To n
Next i
s = 0；j = 0
Do While s < n
t = 0
Do While t < m
t = t + a(j)
Loop
a(j) = 0
s = s + 1
List1.AddItem “第” + Str(s) + “次：” + Str(j)
Loop
End Sub
(1)、“报数”按钮的对象名称是。(2)、程序代码中，加框处有错，请改正。(3)、程序代码中，横线处语句补充完整。(4)、程序运行结束后，变量t的值是。 -
19、小明制作主题为“荷花韵”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：
图a
(1)、如图a所示，当前状态下，下列说法正确的有(多选，填字母：A . “荷花韵”图层设置了文字变形效果/ B . “圆荷”图层的图层样式均可视/ C . 将作品保存为PSD格式，可下次继续编辑图层信息/ D . “荷花”图层的不透明度是0%)。(2)、如图b所示，“蝴蝶1”图层第6帧到第36帧实现了蝴蝶从左向右飞行的动画效果，该动画类型为(填字：动画补间/形状补间/逐帧动画)。(3)、如图b所示，“音乐”图层第10帧的声音来自文件“liushui.mp3”。该场景动画播放到第36帧结束时，声音刚好完整播放一遍。由此可知该声音文件时间长度约为秒(保留1位小数)。
图b
(4)、为实现“蝴蝶2”图层与“蝴蝶1”图层中的蝴蝶实例同时开始播放，应对“蝴蝶2”图层进行的操作是。(5)、测试影片时，单击“退出”按钮，实现关闭动画。则“退出”按钮的动作脚本为。 -
20、某调查公司发布了喜马拉雅收听次数较多、评分较好的部分栏目，现使用Excel软件进行数据处理，界面如图a所示。
图a
请回答下列问题：
(1)、区域F4：F27的数据是通过对F3单元格进行自动填充得到的，则F19单元格中的公式为。(2)、要对“人文历史”类节目按“已播次数(万)”进行降序排序，应选中的排序区域是。(3)、若对图a中的数据按“已播次数(万)”和“评分”进行筛选，筛选条件均如图b所示，筛选得到的节目名称是。
图b
(4)、根据创建好的如图c所示的图表可以判断图表数据区域选择时，(选填：有/没有)包含B2和E2单元格的数据。
图c