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

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

3

3

。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Const n=20
Dim a（1 To n） As Integer
Private Sub Form_Load （　　）
'讀取數(shù)據(jù)，并存儲(chǔ)到數(shù)組a中，代碼略
End Sub
Private Sub Command1_Click （　　）
Dim flag As Integer'存儲(chǔ)變化段的狀態(tài)：1表示升，-1表示降，0表示平
Dim count As Integer'存儲(chǔ)對(duì)稱波峰段的個(gè)數(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