為分析數(shù)組a中各元素依次變化的情況，進行如下定義：
?變化段：數(shù)組中相鄰兩個元素構成一個變化段。變化段有上升段（a（i）＞a（i-1））、下降段（a（i）＜a（i-1））和持平段（a（i）=a（i-1））。數(shù)組a中的n個元素可構成n-1個依次排列的變化段。
?波峰：從上升段轉(zhuǎn)到下降段形成一個波峰。波峰的起點是峰頂前所有連續(xù)上升段中的第1個，終點是峰頂后所有連續(xù)下降段中的最后1個。
?對稱波峰：上升段與下降段個數(shù)相同的波峰稱為對稱波峰。
下圖為一組數(shù)據(jù)的變化段及波峰示意圖。

現(xiàn)要求統(tǒng)計數(shù)組a各元素依次變化過程中“對稱波峰”的個數(shù)。小李依據(jù)上述描述設計如下VB程序。請回答下列問題：
（1）數(shù)組元素“1，4，3，3，2，6，8，7，9，3，4，7，9，6，3，1”依次變化過程中“對稱波峰”的個數(shù)為

3

3

。
（2）請在橫線處填入合適的代碼。
Const n=20
Dim a（1 To n） As Integer
Private Sub Form_Load （　　）
'讀取數(shù)據(jù)，并存儲到數(shù)組a中，代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim flag As Integer'存儲變化段的狀態(tài)：1表示升，-1表示降，0表示平
Dim count As Integer'存儲對稱波峰段的個數(shù)
Dim steps As Integer
Dim i As Integer
flag=0：steps=0：count=0
For i=①To n
If a（i）＞a（i-1）Then
If IsSymPeak（flag,steps） Then count=count+1
If flag=0 Or flag=-1 Then
②
Else
steps=steps+1
End If
ElseIfa（i）=a（i-1）Then
If IsSymPeak（flag,steps） Then count=count+1
steps=0
flag=0
Else
steps=steps-1
flag=-1
End If
Next i
If IsSymPeak（flag,steps） Then count=count+1
Text1．Text=Str（count）
End Sub
Function IsSymPeak（flag As Integer,steps As Integer） As Boolean
If ③ Then
IsSymPeak=True
Else
IsSymPeak=False
End If
End Function