数组a中的n个元素可构成n-1个依次排列的变化段。
●波峰:
从上升段转到下降段形成一个波峰。
波峰的起点是峰顶前所有连续上升段中的第1个,终点是峰顶后所有连续下降段中的最后1个。
●对称波峰:
上升段与下降段个数相同的波峰称为对称波峰。
下图为一组数据的变化段及波峰示意图。
现要求统计数组a各元素依次变化过程中“对称波峰”的个数。
小李依据上述描述设计如下VB程序。
请回答下列问题:
(1)数组元素“1,4,3,3,2,6,8,7,9,3,4,7,9,6,3,1”依次变化过程中“对称波峰”的个数为。
(2)请在划线处填入合适的代码。
Constn=20
Dima(1Ton)AsInteger
PrivateSubForm_Load()
'读取数据,并存储到数组a中,代码略
EndSub
PrivateSubCommand1_Click()
DimflagAsInteger'存储变化段的状态:
1表示升,-1表示降,0表示平
DimcountAsInteger'存储对称波峰段的个数
DimstepsAsInteger
DimiAsInteger
flag=0:
steps=0:
count=0
Fori=①Ton
Ifa(i)>a(i-1)Then
IfIsSymPeak(flag,steps)Thencount=count+1
Ifflag=0Orflag=-1Then
②
Else
steps=steps+1
EndIf
flag=1
ElseIfa(i)=a(i-1)Then
IfIsSymPeak(flag,steps)Thencount=count+1
steps=0
flag=0
Else
steps=steps-1
flag=-1
EndIf
Nexti
IfIsSymPeak(flag,steps)Thencount=count+1
Text1.Text=Str(count)
EndSub
FunctionIsSymPeak(flagAsInteger,stepsAsInteger)AsBoolean
If③Then
IsSymPeak=True
Else
IsSymPeak=False
EndIf
EndFunction
2018年4月浙江省普通高校招生选考科目考试技术参考答案
第一部分信息技术(共50分)
一、选择题(本大题共12小题,每小题2分,共24分)
题号
1
2
3
4
5
6
7
8
9
10
11
12
答案
A
D
B
D
C
D
C
B
A
C
A
C
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
13.
(1)C
(2)增量(亿元)或列E
(3)B3:
D14
(4)=COUNTIF(F4:
F14,">10")
14
(1)B
(2)①b1*2+b2
②i=i+4
(3)北3
15.
(1)D
(2)0%或0
(3)形状补间或形状补间动画
(4)AC
(5)12.0或12
(6)Stop();getURL("赏析.txt");或getURL("赏析.txt");Stop();
16.
(1)k=i
(2)NotflagOra(j)或NotflagOrflagAnda(j)或NotIsPrime(a(k))OrIsPrime(a(k))Anda(j)17.
(1)3
(2)①2
②steps=1
③flag=-1Andsteps=0或其他等价表达式
本word由浙江华维外国语学校厉志辉、平湖市当湖高级中学肖丽杰、平湖市当湖高级中学郭立峰、柯桥区钱清中学徐江峰、桐乡一中杜宗飞共同编辑!