相关试卷
-
1、下列说法正确的是（ ）A、“VR 全景”使用户体验到身临其境的感觉，所以它采用的是人工智能技术。 B、信息可以脱离它所反映的事物被存储、保留和传播，所以信息可以脱离载体 C、“蓝牙”音箱是一种主要用于将声音的模拟信号转换为数字信号的设备 D、“抖音”的走红使得微视频成为时下热门的信息表达方式
-
2、某研究型学习小组在研究城市人均收入和房价情况时，收集到图1所示数据，请使用Excel帮助其完成相关数据的分析。
图1
(1)、若将A1、B1、C1三个单元格合并居中，可以使用 （填：1或2）按钮。(2)、要计算“人均月收入（元）”的平均值，可在B19单元格中输入公式 ， 然后使用自动填充功能计算出“房价（元/平方米）”的平均值。若该公式中引用了单元格，则只能使用相对引用的部分是（填：行号或列标）。(3)、在使用自动筛选的方法分析数据，筛选条件为：“人均月收入（元）”大于或等于3300，“房价（元/平方米)”小于3500，则筛选出的记录为 （填：行号）。在筛选结果中，不满足条件的行被（填：删除或隐藏）。(4)、若采用图2所示图表，分析各城市人均月收入和房价的关系，请分析该图表的数据源区域为 ， 系列产生在；“人均月收入（元）”高于“房价（元/平方米)”的城市有。
图2
-
3、如图1所示，请根据图示回答（1）至（8）小题
图1
(1)、若要使表格标题“学生借阅情况统计表”合并居中，应选择下图2“设置单元格格式”对话窗口中的（ ）标签。
图2
A、数字 B、对齐 C、字体 D、填充(2)、李老师开始把班级编号“01”输入到Excel电子表格中后按回车键变成
，则她可选择“设置单元格格式”数字选项卡中的哪项进行纠正，以便实现图1效果（ ） A、常规 B、数值 C、文本 D、特殊(3)、在Excel工作表G3单元格中直接用键盘输入“SUM(C3:F3)”（引号内的内容），按回车键后，该单元格显示（ ）A、若干个“#” B、出错提示 C、354 D、SUM(C3:F3)(4)、在对图1的数据表格进行排序时，下列说法正确的是（ ）A、排序时可以按行或按列排序 B、按“文学类”降序排列时，8班将排在2班后面 C、选中数据范围（A1:H11）,可以按无标题行进行排序 D、选中不相邻的数据范围，能直接排序(5)、B12公式如图1“编辑栏”所示，用填充柄填向右填充，那么，F12单元格在编辑栏中显示的公式为（ ）A、=SUM(F3:F11) B、SUM(E3:E11) C、=C3+C4+C5+C6+SUM（C7:C11） D、=SUM(D3:D11)(6)、根据图1所示，计算各类图书所占百分比，采用的方法是在C13单元格中输入公式（=各类图书合计/图书总数合计），再利用填充柄向右填充，那么在C13单元格中应输入的公式是（ ），A、=$C$12/G12 B、=C12/G$12 C、= C12/$G$12 D、=C12/G12(7)、在图1的Excel数据表中选择部分数据范围生成下面图的图表，这时对应的该范围数据应该是（ ）
图3
A
A、A1:A7,C1:E11 B、A2:E7 C、A2:A7,D2:E7 D、A2:E11(8)、完成图3所示的图表，需要在Execl中选中第一个单元格区域后，按住某功能键再选择其它单元格区域，这个过程中按下的功能键是（ ）A、Alt B、Tab C、Shift D、Ctrl -
4、如下图所示，在EXCEL图表操作中，要增加“音响”这一行数据到图表中，某同学已打开了快捷菜单如下图，在此菜单中应选择（ ）
A、图表区格式 B、图表类型 C、数据源 D、图表选项 -
5、为了做好售后服务，某公司每年都做一次用户调查。今年的调查结果如下：非常满意的占20％，满意的占60％，不满意的占15％，非常不满意的占5％。若用图表来表示上述调查结果，比较合理的是（ ）A、柱型图 B、饼图 C、折线图 D、条型图
-
6、以下关于EXCEL中的筛选说法正确的是（ ）A、筛选就是把符合指定条件的数据保留，不符合条件的数据删除。 B、筛选是一种数据分析方法，它不会改变原始数据。 C、EXCEL中筛选只有“自定义筛选方式”来制定筛选条件。 D、一旦执行筛选命令，则筛选框的下拉按钮就无法再取消
-
7、在Excel 中，选择一些不连续的单元格时，可在选定一个单元格后，按住什么键，再依次点击其它单元格（ ）A、Ctrl B、Shift C、Alt D、Enter
-
8、如果在Excel工作表的某个单元格中输入“5+2*3”（不包括引号），按回车后显示结果是（ ）A、11 B、＝5+2*3 C、5+2*3 D、21
-
9、Excel工作表中，A2:C5单元区域包含的行数和列数分别是（ ）A、4，3 B、3，4 C、3，3 D、5，3
-
10、已知EXCEL某工作中的D1单元格等于1，D2单元格等于2，D3单元格等于3，D4单元格等于4，D5单元格等于5，D6单元格等于6，则sum(D1:D3,D6)的结果是：（ ）A、10 B、6 C、12 D、21
-
11、如果Excel某单元格显示为#DIV/0!，这表示（ ）A、除数为零 B、格式错误 C、行高不够 D、列宽不够
-
12、在Excel中，工作簿一般是由下列哪一项组成（ ）A、单元格 B、文字 C、工作表 D、单元格区域
-
13、【加试题】下列关于某纸牌游戏的算法是：随机产生两组牌，每组17张，牌从小到大分别为“3~10、J、Q、K、A、2”，每种牌最多4张，四张相同的牌如3333称为炸弹牌型，炸弹不能拆成其他牌型。按照如下规则出牌：
①先出顺子牌型（顺子指连续的 5 张及以上的牌，如 345678，顺子最小从 3 开始，最大到 A），若有多个顺子，先长后短，长度相同按从小到大顺序出；
②再按三带一牌型（3 张相同的牌带一张单牌）、对子牌型（2 张相同）、单张牌型的顺
序出牌，同一牌型从小到大出；
③最后出炸弹，若有多个炸弹，从小到大出。
设计以下VB程序，牌“10”用0代替，比较两组出牌次数，界面如图所示，请回答下列问题。
(1)、若A组初始牌为：4567880JQQQQKAAA2，B组初始牌为：56778888JQQKKKA22，则 A 组出牌次数B 组。（填：大于/等于/小于）(2)、请在划线处填入合适代码。Const s = "34567890JQKA2" '用 0 代替牌 10
Dim s1 As String, s2 As String 's1 存储 A 组牌，s2 存储 B 组牌
Dim b(1 To 18)As String
'数组 b 存储各类牌型,其中 b(1)到 b(4)可存储炸弹牌型,b(5)到 b(18)存储其他牌型
Private Sub Command1_Click()
'随机产生 A 组和 B 组牌分别在文本框 Text1、Text2 中显示，代码略
End Sub
Sub arrange(st As String) '整理牌型的过程
Dim a(3 To 15)As Integer，iAs Integer
Dim j As Integer, tAs Integer，n As Integer
Dim k As Integer, max As Integer, last As Integer
Dim saAs String, stemAs String, flag As Boolean
'数组元素 a(3)到 a(15)分别存储牌 3~JQKA2 的张数
'代码略
t = 17
For i = 1 To 18
b(i) = ""
Next i
Do While t > 0
n = 0
For i = 3 To 15 '寻找炸弹牌型，若有则存储到数组 b 中
If a(i) = 4 Then
n = n + 1
b(n) = stem + stem + stem + stem
a(i) = 0: t = t - 4
End If
Next i
flag = True
Do While flag '寻找顺子牌型，若有则存储到数组 b 中
flag = False: max = 0: k = 1
For i = 4 To 14
If a(i-1)>=1 And a(i)>= 1 Then
k = k + 1
If k > max Then
max = k
last = i + 1
End If
Else
k = 1
End If
Next i
If max >= 5 Then
flag = True: sa = ""
For j = last - max + 1 To last
stem = Mid(s, j - 3, 1)
sa = sa + stem + " "
Next j
n = n + 1:b(n) = sa
t = t - max
End If
Loop
'寻找并存储三带一、对子、单张牌型，代码略
Loop
End Sub
Private Sub Command2_Click()
Dim count1 As Integer 'count1 统计 A 组出牌次数
Dim count2 As Integer 'count2 统计 B 组出牌次数
Call arrange(s1)
'在 List1 中显示 A 组出的牌型，统计出牌次数，代码略
Call arrange(s2)
'在 List2 中显示 B 组出的牌型，统计出牌次数，代码略
If count2 > count1 Then
Label3.Caption = "A 组出牌次数小于 B 组"
ElseIf count2 = count1 Then
Label3.Caption = "A 组出牌次数等于 B 组"
Else
Label3.Caption = "A 组出牌次数大于 B 组"
End If
End Sub
-
14、【加试题】筛选法求素数的核心思想是先找最小素数，然后剔除其所有的倍数，在留下的数中再剔除最小素数的倍数，重复执行，直到剔除所有的非素数。
小张编写了一个2查找孪生素数对(差值为 2)的 VB 程序，功能如下：在文本框Text1中输入一个整数n（n≤1000000），单击“求素数对”按钮Command1，在列表框List1中显示2到n范围内的素数，在标签Label2中显示素数个数，在标签Label3中显示孪生素数对个数。程序运行界面如图所示。
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim n As Long, i As Long, j As Long
Dim tAs Long '存储素数个数
Dim countAs Integer '存储素数对个数
Dim p As Long
Dim a(2 To 10000000)As Integer
n = Val(Text1.Text)
For i = 2 To n
a(i) = 1
Next i
p = 2
Do While p <= Int(Sqr(n))
If a(p) = 1 Then
j = 2
Do While j <= n \ p
'(1)j = j + 1
Loop
End If
p = p + 1
Loop
t = 0
For i = 2 To n
If a(i) = 1 Then t = t + 1
Next i
count = 0
For i = 2 To n - 2
If
Then '(2)count = count + 1
List1.AddItem ads(i, 1) & ads(i + 2, 5)
End If
Next i
Label2.Caption = "总共有" + Str(t) + "个素数"
Label3.Caption = "其中有" + Str(count) + "个孪生素数对"
End Sub
Function ads(xAs Integer, n As Integer) As String
'整数转换成长度固定的字符串，代码略
End Function
-
15、小张制作主题为“绿色环保，节能减排”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：
图a
(1)、如图a所示，当前状态下，下列操作可行的是（多选，填字母：A .使用魔棒工具选中“绿色电池”图层白色部分并删除 / B .选中“背景”图层后，调整其不透明度 / C .对“文字”图层的内容进行自由变换，调整文字大小 / D .隐藏“环保标志”图层的“外发光”效果）。
(2)、如图b所示，将“风扇罩”图层第20帧调整大小后实现了模拟电扇“摇头”的动画效果，该动画类型为（填字：动画补间 / 形状补间 / 逐帧动画）。
图b
(3)、如图c所示，要实现动画中“风扇叶片”转动速度比原来快一倍的效果，下列操作可行的是（多选，填字母：A .将“帧频”修改为 40fps / B .设置旋转：顺时针2次/ C .将“图层 1”第40帧移至第 80 帧 / D .在“图层 1”第 20 帧处插入关键帧，并删除第21帧至40帧）。
图c
(4)、测试影片时发现背景画面播放至 25 帧时变成另外一个背景画面。为了使“背景”图层一直显示第 1 帧中的内容，其正确的操作是。(5)、测试影片时，单击“停止”按钮，实现电扇停止转动的动画效果，则“停止”按钮的动作脚本为。 -
16、下列是关于某数字的加密解密算法。其加密规则如下：计算某位数字与其位置相加得到的结果除以 11 的余数即为编号（其中若余数为 0，编号为 11），编号与字符对照表如下：
编号
1
2
3
4
5
6
7
8
9
10
11
字符
V
i
s
u
a
l
B
A
S
I
C
从对照表中找出与编号对应的字符完成加密，如下表显示了数字“2018”的加密过程：
数字
2
0
1
8
位置
1
2
3
4
编号
3
2
4
1
加密字符
s
i
u
V
小张按照上述原理，设计了一个解密的VB程序，功能如下:单击“解密”按钮Command1,将文本框Text1中的密文(字符数不超过11个)进行解密，并将解密后的明文在文本框Text2中输出。程序运行效果如图a所示。
(1)、在设计程序界面时，应使用图b所示“控件工具箱”中的 (填写相应编号)添加“解密”按钮Command1。
图a
图b
(2)、实现上述功能的 VB 程序如下，请在划线处填入合适代码。Private Sub Command1_Click()
Dim s As String, s1 As String, s2 As String, chAs String, numAs Integer
s = "VisualBASIC"
s1 = Text1.Text
s2 = "": ch = ""
i = 1
Do While ①
ch = Mid(s1, i, 1)
For j = 1 To Len(s)
If ch = Mid(s, j, 1) Then Exit For 'Exit For 退出 For 循环
Next j
②
s2 = s2 + CStr(num) 'Cstr(x)在返回的字串前不加空格
i = i + 1
Loop
Text2.Text = s2
End Sub
① ②
(3)、若密文是“Bus”,则明文是 。 -
17、小张收集了某时间段部分移动互联网 APP 日活跃用户数量的数据，并使用 Excel 软件进行数据处理，如图所示。
请回答下列问题：
(1)、区域G4：G22数据是从G3单元格利用自动填充功能得到的，则G3单元格的公式为 。(提示：环比增长率（%）=（本期数-上期数）/上期数×100）(2)、若将C3:D3中单元格的数值小数位数设置为0，则E3单元格中显示的值（填字母：A .变大/B .不变/C .变小）。
(3)、要得到“6月环比增长率(%)”的所有数据的排名，下列方法可行的是（多选，填字母）。
A、在H3单元格输入“=RANK(G3,G3:G22)”，然后向下填充 B、在H3单元格输入“=RANK(G3,$G$3:$G$22)”，然后向下填充 C、选中区域A2:H22，以“2018年6月”为关键字升序排序，然后在H3单元格输入数字“1”并向下填充 D、选中区域A3:H22，以“列G”为关键字降序排序，然后在H3单元格输入数字“1”，H4单元格输入数字“2”，同时选择区域H3:H4并向下填充 -
18、【加试题】有如下程序段：
i = 1: j = 10: n = 0: flag = True
Key = Val(Text1.Text)
Do While i <= jAnd flag = True
m = (i + j) \ 2
If a(m) = Key Then
flag = False
ElseIf a(m) < Key Then
i = m + 1
n = n - 1
Else
j = m– 1
n = n + 1
End If
Loop
数组元素a(1)到a(10)的值依次是“5,16,22,28,35,43,52,67,78,89”，变量n的值最终是0，则文本框Text1输入的数值范围可能是（ ）
A、(28,35) B、(43,52) C、[52,67] D、[78,89] -
19、【加试题】有如下程序段：
n = 0: i = 2: f = True
Do While i <= 6 And f
n = n + 1
f = False
For j = 6 To i Step -1
If a(j) < a(j - 1) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
Last = j
f = True
End If
Next j
i = Last + 1
Loop
数组元素a(1)到 a(6)的值依次为“10,16,82,36,51,87”，经过该程序段“加工”后，下列说法不正确（ ）
A、变量n的值为5 B、此过程中数据共需比较8次 C、此过程中数据共需交换2次 D、数组元素a(1)到a(6)的值为升序 -
20、【加试题】一段时长为4秒、1024×800 像素、PAL制式、未经压缩的AVI格式无声视频文件，压缩为MPEG格式件，压缩后文件大小为2.34MB，其压缩比约为100：1，则该视频单帧图像的每个像素需要的二进制位数是（ ）A、8 位 B、16 位 C、24 位 D、32 位