Ifa(i)>a(iMax)TheniMax=i
Nexti
t=a(iMin):
a(iMin)=a(p):
a(p)=t
①
t=a(iMax):
a(iMax)=a(q):
a(q)=t
p=p+1
q=q-1
Loop
要使程序实现上述算法思想,则方框中的语句是
A.IfiMax=pTheniMax=iMin
B.IfiMin=pTheniMin=iMax
C.IfiMax=pTheniMin=iMax
D.IfiMin=pTheniMax=iMin
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
13.小王收集了2019年第四季度部分移动应用APP的相关数据,并使用Excel软件实行数据处理,如第13题图a所示。
第13题图a
请回答下列问题:
(1)区域G3:
G18的数据是通过公式计算得到的:
在G3单元格输入公式后,用自动填充功能完成G4:
G18的计算,则G3单元格中的公式是。
(2)通过排序使得相同应用领域的12月环比增幅有序,则排序的主次关键字依次为。
(3)对第13题图a中的数据实行筛选操作,筛选设置界面如第13题图b所示,在下拉列表框中选择选项后,单击“确定”按钮,筛选结果只显示“酷狗音乐”、“酷我音乐”和“优酷视频”3行数据。
(4)根据第13题图a中数据,制作了一张反映所有APP的10月份活跃人数的图表。
如第13题图c所示,但该图表中显示的并不是APP名称,改正的方法是。
第13题图b第13题图c
14.奇偶校验是一种校验数据传输准确性的方法。
其中奇校验方法:
统计二进制数据的数位中“1”的个数,若个数为奇数,则校验位值为0,否则校验位值为1。
小李编写了一个计算奇校验位值得VB程序,功能如下:
在文本框Text1中输入1~255十进制待校验数,单击“计算”按钮Command1后,在文本框Text2中显示该数对应的二进制值,并在标签Label3中显示该数的校验位值。
程序运行界面如图所示。
(1)在设计程序界面时,要清空文本框中的显示内容,应修改该文本框中的属性。
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
PrivateSubCommand1_Click()
DimaAsInteger,sAsString
DimnAsInteger,tAsInteger,vAsInteger
n=Val(Text1.Text)
t=0
s=""
DoWhilen>0
a=nMod2
n=n\2
t=①
s=Str(a)+s
Loop
v=tMod2
Text2.Text=s
Label3.Caption="校验位值:
"+②
EndSub
(3)运行该程序,在文本框Text1中输入22,单击“计算”按钮,则显示的校验位值是。
15.小王制作主题为“中国象棋”的多媒体作品。
他首先使用Photoshop软件制作一张背景图片,然后使用Flash软件制作动画。
请回答下列问题:
第15题图a
(1)如第15题图a所示,当前状态下,下列操作可行的是(多选,填字母:
A.修改图中左下角的数值缩放图像/B.选中“背景”图层后,调整其不透明度/C.对“右”图层的内容实行自由变换/D.选中“中国象”图层后,对其内容实行填充)。
(注:
全部选对的得2分,选对但不全的得1分,不选或有选错的得0分)
第15题图b
(2)如第12题图b所示,“录”图层第25帧到第36帧实现了由象棋子“帅”变化为汉字“录”的动画效果,该动画类型为(填字:
动画补间/形状补间/逐帧动画)。
(3)要实现“象棋简介”、“象棋起源”、“行棋规则”和“主要赛事”4个补间动画依次出现的效果,应做的调整是。
(4)为实现该场景动画播放完后自动停止,小王选中“三叠子按钮”图层最后1帧添加停止动画的动作脚本,但脚本出现在该图层第1帧,其原因是。
(5)测试影片时,单击“象棋简介”按钮,实现在浏览器中显示位于同一目录下“intro.txt”文件的内容,则“象棋简介”按钮的动作脚本为。
16.【加试题】小王编写了一个实现文字查找替换功能的VB程序,运行界面如图所示。
文本框Text1显示原文内容,Text2中输入查找内容,Text3中输入替换内容,单击“全部替换”按钮Command1后,Text4显示查找替换的结果,Text5中显示替换的次数,Text6显示“查找内容”在原文中的起始位置。
实现上述功能的VB程序如下,但加框处代码有错,请改正。
PrivateSubCommand1_Click()
DimsAsString,resuleAsString,posAsString
DimcountAsInteger,iAsInteger
i=1:
count=0
resule="":
pos=""
DoWhilei<=Len(Text1.Text)
s=Mid(Text1.Text,i,Len(Text2.Text))
Ifs=Text2.TextThen
result=result+Text3.Text
count=count+1
pos=pos+Str(count)
i=i+Len(Text2.Text)
Else
result=result+Text2.Text
i=i+1
EndIf
Loop
Text4.Text=result
Text5.Text=Str(count)
Text6.Text=pos
EndSub
17.【加试题】小王编写了一个依据成绩计算名次的VB程序,成绩为0到100之间的整数。
算法的基本思想:
先统计每个分数的个数,然后按照分数从高到低依次计算每个有效分数(该分数的个数不为0)对应的名次,分数相同时名次并列。
最高分为第1名,该分数的名次与个数之和为下一个有效分数的名次,以此类推。
程序用数组A存放每个分数对应的个数,数组B存放每个分数对应的名次。
例如,下表中最高分100有2个,并列第1名,则分数96的名次为分数100的名次加上分数100的个数,即第3名。
分数
100
99
98
97
96
95
94
…
0
个数(A数组)
2
0
0
0
1
0
3
…
0
名次(B数组)
1
3
4
…
程序运行时,学生数据显示在列表框List1中,单击“计算”按钮Command1,计算结果显示在列表框List2中,程序运行界面如图所示。
实现上述功能的VB程序如下,请回答下列问题:
(1)如表所示,若分数93的个数为2,则该分数对应的名次为_____________。
(2)请在划线处填入合适的代码。
DimsName(1To50)AsString'存放学生姓名
DimsScore(1To50)AsInteger'存放学生分数
DimrecCountAsInteger'存放学生人数
PrivateSubForm_Load()
'本过程从数据库中读取学生数据,存储在相对应的变量中,并在List1中显示
'代码略
EndSub
'整数转换成长度固定的字符串
Functionads(xAsInteger,nAsInteger)AsString
DimsxAsString,nxAsInteger,iAsInteger
sx=Str(x):
nx=Len(sx)
Fori=1Ton-nx
sx=""+sx
Nexti
①
EndFunction
PrivateSubCommand1_Click()
DimA(0To100)AsInteger'存放每个分数的个数
DimB(0To100)AsInteger'存放每个分数的名次
DimmcAsInteger,scoreAsInteger,iAsInteger
Fori=0To100
A(i)=0
Nexti
Fori=1TorecCount'计算每个分数的个数
②
Nexti
mc=1
Fori=100To0Step-1'计算每个分数的名次
IfA(i)<>0Then
B(i)=mc
③
EndIf
Nexti
List2.Clear
List2.AddItem"姓名分数名次"
List2.AddItem"----------------"
Fori=1TorecCount
score=sScore(i)
mc=B(sScore(i))
List2.AddItemsName(i)+ads(score,5)+"第"+ads(mc,3)+"名"
Nexti
EndSub
信息技术答案
一、选择题:
AADCBBDDBCBA
二、非选择题:
13.
(1)=(E3-D3)/D3*100
(2)应用领域12月环比增幅%
(3)包含
(4)将图表的数据区域改为A2:
A18,C2:
C18
14.
(1)Text
(2)①t+a②str(1-v)
(3)0
15.
(1)AC
(2)形状补间
(3)将“行棋规则”图层的1至6帧移动到25至30帧
(4)“三叠子按钮”图层的最后一帧为普通帧(或非关键帧)
(5)on(release){GetUrl(“intro.txt”);}
16.
(1)pos+str(i)
(2)result=result+mid(text1.text,i,1)
17.
(1)7
(2)①ads=sx②A(sscore(i))=A(sscore(i))+1③mc=A(i)+B(i)或mc=mc+A(i)