相关试卷
-
1、有如下VB程序段：
a(1) = 1
For i = 2 To 6
Randomize
a(i) = a(i - 1) + Int(Rnd * 5 + 1)
If a(i) Mod 2 = 1 Then
a(i) = a(i) \ 2 + 1
Else
a(i) = a(i) / 2
End If
Next i
执行程序后，a数组各元素可能是（ ）
A、1 3 4 6 7 9 B、1 2 0 3 5 6 C、1 2 3 4 5 4 D、1 3 4 5 1 1 -
2、有如下VB程序段：
c = 0 :i = 1
Do While i <=6
k = i
For j = i + 1 To 7
If a(j)<= a(k) Then k = j
Next j
If a(i) <> a(k) Then
t = a(i): a(i) = a(k): a(k) = t
c = c + 1
End If
i = i + 1
Loop
数组元素a(1)到a(7)的值依次为“9,9,8,16,45,9,78”。该程序段执行后，变量c的值是（ ）
A、0 B、3 C、4 D、6 -
3、有如下VB程序段：
s = 1
For i = 2 To 10 Step 3
s = s + i
Next i
则该程序段执行后，变量s和i的值分别是（ ）
A、16, 11 B、15, 13 C、55, 11 D、25, 13 -
4、有如下VB程序段:
For i= 1 To 49
j=1:a(j)=a(j)+1
Do While a(j)=5
a(j)=0
j = j + 1
a(j) = a(j) + 1
Loop
Next i
数组a中各元素初始值均为0，该程序执行后，数组a中各元素之和为（ ）
A、9 B、0 C、3 D、49 -
5、小乙收集了2019年国内部分汽车厂商的销售数据，并用Excel软件进行处理，如图a所示。请回答下列问题：
图a
(1)、图a中，区域E2: E16中的数据是先从E2单元格利用公式计算再向下自动填充得到的，则E3单元格中的公式是(市场份额=1-9月累计销量/全国销量*100)(2)、利用图a中部分数据制作了图表，如图b所示。则该图表的数据区域是。
图b
(3)、若把图a中的D16单元格的数据修改为1500000，则图b的图表会否发生变化?(选填: 会/不会)(4)、将图a中A1:E15区域的数据复制到新工作表，筛选条件如图c所示，则按此条件筛选出的厂商数有个
图c -
6、小李收集了某家庭2018，2019两年的峰谷用电量数据（2019年12月份暂缺数据），并使用Excel软件进行数据处理，如图a所示。
请回答下列问题：
(1)、小李通过公式计算2019年前11个月与2018年的前11个月的用电同比增加率，则J16单元格的公式为（用电同比增加率计算公式为：（2019年前11个月累计用电量-2018年前11个月累计用电量）/2018年前11个月累计用电量*100）(2)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是
图b
(3)、小李根据用电数据，想知道2018年峰谷电使用最佳的一个月份（峰用电除以谷用电的比值越小越佳），下面哪几项操作可以得到正确结果 （填字母）A、以2018年“谷用电”为主要关键字降序排序，排在最前面的就是最佳月份。 B、增加一列2018年“谷用电”除以“月用电量”的比值数据，并按此比值进行降序排序，排在最前面的月份就是最佳月份。 C、以2018年“峰用电”为主要关键字升序排序，再用“谷用电”字段筛选出最大的一项。 D、增加一列2018年“峰用电”除以“谷用电”的峰谷电比值数据，筛选出该列最小的一项，该月份即为最佳月份。 -
7、数组元素a(1)～a(2*n)中存储的一批正整数，以两个数一组，每组中两个数均比前面一 组的两个数要大。现用对分查找的思想，设计一个在数组a中查找数据key的程序 ，如果找到key，在标签Label1上显示“yes”，否则显示“no”
key = Val (Text1. Text)
i=1: j=n*2: flag =False
Do While i+1< = j And Not flag
m=(i+j)\2
If ① Then m=m- 1
If a(m)=key Or a(m+1)=key Then
flag = True
ElseIf a(m) > key Then
②
Else
③
End If
Loop
If a(i) = key Or a(j) = key Then flag = True
If flag Then Label1.Caption = "yes" Else Label1.Caption = "no"
划线处的代码正确的是
A、①m Mod 2 = 1 ② j=m-1 ③i=m+2 B、①mMod2=0 ② j=m-1 ③i=m+2 C、①m Mod 2 = 1 ② j=m-2 ③i=m+2 D、①m Mod 2=0 ② j=m-2 ③i=m+2 -
8、有如下VB程序段：
Dim s(1 To 100) As Integer
Dim b(1 To 100) As Integer
Dim c As Integer
a(1) = 0: a(2) = 2: b(1) = 1: b(2) = 2: c = 0
For i = 2 To 6
a(i + 1) = 2 *a(i) -a(i - 1)
b(i + 1) =b(i) ^ 2 /b(i - 1)
c =c +a(i + 1) +b(i + 1)
Next i
Label1.Caption = Str(c)
该程序运行后，Label1中显示的内容是（ ）
A、46 B、88 C、164 D、76 -
9、有如下程序段:
Dim s(1 To 81) As Integer, I As Integer, j As Integer, C As Integer, temp As Integer
c=0 : s(1) = 0
For i = 1 To 9
For j = 1 To i
temp = s(j * i)
s(j * i) = j * i
If temp <> s(j * i) And s(j * i) Mod 9 = 0 Then c =c + 1
Next j
Next i
该程序段运行后，变量c的值为（ ）
A、9 B、10 C、11 D、12 -
10、小林收集了2015、2016年浙江省各地区生产总值数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题:
(1)、要在表格第2行输入标题，格式如图b所示，下列操作正确的是(单选，填字母：A .在B2单元格输入标题，选择B2：F2区域后居中 / B .在D2单元格输入标题后居中 / C .在B2单元格输入标题，合并B2：F2区域后居中)。
图b
(2)、如图a所示，区域B4:F14数据已进行了排序，则排序的主要关键字是。(3)、根据图a中数据制作的图表如图c所示，创建该图表的数据区域是。
(4)、在F15单元格中使用COUNTIF函数统计区域F4:F14中“增幅（%）”大于10的地区个数，则F15单元格中的公式是。（提示：COUNTIF函数用于统计某个区域中满足给定条件的单个单元格个数。例如：=COUNTIF（B4:B20，"<100"），表示在数据区域B4:B20中统计数值小于100的单元格个数。）
-
11、 小明收集了某超市销售的办公用品数据，并用Excel软件进行数据处理，如1图所示。请回答
(1)、在G3单元格输入公式并利用自动填充功能完成区域G4:G16的计算，结果如1图所示，则G8单元格中的公式是。(2)、由1图可知，数据进行排序操作的主、次关键字分别是 、。(3)、对区域A2：G:16中的数据进行筛选操作，筛选条件如2图所示，则能筛选出的数据行数共行。
-
12、小张收集了某城市20种主要食品平均价格的数据，并用Excel软件进行数据处理，如图所示。请回答下列问题：
1图
(1)、在1图所示工作表中，区域G4：G23中的数据是通过公式计算得到的：选择该区域中的一个单元格，输入公式，然后用自动填充功能完成其他单元格的计算。 G4单元格的公式是。(提示：涨跌幅（％) =(本期价格(元)-上期价格(元))/上期价格(元)×100)
(2)、为了更加直观地比较蔬菜类价格波动情况，小张制作了如2图所示的图表。该图表的数据区域是B3,B18:B23,E3:F3,。
2图
(3)、若将F23单元格中的数据改为7.06，则图表中“豆角”的“本期价格（元）”对应的数据条将(选填:升高/不变/降低）。(4)、为了筛选出上期价格和本期价格相同的所有食品，应对列设置筛选条件。 -
13、小李收集了2015年浙江省交通运输客运量统计数据，并用Excel软件进行数据处理，如图a所示。请回答下列问题：
图a
(1)、区域C17：E17中的数据时从B17单元格利用自动填充功能得到的。则B17单元格输入的公式是。(2)、若F16单元格数据被误删，则E17单元格将显示为。（单选，填字母：A .1.87%/B .0/C .#DIV/0！/D .E16/$F$16）(3)、若要对1-12月份的数据以“客运总量”为关键字按降序进行排序，则排序时选择的数据区域是。(4)、将区域A1：F15的数据复制到新工作表并进行筛选，设置“铁路”和“公路”的筛选方式均如图b所示，则筛选出的是月份的数据（填具体月份）。
图b
-
14、小李收集了2016年7月浙江省11个城市主要空气污染物浓度数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、区域B15：E15的数据是通过公式计算得到的，在B15单元格输入公式时应用了AVERAGE函数，并用自动填充功能完成区域C15：E15的计算，则B15单元格中的公式是。(2)、如图a所示，区域A3：E14数据已按两个空气污染物名称作为关键字进行了排序，主要关键字是PM2.5，次要关键字是。(3)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是。
图b
(4)、将区域A3：E14的数据复制到新工作表，在新工作表中对两列数据进行筛选操作，筛选设置如图c所示，则按此设置筛选出的城市有个。
图c
-
15、小王收集了2016年第四季度部分移动应用APP的相关数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题:
(1)、区域G3:G18的数据是通过公式计算得到的：在G3单元格输入公式后，用自动填充功能完成G4:G18的计算，则G3单元格中的公式是。(2)、通过排序使得相同应用领域的12月环比增幅有序，则排序的主次关键字依次为。(3)、对图a中的数据进行筛选操作，筛选设置界面如图b所示，在下拉列表框中选择选项后，单击“确定”按钮，筛选结果只显示“酷狗音乐”、“酷我音乐”和“优酷视频”3行数据。
图b
(4)、根据图中数据，制作了一张反映所有APP的10月份活跃人数的图表。如图c所示，但该图表中显示的并不是APP名称，改正的方法是。
图c
-
16、小李收集了2015年浙江省全社会就业人数情况数据，并使用Excel软件进行数据处理，如图a所际。
请回答下列问题：
(1)、当前工作表中仅区域A1:G14有数据，其中G4单元格正确计算了杭州市占全省就业总人数比例。小李通过G4单元格中的公式对区域G5:G14进行自动填充，则G14单元格中显示的计算结果是 (选填: 0.00 / 17.89 / 100. 00)。(2)、上述操作后，小李发现区域G5:G14计算结果不符合要求。若要正确计算“占全省就业总人数比例(%)”列的数据，可先修改G4单元格中的公式，再进行自动填充。修改后G4单元格的公式为(公式中要求保留使用SUM函数)。(3)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是A3:A4, 。
(4)、将区域A3:F14的数据复制到新工作表，在新工作表中对数据进行筛选操作，筛选设置如图图c所示，则按此设置筛选出的城市有个 。
-
17、小王收集了某中学教师欢乐四项赛得分的相关数据，并使用Excel软件进行数据处理，如图a所示。
图 a
请回答下列问题：
(1)、小王要通过自动填充将“报名号”列的值填充为如图a所示的序列“01，02，……，18”，则可先将该区域单元格格式设置为(单选，填字母：A .数值/B .货币/C .百分比/D .文本)。(2)、在L5单元格中使用SUMIF函数计算高三年级所有选手总分之和，则L5单元格中的公式是(提示：SUMIF函数用于对以域中满足条件的单元格求和。例如：=SUMIF( B3: B20, "高二",I3:I20)表示高二年级所有选手总分之和)(3)、根据图中数据制作的图表如图b所示，创建图表的数据区域是。
图 b
(4)、市教育工会将举行“巾帼杯”欢乐四项赛，比赛项目为上述四项，计分规则不变。比赛规则：每校由2名女教师参加；每项每校由1名教师参赛；每名教师参赛项目不限；比赛成绩为4项得分的总和。以本次教师欢乐四项赛的结果为依据，从林雅璇、郦佳玲和董雯静中选择2名选手代表学校参加比赛。为使学校取得最高总分，你的选择是(单选，填字母：A .林雅璇与郦佳玲/B .林雅璇与董雯静/C .郦佳玲与董雯静)。 -
18、有m（2≤m≤n）个音箱，直线放在n（n≥2）个位置上，第i个位置坐标在a(i)上。每两个音箱相互靠近就会产生干扰，为了解决这个问题，决定把每个音箱都放在离其他音箱尽可能远的位置。为了使任意两个音箱之间的最小距离尽可能大，设计了下面的程序。程序实现了任意两个音箱之间最大的最小距离。如有5个位置，5个位置分别为1,2,8,4,9，有3个音箱，那么最大的最小距离就为3，可以将3个音箱分别放在1,4,8的位置上。
(1)、如果这5个位置分别为5,19,2,18,9，那么3个音箱可以放置的最大的最小距离为(2)、在划线处补上代码。Dim a(1 To 5) As Integer
Dim n, k As Integer
Private Sub Form_Load()
n = Val(Text1.Text): k = Val(Text2.Text)
’随机生成n（n>=2）个不重复的0及以上的数字赋值给数组a，代码略
End Sub
Private Sub Command1_Click()
Dim m, l, r As Integer
For i = 1 To n
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
End If
Next j
Next i
l = 1: r = a(n) - a(1)
Do While l <= r
m = (l + r) \ 2
If
Thenl = m + 1
Else
r = m - 1
End If
Loop
Label1.Caption = Str(r)
End Sub
Function check(ByVal d As Integer) As Boolean
Dim cow, rgt As Integer
cow = 1
rgt = a(1) + d
For i = 2 To n
If a(i) >= rgt Then
cow = cow + 1
①
End If
Next i
If ② Then
check = True
Else
check = False
End If
End Function
① ②
(3)、有一句带框框的代码有误，请修改为正确代码，让程序可以符合题意。 -
19、 输入一段长度为n的英文字母，对其进行某种加密方法，描述如下：
⑴将原文转换为若干行m列（m为奇数）的矩阵，最后一行若不足m个数据则以“#”填充。
⑵将矩阵中的数据，从末行末列数据开始以回路的方式提取字符。按顺序生成加密字符。例如对字符“helloworld”，m=3的加密过程如下图，其加密结果为“#lwleor#dolh”
程序窗口界面如图：
请回答下列问题：
(1)、字符串“helloworld”经过加密后密文为“dollrleowh”,则加密矩阵列数m为。(2)、上述加密算法对应解密的VB程序代码如下，请在划线处填入合适的代码。Private Sub command1_click()
Dim a As String, n As Integer, yw As String
Dim i As Integer, j As Integer
Dim index As Integer, k As Integer, x As Integer
s = Text1.Text '文本框text1中为待解密的字符串
m = Val(Text2.Text)
n = Len(s)
yw = ""
k = 0
x = n / m
For i = 1 To
index = n - i + 1
yw = yw + Mid(s, index, 1)
For j = 2 To m
IfThen
index = index - 2 * (x - i) - 1
Else
index = index - 2 * (i - 1) - 1
End If
If Mid(s, index, 1) = "#" Then
yw = yw + Mid(s, index, 1)
Next j
Next i
Label1.Caption = Mid(yw, 1, Len(yw) - k)
End Sub
-
20、小华为宣传家乡的美丽生态环境，创作了一个“人与自然”的多媒体作品，他首先用Photoshop制作了一张背景图片，然后用Flash制作动画，其“和谐”场景的制作脚本如下：
1图
请回答以下问题：
(1)、用Photoshop制作动画背景时，发现“树”缺少右边部分，如2图所示。为了补上树的右边部分，可通过复制“树左”图层，然后执行 操作（选填：旋转180度/旋转90/水平翻转/垂直翻转）来实现。
2图
(2)、将3图所示的背景图片保存为JPEG格式后，则图层“美丽的家乡”图层样式效果为 。
3图
(3)、在Flash动画编辑中，小华在music图层插入“蝴蝶泉边.mp3”素材，设置如4图所示，当影片播放到80帧并停止之后，音乐将（选填：会/不会）继续播放。
4图
(4)、在1图的动画库中共有种元件类型，测试影片时，“蝴蝶1”与“蝴蝶2”同时从画面左边飞向右边，在飞行过程中“蝴蝶1”中途停留了约 秒后，然后再继续飞行。(5)、如1图所示，在“蝴蝶2”图层的第80帧上设置了帧命令 ，使动画播放结束暂停。(6)、为了让“退出”按钮具有关闭动画的功能，小华需在“退出”按钮上添加的动作为 ，在确保添加了正确的退出命令后，然后选择控制菜单下的“测试影片”，发现点击“退出”按钮并不能关闭动画，原因是。