k=a(j):
a(j)=a(j+1):
a(j+1)=kEndIf
Nextj
Nexti
数组元素a
(1)到a(6)的值依次为“71,54,58,29,31,78”,经过该程序段“加工”后,数组元素a
(1)到a(6)
的值依次为()
A.29,31,54,58,71,78B.78,71,58,54,31,29C.54,29,31,58,71,78D.71,58,54,78,31,29
【答案】D
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,
第17小题6分,共26分)
13.小王收集了近三年温州市主要农产品产量统计数据,并用Excel软件进行数据处理,如图1所示。
请回
答下列问题:
(1)区域F4:
F8中的数据是对F3单元格进行自动填充功能得到。
则F8单元格中的公式是________。
(2)如图2所示的图表制作过程中应该同时被选择的数据范围是______和E2:
E5。
图2
(3)选择区域A2:
F8后,对其中数据以如图3所示的方式进行排序,则排序后E6单元格中的值为____;
排序后,图2所示图表将______(选填字母:
A.不会变/B.会变)。
图3
【答案】(4分)
(1)=RANK(E8,E$3:
E$8)(1分)
(2)A2:
A5(1分)(3)22.95(l分)B(1分)
14.2016年10月学考成绩揭晓后,信息技术老师要统计各班学考技术A等级人数,但教务处为了保护学生
成绩隐私,只给他提供了各班学生本次学考的等级信息,其中技术学科等级排在每位学生的第一科。
若某班学生大部分参加技术、地理、历史三门学考,小部分参加其中的两门,则教务处提供的等级信
息为每位学生连续三个字符(如:
ABAB-B,表示第一个学生的成绩技术为A,地理为B,历史为A,
第二个学生技术为B,地理没考,历史为B,其他依此类推)。
于是他编写了一个VB程序,很快统计
出各班技术学科的A等级人数。
程序设计界面如图所示,其中各班学考等级信息来自文本框Text1,科
目数来自文本框Text2,统计结果输出到文本框Text3中。
实现上述功能的VB程序代码如下:
PrivateSubCommandl_Click()
Dims,pAsString
Dima,nAsInteger
DimkmsAsInteger
s=①
n=Len(s):
a=0:
kms=Val
(Text2.Text)
IfnModkms=0Then
8
Fori=②_______
p=Mid(s,i,1)
Ifp="A"orp="a"Thena=a+l
Nexti
Text3.Text=Str(a)
Else
Text3.Text="学生等级信息不正确"
EndIf
EndSub
请回答下列问题:
(1)文本框Text3中的文字太小,可以选择图中的___________(填属性名)属性调整大小。
(2)将程序中画线处的代码补充完整,使程序能够实现统计功能。
①处应填_____________;②处应填______________。
(3)程序运行时,在文本框Text1中输入A-ABBBC-CCAA-AAA,Text2中输入3,单击“统计”按钮,则
文本框Text3中显示的内容是____________________。
【答案】(5分)
(1)Font(1分)
(2)①Text1.Text(l分)②1TosStepkms(2分)
(3)学生等级信息不正确(l分)
15.小李同学创作“西游记”故事的多媒体作品,他首先使用Photoshop软件制作一张背景图片,然后使用
Flash软件制作动画。
请回答下列问题:
(1)如图a,若想改变背景图层的颜色,小李同学_______(选填:
需要/不需要)解锁。
(2)图a中的西游记人物,要想融入各种颜色的舞台背景(如图b),应该存储为背景透明的图像格
式,则可保存为______格式(多选,填字母:
A.bmp/B.jpg/C.png/D.gif)(注:
全部选对得2分,
选对但不全得1分,不选或有选错得0分)
(3)由图b所给的信息可以知道,该Flash作品一共有_____个元件,完整地播放一遍该Flash影片约
需要____秒。
(4)在图b当前的状态下,________(选填:
能/不能)直接删除“音乐”图层。
(5)单击“播放”按钮,影片跳转到“主交互界面”场景的第一帧并继续播放,则“播放”按钮的动
作脚本为______________。
【答案】(8分)
(1)不需要(1分)
(2)CD(2分)(3)4(1分)8(1分)(4)能(1分)
(5)on(release)|gotoandplay(“主交互界面”,1);|或On(press)|gotoandplay(“主交互界面”,
1);|(大、小写字母不作区分,但拼写和格式必须正确)(2分)
16.【加试题】数据插入。
用VB设计程序,主要功能如下:
随机产生15个200以内的正整数数列,按升
序排序后显示在List1列表框中,在文本框Text1中输入1个200以内的正整数,单击“插入”按钮
Command1后将其插入到数列中,并保持数列仍然有序,显示在列表List2中,同时在标签Label4中显
示插入的位置,程序界面如图所示。
实现上述功能的VB程序代码如下,请在划线处填上合适的代码。
Dima(1To20)AsInteger
PrivateSubCommand1_Click()
DimkeyAsInteger
key=
①
i=1
DoWhilekey>a(i)And(i<=15)
i=i+1
Loop
Label4.Caption=“该数插入的位置是:
”+Str(i)
If
i=16
Then
a(i)=key
Else
Forj=16Toi+1Step-1
②
Nextj
a(i)=key
End
If
List2.Clear
Fori=1To16
List2.AddItema(i)
Nexti
EndSub
PrivateSubForm_Load()'随机生成15个200以内的正整数
Randomize
Fori=1To15
a(i)=Int(Rnd*200)+1Nexti'将15个数从小到大排序
Fori=1To14k=i
Forj=i+1To15
Ifa(k)>a(j)Thenk=j
Nextj
Ifi<>kThen
t=a(i);a(i)=a(k):
a(k)EndIf
Nexti
'将排好序的数输出在列表框Listl中
Listl.Clear
Fori=1To15
Listl.AddItemstr(a(i))
Nexti
EndSub
程序中①划线处应填入______________,程序中②划线处应填入______________
【答案】(3分)
①Val(Text1.Text)(1分)②a(j)=a(j-l)(2分)
②本小题要求掌握数组变量的赋值语句。
通过阅读程序不难发现,本小题是在找到插入点位置i后,
给待插入的数据留出位置,即后面的数据后移一位,代码实现为a(j)=a(j-1),且采用循环自后向前逐一
实现。
17.【加试题】如果一个自然数恰好等于它的各因数之和,则称该效为完全数。
这里的因素都是除去本身
的正因数。
例如:
第一个完全数是6,它有因数1、2、3、6,除去它本身6外,其余3个数相加,1+2+3=6。
寻找完全数并不是容易的事。
经过不少数学家研究,到2013年2月6日为止,一共找到了48个完全
数。
小明设计了一个VB程序,用于求解10000以内的所有完全数。
点击按钮Command1,标签Label1显示
完全数的个数,并在列表框中显示10000以内所有的完全数。
程序运行效果如图所示
实现上述功能的VB程序如下,请在划线处填入合适代码。
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,cAsInteger,sAsIntegerc=0‘用于存储完全数的个数
Fori=1To10000
s=0‘用于存储各因数之和
Forj=1Toi-1
Iffac(i,j)Then___①____
Nextj
Ifi=sThen
②
Listl.AddIltemStr(i)
EndIf
Nexti
Label.Caption=“10000以内共有”+Str(c)+“个完全数!
”
EndSub
Functionfac(xAsInteger,yAsInteger)AsBoolean'如果y是x的因数返回True,否则返冋False
If___③___Then
fac=True
Else
fac=False
EndIf
EndFunction
【答案】(6分)
①s=s+j(2分)②c=c+1(2分)③xmody=0(2分)