A.N2B.N(N-1)/2C.(N-1)(N-2)/2D.N
【答案】B
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,
第17小题6分,共26分)
13.小章收集了部分汽车销售数据,使用Excel软件进行处理,部分界面如图1所示。
图1
请回答下列问题:
(1)区域H4:
H17中的数据是用单元格H3中的公式自动填充后得到,则H3
单元格的公式是
(提
示:
月销售占全年销售的比例(%)=月销售/年销售×100)。
(2)根据图1中的数据制作的图表如图2所示,创建该图表的数据区域是
。
(3)对区域A2:
H17的数据以“车型”列数据进行筛选,筛选条件如图3所示,图中①处应填入“
”,
单击“确定”按钮后,可使得数据区仅显示车型包含“大众”品牌的所有数据行。
若筛选成功后,图2所
示的图表(填“会”或“不会”)发生变化。
【答案】(4分)
(1)=F3/G3*100(1分)
(2)D2:
F7(或D2:
D7,E2:
E7,F2:
F7)(1分)
(3)大众*(1分)会(1分)
14.编写VB程序,实现如下功能:
在文本框Textl中任意输人一个不大于1000的正整数,单击Command1命令按钮,在文
本框Text2中输出其二进制,运行效果如图a所示。
(1)要使Commandl上显示的文本改为“进制转换”,可在其属性窗口(如图b所示)中将属性的属
性值修改为“进制转换”。
(2)为实现上述功能,请在划线处填人合适的代码。
PrivateSubCommandl_Click()
Dim
m
As
Integer
DimkAsInteger‘统计二进制位数
Dims(lTo10)
AsInteger‘存储转换后的二进制位
Dim
st
As
String
k=0
m=Val(Textl.text)DoWhile①
k=k+1
s(k)=②m=m\2Loop
Fori=kTo1Step-1st=st+Str(s(i))
Nexti
③
EndSub
【答案】(5分)
(1)Caption(2分)
(2)①m<>0或m>0(1分)②mmod2(1分)③Text2.text=st(1分)
15.小李创作题为“守株待兔”的多媒体作品。
他首先用Photoshop软件制作图片,然后使用Flash软件制作动画。
请回答
下列问题:
(1)如图a所示,小李选中“兔子3”图层为最终保留效果,如希望在最终作品中不显示“兔子1”与“兔
子2”图层,下列操作方法中可行的有_______(填字母:
A.使用“删除图层”按钮直接删除相应图层;
B.隐藏“兔子1”与“兔子2”图层后保存;C.将“兔子1”与“兔子2”图层位置下移到背景图层下方后
保存)。
(2)如图b所示,为了使“文字”图层中的文字“守株待兔”始终在舞台中出现,正确的操作是
。
(3)如将“小鸟”图层锁定后,仍可以进行的操作为(填字母:
A.调节小鸟实例的位置;B.在
小鸟图层创建补间动画;C.删除小鸟元件)。
(4)如图c所示,若想在“云彩”图层中生成动画,则该动画的类型应是(填字母:
A.动画
补间动画;B.形状补间动画;C.逐帧动画)。
(5)如图b所示,测试影片时,若想让影片停止在当前场景的第19帧,则应对“脚本”图层进行的操作
和添加的动作脚本为。
【答案】(8分)
(1)B(1分)
(2)将“文字”图层第19帧移动到第1帧(2分)(3)B(1分)
(4)A(2分)(5)在“脚本”图层第19帧添加关键帧(或空白关键帧)后,添加动作命令stop();
(2分)
16.【加试题】现有n根棍子,第i根棍子的长度为ai。
想要从中选出三根棍子组成周长尽可能长的三角形,
输出最大的周长;若无法组成三角形,则输出0。
如当n=5,a={2,3,4,5,10}时,输出12,即选择了3、4、5。
当n=4,a={4,5,10,20}时,无法组成三角形,输出0。
加框处代码有误,请改正。
Dima(1To1000)AsInteger
DimnAsInteger
PrivateSubForm_Load()
‘确定n的值和数组a的各个元素值,即每根棍子的长度值,代码略
EndSub
Functionmax(xAsInteger,yAsInteger)AsInteger
Ifx>yThen
max=xElse
Max=y
EndIf
EndFunction
PrivateSubCommand1_Click()
Dim
i
AsInteger,jAs
Integer,kAsInteger
Dim
ansAsInteger,c
As
Integer,longestAs
Integer,restAsInteger
ans=0
‘让iFori=1Ton
Forj=i+1Ton
For
k=j+1Ton
c=a(i)+a(j)+a(k)
longest=
max(longest,c)
‘①
rest=c–longest
‘rest保存最短的两条边的和
If
ans>c
Then
‘②
ans=max(ans,c)
End
If
Next
k
Next
j
Next
i
Print
ans
End
Sub
【答案】(3分)
①max(a(i),max(a(j),a(k)))(或其他写法)(1分)
②rest>longest(2分)
17.【加试题】一个考古学家在寻找外星生物曾到过地球的证据。
他偶然发现一面破损的墙上有一串奇怪的
数字,数字长度不超过9位数,左侧是完整的,而很多数字的右侧部分因石头被腐蚀而极难辨认。
他
发现保存完好的数都是2的幂,于是他猜测所有数都是2的幂。
为了证明他的结论,他选取了一份数
的清单,每个数中清晰可辨的数字个数总是严格小于模糊不清的数字个数。
请你为这些数找出一个尽
量小的2的幂,使得它左侧的数字和清单吻合。
以下程序,在Text1中输人一个清单中的数n,单击按钮Command1后在Label中输出一个最小的指数
x(若存在),使得2x从最高位开始的若干个数字等于n。
如:
输入10,则找到最小的x=20,即220=1048576
的前两位与输人数相同;而x=10的结果1024长度不符。
如果在给定条件内找不到这样的指数x,则输出“No
Powerof2”。
'power函数的功能与2^n一致,只不过它的返回值是String类型而不是整数型
Functionpower(nAsInteger)AsString
DimresAsLong
res=2^n
power=Trim(Str(res))‘trim()函数的作用是去掉字符串左
右的空格
EndFunction
'check()函数用于检测前几位数和长度是否符合要求,符合要求返回为True
Functioncheck(x_powerAs
String,nAsString)AsBoolean
Dimlength
AsInteger,x_power_len
As
Integer
length=Len(n)
x_power_len=Len(x_power)
IfMid(x_power,1,length)=n
And
①
Then
check=True
Else
check=False
EndIf
EndFunction
PrivateSubCommandl_Click()
DimnAs
String,iAs
Integer,xAsString
n=Textl.Text
i=0
x=power(i)
DoWhile
Len(x)<10And
②
i=i+
1
x=power(i)
Loop
IfLen(x)<
10Then
Labell.Caption=“2的”&
③&
“次方的前几位是”&n&“,符合要求”
Else
Label1.Caption=“NoPowerof2”
EndIf
EndSub
【答案】(6分,每空2分)
①length*2②Notcheck(x,n)
③i
③DoWhile循环结束后,i是符合要求的指数,于是第③空的表达式是i。
15