Nextj
Ifk<>iThen
temp=a(i):
a(i)=a(k):
a(k)=temp:
t=t+1
EndIf
Nexti
Text1.Text=Str(t)
该程序段运行后,文本框Text1中显示的内容是
A.1B.2C.3D.4
二、非选择题(本大题共5小题,其中第13题4分,第14题5分,第15题8分,第16题4分,第17题5分,共26分)
13.小王收集了某地农产品市场零售价格数据,并使用Excel软件进行数据处理,界面如图所示。
回答下列问题:
(1)如第13题图-1所示,“最大差值”列数据是某地农产品市场零售价格的最大差值,小王先在H5单元格输入公式,再利用自动填充功能完成区域H6:
H19的计算。
(提示:
Excel中求最大值、最小值函数分别为max()和min(),最大差值=最高价格―最低价格。
)
(2)小王在完成数据计算后,若要对蔬菜类的农产品数据以“最大差值”为关键字进行排序,则排序时选择的数据区域是。
(3)根据第13题图-1中数据制作的图表如第13题图-2所示,创建该图表的数据区域是。
(4)小王对“最大差值”列数据进行筛选,条件如13题图-3所示,则筛选结果中显示的记录数为条。
14.小乐编写了一个求最小公倍数的程序,他先借鉴更相减损术求出最大公约数,再求出最小公倍数。
更相减损术是出自《九章算术》的一种求最大公约数的算法,其原理是用大数减去小数,互相减来减去,一直到减数与差相等为止。
在文本框Text1中输入一个整数,在Text2中输入另一个整数,单击“计算”按钮Command1,在Label3中输出两个数的最小公倍数。
程序运行界面如第14题图所示。
(1)根据程序代码判断,保证程序正常运行,窗体中至少需要个对象。
(2)为了实现上述功能,请在划线处填入合适的代码。
PrivateSubCommand1_Click()
DimmAsInteger,nAsInteger,gysAsInteger
m=Val(Text1.Text):
n=Val(Text2.Text):
a=m:
b=n
DoWhilem<>n
If①Thenm=m-nElsen=n-m
Loop
gys=n
Label3.Caption="最小公倍数是:
"+②
EndSub
(3)若在文本框Text1中输入15,在文本框Text2中输入6,单击“计算”按钮后,语句m=m-n执行了次。
15.小华同学创作了一个Flash动画,效果如第15题图-1所示:
(1)这个作品共有6个场景,测试影片时,首先播放的是场景(填场景名)。
(2)如第15题图-1所示,“声音”图层第1帧的声音来自文件“sound.mp3”,小华同学利用GoldWave软件打开该文件后,在第15题图-2所示状态下进行“剪裁”操作,并按原格式进行保存,该音频文件的存储容量(选填:
变大/变小/不变)。
在声音图层第1帧处插入“sound.mp3”文件,属性面板部分界面如第15题图-3所示,在没有任何干预的情况下,该音频持续播放的时长为秒。
(3)设置“福”图层中福元件实例从舞台右侧向中间旋转进入,则该动画类型是(单选,填字母:
A.动画补间动画/B.形状补间动画/C.逐帧动画)。
(4)要实现“文字1”、“文字2”、“文字3”和“文字4”补间动画依次出现的效果,应做的调整是。
(5)测试影片时,单击“静音”按钮,实现静音效果,则“静音”按钮的动作脚本为
。
16.【加试题】数字频率统计:
小王编写VB程序,实现如下功能:
在Text1中输入一串任意字符串(含数字),单击“统计”按钮Command1,在列表框List1中统计并输出数字0~9出现的次数。
运行界面如图所示,VB程序代码如下。
为实现上述功能,请在划线处填入合适的代码。
PrivateSubCommand1_Click()
Dima(0To9)AsInteger,sAsString
DimkAsString,iAsInteger
s=Text1.Text
List1.Clear
Fori=1ToLen(s)
Ifk>="0"Andk<="9"Then
EndIf
Nexti
Fori=0To9
List1.AddItemStr(i)&"出现了:
"&a(i)&"次"
Nexti
EndSub
17.【加试题】小马正在看一本侦探小说,想了解其中一段案情的解析,却发现了一串字符“#2017-2018go:
)”,并附有文字提示:
①答案所在的页码是这串字符中最大数字字串(若值相同则取后面的数字字串)的起始位置*10+结束位置②答案所在行号是最大数值除以100的余数。
例如:
“#17a18#”字符串中,最大数字字串“18”,起始位置是5,结束位置是6,其页码是56,行号是18。
小马编写了一个VB程序帮他寻找答案,程序运行界面如第16题图所示。
在文本框Text1中输入这段字符串s1,单击“揭秘”按钮Command1,在文本框Text2中输出页码,在Text3中输出行号。
实现上述功能的VB程序代码如下,但加框处代码有错,请改正。
PrivateSubCommand1_Click()
Dims1AsString,s2AsString
DimchAsString,ch2AsString
DimmaxAsDouble
DimnAsInteger,pageAsInteger
DimiAsInteger,jAsInteger
s1=Text1.text:
s2=""
n=Len(s1)
i=1:
(1)
DoWhilei<=n
ch=Mid(s1,i,1)
Ifch>="0"Andch<="9"Then
j=i
ch2=Mid(s1,j,1)
DoWhilech2>="0"Andch2<="9"
j=j+1
ch2=Mid(s1,j,1)
Loop
s2=Mid(s1,1,j–i)'
(2)-
(1)
IfThen'
(2)-
(2)
max=Val(s2)
page=i*10+j-1
Text2.Text=Str(page)
Text3.Text=Str(maxMod100)
EndIf
i=j
EndIf
i=i+1
Loop
EndSub