小王用 VB 編寫一個(gè)自動(dòng)統(tǒng)計(jì)離散數(shù)據(jù)的“極大值”（如圖 a 所示）個(gè)數(shù)的程序。功能如下：在列表框 List1 中隨機(jī)產(chǎn)生 n 個(gè)介于[1，99]的正整數(shù)，單擊“統(tǒng)計(jì)極大值”命令按鈕 Command1，程序自動(dòng)統(tǒng)計(jì)出極大值，并將其輸出到列表框 List2，且將其中的最大值輸出在標(biāo)簽 Label1 中。程序界面如圖 b 所示，實(shí)現(xiàn)上述功能的 VB 程序如下。（假設(shè)：數(shù)據(jù)的左右兩個(gè)端點(diǎn)不 計(jì)入極大值，且相等的兩個(gè)值也不計(jì)入極大值）。請(qǐng)回答以下問(wèn)題：

 （1）當(dāng) n=6，原始數(shù)據(jù)為“8 39 24 5 71 25”，此時(shí)極大值有：

39 71

39 71

。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。Const n=10
Dim a（1To n） As Integer'存儲(chǔ)原始數(shù)據(jù) Dim Max（1To n） As Integer'存儲(chǔ)極大值數(shù)據(jù)
Private Sub Form_Load （　?。?原始數(shù)據(jù)初始化
Randomize
For i=1To n
a（i）=

①

①

'產(chǎn)生[1，99]間隨機(jī)整數(shù)
List1．AddItem Str（a（i））
Next i End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer
Dim count As Integer,Maxa As Integer
count=0
List2．Clear
For i=2To n-1'統(tǒng)計(jì)極大值，左右兩邊端點(diǎn)值除外
If

②

②

Then
count=count+1

③

③

=a（i）
End If
Next i
Maxa=0
For i=1To count
List2．AddItem Str（Max（i））
If Maxa＜Max（i） Then
Maxa=Max（i）
End If
Next i
Label1．Caption=“極大值中的最大值為：“+Str（Maxa） End Sub