相关试卷
-
1、下面四个程序段中，运行后变量a的值最小的是（ ）A、a=35 n=4 For i=1 To n a=a*i a=a\i Next i B、a=35 n=4 For i=1 To n a=a\i a=a*i Next i C、a=35 n=4 For i=n to 1 step -1 a=a*i a=a\i Next i D、a=35 n=4 For i=n to 1 Step -1 a=a\i a=a*i Next i
-
2、有如下VB程序：
Private Sub Command1_Click()
Dim a(1 To 5) As Integer
a(5)=Val(Text1.text)
For i=4 To 1 Step -1
a(i)=a(i+1)\2
Next i
Label1.caption=str(a(1))
End sub
在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（ ）
A、25 B、6 C、12 D、50 -
3、斐波那契数列是指从第3项开始,每一项的值为前两项之和。如：1,1,2,3,5,8,13,…，下面程序用于求斐波那契数列的第n项的值
Dim f1 as long, f2 as long, f as long
n=val(Text1.Text)
f1=1
f2=1
For k=3 to n
Next k
Label1.Caption=“斐波那契数列第”+str(n)+“项的值为”+str(f)
方框中的代码由以下三部分组成：
①f2=f ②f1=f2 ③f=f1+f2
代码顺序正确的选项是（ ）
A、①②③ B、③②① C、②③① D、②①③ -
4、阅读如下程序段,程序运行结束时，k和s的值分别是（ ）
k=0:s=0
Do While k<=10
s=s+1
k=k+1
Loop
A、k=10,s=10 B、k=10,s=11 C、k=11,s=10 D、k=11,s=11 -
5、有如下 Visual Basic 程序段：
s = 0
For i = 1 To 20 Step 2
If s < 15 Then
s = s + i
End If
Next i
以上程序执行结束后，变量s和i的值分别为（ ）
A、9 20 B、16 7 C、16 21 D、15 22 -
6、下面程序段用于计算分段函数 的值，不正确的是（ ）A、If x<0 Then y=0 Else If x<1 Then y=1 Else y=x End If B、If x<0 Then y=0 Else If x<1 Then y=1 Else y=x End If End If C、If x<0 Then y=0 If x<1 Then y=1 If x>=1 Then y=x D、If x<0 Then y=0 If x>=0 and x<1 Then y=1 If x>=1 Then y=x
-
7、有如下Visual Basic程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算sum的值，下列表达式的值与sum相等的是（ ）
A、1+1/2+2/3+3/4+4/5 B、1+1/2+2/3+3/4 C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/5 -
8、阅读下面的程序：
Private Sub Command1_Click()
a=Val(Text1.text)
b=Val(Text2.text)
Do While a Mod b<>0
r=a Mod b
a=b
b=r
Loop
Text3.text=str(b)
End Sub
在Text1、Text2中分别输入30、6，则Text3中的值为（ ）
A、1 B、3 C、6 D、9 -
9、现要求刚好输出1至100内所有能被7整除的数字，下列哪段程序不能实现（ ）A、For i = 1 To 100 If i Mod 7 = 0 Then List1.AddItem i Next i B、For i = 7 To 100 Step 7 List1.AddItem i Next i C、i = 1: s = 7 Do While s <= 100 List1.AddItem s i = i + 1 s = i * 7 Loop D、s = 0 Do While s <= 100 s = s + 7 List1.AddItem s Loop
-
10、小金同学收集了“浙江省各地市2014、2015年人口统计表”的统计数据，并用Excel软件进行分析，部分界面如图a所示。请回答下列问题:(1)、如图a所示，要计算“人口增长率(%)”,采用的方法是先在E4单元格中输入公式(人口增长率(%)=(2015年常住人口-2014年常住人口)/2014年常住人口×100%)，再使用自动填充功能完成其他单元格的计算。
图a
(2)、小金自定义筛选时设置的筛选条件如图b所示，筛选后有个地市满足条件。
图b
(3)、图c中的图表类型是(选填：条形图/柱形图/折线图/饼图)，建立该图表的数据区域是。
图c
-
11、如图a所示，该表格为某次成绩的统计。
图a
请回答下列问题：
(1)、“排名”列中的数据由H4单元格中的RANK函数自动填充得出，但是由图a可知结果是错误的，请写出改正后的公式:。(2)、若要对“数学”“英语”中的数据进行筛选，则选中的区域可以是(多选,①D3:E3/②D3:E23/③D4:E23)。(3)、由图b可知，产生该图表的数据区域是 ， 该图表的类型属于。
图b
-
12、某超市用Excel软件对部分生活用品销售情况的数据进行了分析，界面如图1所示，请回答下列问题。
图1
(1)、正确计算各种生活用品占销售总额的百分比值，需在I3单元格输入公式 ， 并从I3单元格地址自动填充到I14单元格。(2)、为更加直观地比较各商品毛利润情况，小峰制作了“2014年12月生活用品利润比较”图表(如图2)，则该图表的数据区域是。
图2
(3)、选中A2:I14区域，按照图3所示进行自定义筛选后，将显示个数据。筛选完毕后，“2014年12月生活用品利润比较”图表(如图2所示)(选填：会或不会)发生变化。
图3
-
13、王老师收集了部分城镇单位就业人员工资表，并用Excel软件进行数据处理，如图a所示，请回答以下问题：
图a
(1)、“合计”列的数据是通过公式计算得到的，在B4单元格内输入如图所示的公式，并用自动填充功能完成区域B5:B22的计算，则B22单元格中的公式是。(2)、王老师要将各省市的工资总额数据按“合计”列降序排序，他首先选中了数据区域A4:M22，然后再设置如图b所示对话框内的参数，则他(选填:需要/不需要)勾选“数据包含标题行”参数。
(3)、若在L3和M3两个单元格上都设置如图c所示的筛选条件，则筛选出的城市有个。
(4)、取消筛选，王老师制作了各城市的工资总额对比条形图，如图d所示，则创建该条形图的数据区域是A3:A22,。
图d
-
14、小明收集了2016年中国最佳大学排行榜的相关信息，并用Excel软件对数据进行了处理，如图a所示。
图a
请回答下列问题：
(1)、为求出中国最佳大学排行榜前十名的高校的平均星级，可以在E13单元格中输入公式。(2)、为筛选出北京和上海地区的大学，如图b所示，可以对“所在地区”设置筛选条件为“等于北京”(填“与”或“或”)“等于上海”。
图b
(3)、小明制作了如图c所示的图表，产生该图表的数据区域为。进入百强次数最少的学校是。
图c
-
15、某年度华东地区各省市的森林覆盖情况如图a所示，小夏同学用Excel软件进行数据处理。
图a
图b
请回答下列问题：
(1)、要计算出林地面积，可先选择图a中的D3单元格，并输入公式 ， 然后按回车键确认，再用自动填充的方法完成其他省市林地面积的计算。(提示:森林覆盖率=林地面积/土地面积×100%)(2)、如图b所示，该图表的类型为(选填:折线图/柱形图/条形图)，其数据源区域为。(3)、若要只显示低于全国森林覆盖率的省市，可采用的办法是(选填：筛选/排序)。(4)、如果表格中的C3单元格数据发生改变，则图b中图表形状将(选填：会/不会)发生变化。 -
16、查找并删除重复数据的算法是对数组a中每个元素逐个作为关键字进行从后往前查找，如果有重复，删除该数据后继续查找。例如，第一次将a(1)作为关键字，从a(10)到a(1)进行逐个查找，如果和a(1)相等，则删除该数据，然后继续查找;如果是a(1)本身和它相等，则代表无重复数据。编写VB程序，程序功能如下:运行程序时，在列表框List1中显示数组a中的原始数据；单击“去除重复”按钮(Command1)，在列表框List2中输出去除重复后的数组a中的数据，同时在标签Label1中显示删除的数据总个数，运行效果如图所示。
请回答下列问题：
(1)、当数组a中的值依次为1,2,3,7,8,1,6,6,8,7时，共删除数据(填写数值)个。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Const maxn=10
Dim a(1 To maxn) As Integer
Private Sub Form_Load()
‘maxn个数据存储在数组a中,并在列表框List1中显示
‘代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, n As Integer ‘n用于存储当前査找的数组长度
Dim j As Integer, key As Integer ‘key用于存储本次查找关键字的数据位置
key=1: n=maxn
Do While key <=n
i=n
Do While a(i) <> a(key)
Loop
If i=key Then ‘未找到，重新下一査找关键字
key=key+1
Else ‘找到重复数据，删除
For j=i To n-1
Next j
n=n-1
End If
Loop
For i=1 To n
List2.AddItem Str(a(i))
Next i
Label1.Caption=“共删除数据”++“个”
End Sub
-
17、循环升序数组指的是将一个升序数组循环右移动若干距离之后变成的数组。如5、7、9、26、41、100，循环右移3位得到26、41、100、5、7、9。对分查找算法适当优化后也适用于循环升序数组。程序段如下:
l=1: r=6
Key=Val(Text1.Text)
Do While l <=r
m=Int((l+r) \ 2)
If a(m)=Key Then
⑴
Exit Do
Elself a(m) >=a(l) Then
⑵
Elself a(m) < a(l) Then
⑶
End If
Loop
上述程序中方框处可选语句为:
①If a(m) < Key And a(r) >=Key Then l=m+1 Else r=m-1
②Listl .AddItem “第”+Str(m)+“值是”+Str(a(m))
③If a(m) > Key And a(l) <=Key Then r=m-1 Else l=m+1
则(1)、(2)、(3)处语句依次是（ ）
A、③①② B、②①③ C、①③② D、②③① -
18、某对分查找算法的VB程序段如下:
t=“”: i=0 : j=9 : key=62: f=False
Do While i<=j And Not f
m=Fix((i+j) / 2)
t=t+Str(rn)
If a(m)=key Then
f=True
Elself a(m) > key Then
i=m+1
t=t+“→”
Else
j=m-1
t=t+“←”
End If
Loop
数组元素a⑹到a⑼的值依次为“99, 94, 90, 87, 78, 70, 63, 56, 45, 36”,执行该程序段，t的值是（ ）
A、“4→7←5→” B、“4→ 7← 5→ 6→” C、“4→7←5→6” D、“4→ 7← 5” -
19、有如下VB程序段：
Dim a(1 To 10) As Integer
Private Sub Form_Load()
a(1)=2:a(2)=3:a(3)=3:a(4)=3:a(5)=3
a(6)=6:a(7)=7:a(8)=7:a(9)=8:a(10)=9
End Sub
Private Sub Command1_Click()
Dim key As Integer, i As Integer, j As Integer
Dim m As Integer, p As Integer
key=Val(Text1.Text)
i=1: j=10
Do While i <=j
m=(i+j) \ 2
If a(m)=key Then
p=m
j=m-1
Else If key < a(m) Then
j=m-1
Else
i=m+1
End If
Loop
Text2.Text=Str(p)
End Sub
程序运行时，在文本框Text1中输入3，单击按钮，文本框Text2显示的内容是（ ）
A、2 B、3 C、4 D、5 -
20、对数组a中6个有序数据“11,22,33,44,55,66”，用下面的程序代码查找数据“23”，程序执行完毕后，下列各变量值正确的是（ ）
Dim a(1 To 6)As Integer
Dim i As Integer,j As Integer,Key As Integer,m As Integer
a(1)=11:a(2)=22:a(3)=33: a(4)=44:a(5)=55:a(6)=66
i=1:j=6:p=0:Key=23
Do While i<=j
p=p+1
m=(i+j)\2
If j Mod 2=0 Then m=m+1
If a(m)=Key Then Exit Do
If Key<a(m) Then j=m-1
Else i=m+1
Loop
A、i=5 B、j=4 C、m=3 D、p=2