1.选择题- (共12题)
1.
如图所示某ACCESS数据表的相关信息，下列说法中正确的是（ ）
| A．将数据表导出到Excel中，将产生7列，21行的数据 |
| B．可以添加一条“0118，项邦，男，1997/12/32,143，40，90”记录 |
| C．可在数据表视图中增加一个自动编号类型的字段 |
| D．在数据表视图中，将“身高体重分数”字段中的数据清空则该字段也自动删除 |
2.
使用Word软件编辑某文档，部分界面如图所示。
下列说法正确的是（ ）
下列说法正确的是（ ）
| A．批注的对象是“源自体能网” | B．图片的环绕方式为四周型 |
| C．本段文章中有1处批注，3处修订（其中删除的内容有2处） | D．接受所有修订后，标号⑤处的内容为“臀桥+单腿臀桥” |
3.
使用内码软件观察字符“准备迎战2018年第一次选考!”，部分界面如下图所示
以下说法正确的是（ ）
以下说法正确的是（ ）
| A．字符“！”的内码占两个字节 |
| B．“迎”的二进制码为10101101 11010101B |
| C．“准备迎战2018年第一次选考!”共占18个字节 |
| D．总共有10个GB2312字符，5个ASCII字符 |
4.
某对分查找算法的VB程序段如下：
i = 1: j = 7: n = 0: f = False
Key = Val(Text1.Text)
Do While i <= j And f = False
n = n + 1
m = Fix((i + j) / 2)
If Key = a(m) Then f = True
If Key < a(m) Then j = m - 1 Else i = m + 1
Loop
数组元素a（1）到a（7）的值依次为“2，19，29，34，43，52,66,68”。文本框Textl中输入“46”后运行该程序，运行结束后下列说法不正确的是
i = 1: j = 7: n = 0: f = False
Key = Val(Text1.Text)
Do While i <= j And f = False
n = n + 1
m = Fix((i + j) / 2)
If Key = a(m) Then f = True
If Key < a(m) Then j = m - 1 Else i = m + 1
Loop
数组元素a（1）到a（7）的值依次为“2，19，29，34，43，52,66,68”。文本框Textl中输入“46”后运行该程序，运行结束后下列说法不正确的是
| A．变量f的值为False | B．变量m的值为5 | C．变量j的值为4 | D．变量n的值为3 |
6.
有如下程序段：
Function f(a As Integer, b As Integer) As Integer
Dim k As Integer
k = a Mod b
If k = 0 Then
f = b
Else
f = f(b, a mod b)
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = Val(Text1.Text)
j = Val(Text2.Text)
Text3.Text = Str(i * j / f(i, j))
End Sub
该程序运行之后，在text1与text2分别输入25 与15，点击command1后在text3上显示的内容为（ ）
Function f(a As Integer, b As Integer) As Integer
Dim k As Integer
k = a Mod b
If k = 0 Then
f = b
Else
f = f(b, a mod b)
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = Val(Text1.Text)
j = Val(Text2.Text)
Text3.Text = Str(i * j / f(i, j))
End Sub
该程序运行之后，在text1与text2分别输入25 与15，点击command1后在text3上显示的内容为（ ）
| A．5 | B．30 | C．75 | D．125 |
7.
如下VB程序段：
Dim a(1 To 8) As Integer
a(1) = 13: a(2) = 18: a(3) = 9: a(4) = 32
a(5) = 12: a(6) = 11: a(7) = 7: a(8) = 20
start = 1: k = 1
For i = start + 1 To 8
If a(i) < a(start) Then
k = k + 1
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
t = a(start): a(start) = a(k): a(k) = t
For i = k + 1 To 8
List1.AddItem Str(a(i))
Next i
执行上面代码段后，列表框List1中依次输出的数组元素值为
Dim a(1 To 8) As Integer
a(1) = 13: a(2) = 18: a(3) = 9: a(4) = 32
a(5) = 12: a(6) = 11: a(7) = 7: a(8) = 20
start = 1: k = 1
For i = start + 1 To 8
If a(i) < a(start) Then
k = k + 1
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
t = a(start): a(start) = a(k): a(k) = t
For i = k + 1 To 8
List1.AddItem Str(a(i))
Next i
执行上面代码段后，列表框List1中依次输出的数组元素值为
| A．322018 | B．32122018 |
| C．203218 | D．321820 |
8.
小孟为提高效率，对选择排序算法进行了如下改进：在数组的所有元素中找出最小和最大数据的元素，然后将这两个元素分别与第一个和最后一个元素交换数据，在余下的元素中找出最小和最大数据的元素，分别与第二个和倒数第二个元素交换数据，以此类推，直到所有元素的数据按升序排列。小赵编写的VB程序段如下：
p = 1: q = 10
Do While p < q
iMin = p: iMax = p
For i = p + 1 To q
If a(i) < a(iMin) Then
iMin = i
elseIf a(i) > a(iMax) Then
iMax = i
endif
Next i
t = a(iMax): a(iMax) = a(q): a(q) = t
①
t = a(iMin): a(iMin) = a(p): a(p) = t
p = p + 1:q = q -1
Loop
要使程序实现上述算法思想，则方框中的语句是
p = 1: q = 10
Do While p < q
iMin = p: iMax = p
For i = p + 1 To q
If a(i) < a(iMin) Then
iMin = i
elseIf a(i) > a(iMax) Then
iMax = i
endif
Next i
t = a(iMax): a(iMax) = a(q): a(q) = t
①
t = a(iMin): a(iMin) = a(p): a(p) = t
p = p + 1:q = q -1
Loop
要使程序实现上述算法思想，则方框中的语句是
| A．If iMax = q Then iMax = iMin | B．If iMin = q Then iMin = iMax |
| C．If iMax = q Then iMin = iMax | D．If iMin = q Then iMax = iMin |
9.
某同学利用Flash软件制作按钮，界面如图所示。下列说法正确的是（ ）
| A．该按钮有4个图层 |
| B．该按钮应用到场景中，当鼠标经过按钮时按钮上会显示动画效果 |
| C．该按钮删除文字图层上的点击帧，应用到场景上时该按钮将起作用 |
| D．鼠标按下与指针经过时出现的文字一定相同 |
10.
使用GoldWave软件编辑某音频文件，选择其中一段音频后的部分界面如图所示。
下列说法正确的是
下列说法正确的是
| A．插入10s静音后，以原格式保存，该声音的容量是原文件的1.25倍 |
| B．选择声道为双声道后按原格式保存，声音文件存储容量翻倍 |
| C．执行“剪裁”操作后，整个音频只剩下当前选中的部分 |
| D．执行“更改音量”操作后，以原格式保存，其文件格式将变大 |
11.
小宝利用Photoshop编辑某文件，部分界面如图所示。
下列说法正确的是
下列说法正确的是
| A．图像中“鹅”的内容不可见，原因是被其他图层所遮挡 |
| B．可以对“背景”图层添加镜头光晕滤镜 |
| C．“荷叶”图层无法移动到“天空”图层上面 |
| D．“美丽乡村”图层中有3种可见图层样式 |
2.填空题- (共5题)
13.
小张收集了近两年GDP总量前10各省有关数据，并使用Exce1软件进行数据处理，如下图所示。
（1）现需对各省市同比增幅进行排名，需要在E3单元格中输入公式__________________，然后用自动填充功能完成E4:E12单元格的计算。（提示：用RANK函数可求出某值在某区域中的名次，如：=RANK（A1，$A$1：8A$10）可计算出A1数据在区域A1：A10中的名次）
（2）小张制作了一张图表，如下图所示，他选择的数据______________________
(3)小张对“2017年上半年GDP总量（亿元）”进行了筛选操作，筛选条件如第13题图c所示，当点击确定后，小张所做的图表______（填：会/不会）变化，如有变化，图示中所显示的柱子将有_____条。
（1）现需对各省市同比增幅进行排名，需要在E3单元格中输入公式__________________，然后用自动填充功能完成E4:E12单元格的计算。（提示：用RANK函数可求出某值在某区域中的名次，如：=RANK（A1，$A$1：8A$10）可计算出A1数据在区域A1：A10中的名次）
（2）小张制作了一张图表，如下图所示，他选择的数据______________________
(3)小张对“2017年上半年GDP总量（亿元）”进行了筛选操作，筛选条件如第13题图c所示，当点击确定后，小张所做的图表______（填：会/不会）变化，如有变化，图示中所显示的柱子将有_____条。
14.
挤牛奶问题：如有三个农民每天清晨5点起床，然后去牛棚分别给3头牛挤奶。第一个农民在300时刻（从5点开始计时，秒为单位）给他的牛挤奶，一直到1000时刻（总共挤了700个时刻），第二个农民在700时刻开始，在1200时刻结束（总共挤了500个时刻）。第三个农民在1500时刻开始2100时刻结束（总共挤了600个时刻）。期间最长挤奶的连续时间为900秒（从300时刻到1200时刻），而最长的无人挤奶的连续时间为300时刻（因第二个农民在1200时刻已结束，而第三个农民从1500时刻才开始，中间有300时刻没有人在挤牛奶）。相应时刻如下图所示：
下面提供的程序是，从N个农民（1<N<=5000）挤N头牛的工作时间列表，计算出最长有人在挤牛奶的时间段与最长的无人挤牛奶的时间段。
下图为两组不同数据程序运行后界面；
请在划线处填入相应的代码，使程序功能完善。
Dim a(1 To 100) As Integer '存放农民挤牛奶开始时刻
Dim b(1 To 100) As Integer '存放农民挤牛奶结束时刻
Dim n As Integer '存放农民人数
Private Sub Form_Load()
‘获取农民的人数与各个农民开始挤牛奶与结束挤牛奶的时间，并在list1中输出
‘相应的代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim t As Integer, ymax As Integer, nmax As Integer
Dim btime As Integer, etime As Integer， flag As Boolean
flag = True: i = 1
Do While i <= ________And flag
flag = False
For j = 1 To n - i
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
t = b(j): b(j) = b(j + 1): b(j + 1) = t
flag = True
End If
Next j
i = i + 1
Loop
btime = a(1): etime = b(1)
ymax = etime - btime: nmax = 0
For i = 2 To n
If _______________________________Then
etime = b(i)
If etime - btime > ymax Then ymax = etime - btime
ElseIf etime < a(i) Then
If a(i) - etime > nmax Then nmax = a(i) - etime
btime = a(i): etime = b(i)
End If
Next i
Label2.Caption = "最长挤牛奶时间为：" + Str(ymax) + " 时刻"
Label3.Caption = "最长无人挤牛奶时间为：" + Str(nmax) + " 时刻"
End Sub
下面提供的程序是，从N个农民（1<N<=5000）挤N头牛的工作时间列表，计算出最长有人在挤牛奶的时间段与最长的无人挤牛奶的时间段。
下图为两组不同数据程序运行后界面；
请在划线处填入相应的代码，使程序功能完善。
Dim a(1 To 100) As Integer '存放农民挤牛奶开始时刻
Dim b(1 To 100) As Integer '存放农民挤牛奶结束时刻
Dim n As Integer '存放农民人数
Private Sub Form_Load()
‘获取农民的人数与各个农民开始挤牛奶与结束挤牛奶的时间，并在list1中输出
‘相应的代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim t As Integer, ymax As Integer, nmax As Integer
Dim btime As Integer, etime As Integer， flag As Boolean
flag = True: i = 1
Do While i <= ________And flag
flag = False
For j = 1 To n - i
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
t = b(j): b(j) = b(j + 1): b(j + 1) = t
flag = True
End If
Next j
i = i + 1
Loop
btime = a(1): etime = b(1)
ymax = etime - btime: nmax = 0
For i = 2 To n
If _______________________________Then
etime = b(i)
If etime - btime > ymax Then ymax = etime - btime
ElseIf etime < a(i) Then
If a(i) - etime > nmax Then nmax = a(i) - etime
btime = a(i): etime = b(i)
End If
Next i
Label2.Caption = "最长挤牛奶时间为：" + Str(ymax) + " 时刻"
Label3.Caption = "最长无人挤牛奶时间为：" + Str(nmax) + " 时刻"
End Sub
15.
某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序,将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在 文本框Text1中输入连续多组编码，单击“翻译”按钮Commandl，结果显示在列表框List1中。
程序运行界面如右图所示。
（1）要使程序运行时，文本框Text1的Width属性值为2018，可在Form_Load事件过程中添加语句________（单选，填字母：
（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Command1_Click()
Dim s As String, c As String, d As String
Dim n As Integer, bl As Integer, b2 As Integer, v As Integer, i As Integer
s = Textl.Text: n = Len(s): i = 1
Do While i <= n
c = Mid(s, i, 2)
If c = "00" Then
d = "东"
ElseIf c = "01" Then
d = "南"
ElseIf c = "10" Then
d = "西"
Else
d = "北"
End If
b1 = Val(Mid(s, i + 2, 1))
b2 = Val(Mid(s, i + 3, 1))
v=_______________①
List1.AddItem d + " " + Str(v)
_____________②
Loop
End Sub
（3）若文本框Textl中输入的内容为“1111”，单击“翻译”按钮，列表框List1中显示的内容是_________。
程序运行界面如右图所示。
（1）要使程序运行时，文本框Text1的Width属性值为2018，可在Form_Load事件过程中添加语句________（单选，填字母：
| A．Width=2018 / | B．Textl. Width = 2018 / | C．Width. Textl=2018）。 |
Private Sub Command1_Click()
Dim s As String, c As String, d As String
Dim n As Integer, bl As Integer, b2 As Integer, v As Integer, i As Integer
s = Textl.Text: n = Len(s): i = 1
Do While i <= n
c = Mid(s, i, 2)
If c = "00" Then
d = "东"
ElseIf c = "01" Then
d = "南"
ElseIf c = "10" Then
d = "西"
Else
d = "北"
End If
b1 = Val(Mid(s, i + 2, 1))
b2 = Val(Mid(s, i + 3, 1))
v=_______________①
List1.AddItem d + " " + Str(v)
_____________②
Loop
End Sub
（3）若文本框Textl中输入的内容为“1111”，单击“翻译”按钮，列表框List1中显示的内容是_________。
16.
小王要创作一个关于“古诗欣赏”的多媒体作品。请回答下列问题：
（1）在制作作品前，小王进行了相应的分析和规划。下列不属于需求分析的是_________
（单选，填字母：A.该作品要求使用Flash软件制作/ B.该作品面向小学生演示播放/ C.该作品的主题思想为“赏析经典诗词，弘扬传统文化”/ D.根据主题思想和内容，制订该作品的脚本大纲）。
（2）小王使用Flash软件制作该多媒体作品，如下图所示。
图中“人物”图层第1帧到第10帧的补间动画实现了“人物”实例从完全透明到完全显示的效果，第1帧中“人物”实例的Alpha值是________。
（3）图中“白云”图层第15帧到第48帧的动画补间实现了由一朵云逐渐变化为两朵云的效果，该动画的补间类型是________。
（4）测试场景时，“标题”图层内容在播放完第40帧后消失。为了使该图层第40帧内容延续显示至场景动画结束，下列操作方法可行的有________（多选，填字母：A.选中“标题”图层第41帧执行“清除关键帧”操作 / B.删除“标题”图层第41帧到第60帧 / C.选中“标题”图层第40帧执行“复制帧”操作，在第41帧执行“粘贴帧”操作 / D.选中“标题”图层第60帧执行“插入关键帧”操作）。
（5）要将当前场景动画播放时长从6秒调整为5秒，则需设置Flash文档的帧频为______fps。
（6）测试影片时，单击“赏析”按钮，实现在浏览器中显示位于同一文件夹下“赏析.txt”文件的内容，并停止当前动画的播放，则“赏析”按钮的动作脚本为on(release){___________}。
（1）在制作作品前，小王进行了相应的分析和规划。下列不属于需求分析的是_________
（单选，填字母：A.该作品要求使用Flash软件制作/ B.该作品面向小学生演示播放/ C.该作品的主题思想为“赏析经典诗词，弘扬传统文化”/ D.根据主题思想和内容，制订该作品的脚本大纲）。
（2）小王使用Flash软件制作该多媒体作品，如下图所示。
图中“人物”图层第1帧到第10帧的补间动画实现了“人物”实例从完全透明到完全显示的效果，第1帧中“人物”实例的Alpha值是________。
（3）图中“白云”图层第15帧到第48帧的动画补间实现了由一朵云逐渐变化为两朵云的效果，该动画的补间类型是________。
（4）测试场景时，“标题”图层内容在播放完第40帧后消失。为了使该图层第40帧内容延续显示至场景动画结束，下列操作方法可行的有________（多选，填字母：A.选中“标题”图层第41帧执行“清除关键帧”操作 / B.删除“标题”图层第41帧到第60帧 / C.选中“标题”图层第40帧执行“复制帧”操作，在第41帧执行“粘贴帧”操作 / D.选中“标题”图层第60帧执行“插入关键帧”操作）。
（5）要将当前场景动画播放时长从6秒调整为5秒，则需设置Flash文档的帧频为______fps。
（6）测试影片时，单击“赏析”按钮，实现在浏览器中显示位于同一文件夹下“赏析.txt”文件的内容，并停止当前动画的播放，则“赏析”按钮的动作脚本为on(release){___________}。
17.
（加试题）小王编写了一个依据成绩计算名次的VB程序，成绩为0到100之间的整数。算法的基本思想：先统计每个分数的个数，然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次，分数相同时名次并列。最高分为第1名，该分数的名次与个数之和为下一个有效分数的名次，以此类推。程序用数组A存放每个分数对应的个数，数组B存放每个分数对应的名次。例如，下表中最高分100有2个，并列第1名，则分数96的名次为分数100的名次加上分数100的个数，即第3名。
程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2中，程序运行界面如图所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）如上表所示，若分数93的个数为2，则该分数对应的名次为_____________。
（2）请在划线处填入合适的代码。
Dim sName(1 To 50) As String '存放学生姓名
Dim sScore(1 To 50) As Integer '存放学生分数
Dim recCount As Integer '存放学生人数
Private Sub Form_Load()
'本过程从数据库中读取学生数据，存储在相应的变量中，并在List1中显示
'代码略
End Sub
'整数转换成长度固定的字符串
Function ads(x As Integer, n As Integer) As String
Dim sx As String, nx As Integer, i As Integer
sx =" Str(x):" nx = Len(sx)
For i =" 1" To n - nx
sx = " " + sx
Next i
__________①
End Function
Private Sub Command1_Click()
Dim A(0 To 100) As Integer '存放每个分数的个数
Dim B(0 To 100) As Integer '存放每个分数的名次
Dim mc As Integer, score As Integer, i As Integer
For i =" 0" To 100
A(i) = 0
Next i
For i =" 1" To recCount '计算每个分数的个数
___________②
Next i
mc = 1
For i =" 100" To 0 Step -1 '计算每个分数的名次
If A(i) <> 0 Then
B(i) = mc
___________③
End If
Next i
List2.Clear
List2.AddItem " 姓名 分数 名次 "
List2.AddItem " ---------------- "
For i =" 1" To recCount
score = sScore(i)
mc = B(sScore(i))
List2.AddItem sName(i) + ads(score, 5) + "第" + ads(mc, 3) + "名"
Next i
End Sub
| 分数 | 100 | 99 | 98 | 97 | 96 | 95 | 94 | … | 0 |
| 个数（A数组） | 2 | 0 | 0 | 0 | 1 | 0 | 3 | … | 0 |
| 名次（B数组） | 1 | | | | 3 | | 4 | … | |
程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2中，程序运行界面如图所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）如上表所示，若分数93的个数为2，则该分数对应的名次为_____________。
（2）请在划线处填入合适的代码。
Dim sName(1 To 50) As String '存放学生姓名
Dim sScore(1 To 50) As Integer '存放学生分数
Dim recCount As Integer '存放学生人数
Private Sub Form_Load()
'本过程从数据库中读取学生数据，存储在相应的变量中，并在List1中显示
'代码略
End Sub
'整数转换成长度固定的字符串
Function ads(x As Integer, n As Integer) As String
Dim sx As String, nx As Integer, i As Integer
sx =" Str(x):" nx = Len(sx)
For i =" 1" To n - nx
sx = " " + sx
Next i
__________①
End Function
Private Sub Command1_Click()
Dim A(0 To 100) As Integer '存放每个分数的个数
Dim B(0 To 100) As Integer '存放每个分数的名次
Dim mc As Integer, score As Integer, i As Integer
For i =" 0" To 100
A(i) = 0
Next i
For i =" 1" To recCount '计算每个分数的个数
___________②
Next i
mc = 1
For i =" 100" To 0 Step -1 '计算每个分数的名次
If A(i) <> 0 Then
B(i) = mc
___________③
End If
Next i
List2.Clear
List2.AddItem " 姓名 分数 名次 "
List2.AddItem " ---------------- "
For i =" 1" To recCount
score = sScore(i)
mc = B(sScore(i))
List2.AddItem sName(i) + ads(score, 5) + "第" + ads(mc, 3) + "名"
Next i
End Sub
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：17