查找峰值問題：隨機生成n個正整數（假設n=20，取值范圍為0～100），存儲于數組a 中，將這些數按順序映射在坐標軸上，相鄰的數用直線相連，構建了類似于“心電圖”的折線：

編寫VB程序統計所有的峰值（peak）、峰值數量（ count）和最高點（high）。
實現上述功能的ⅤB程序如下，橫線處的代碼有錯誤，請改正。

Const n=20
Dim a（l To n）As Integer
Private Sub Form_Load（　　）
“隨機生成n個數，存儲于數組a中，并輸出在Listl中。
“代碼略。
End sub
Private Sub Command1_Click（　　）
  Dim count As Integer
  Dim high As Integer
  Dim peak As Integer
  Dim i As Integerj As Integer
count=0
if a（1）＞a（2）then count=1
high=-1
i=1
Do While i＜n-1
j=i+1
   If a（j）＞a（j-1）Then
      Do While a（j）＞a（j-1）
                       j=j+1
Lop
count=count+1
①
List2．AddItem“第“+Str（count）+“個峰值：“+Str（peak）
If  peak＞high Then high=peak
 ②
Else
i=i+1
End If
Loop
  List2．AddItem“共有：““+Str（coun+）+“個峰值：“+Str（peak）
  List2．AddItem“最高點是：“+Str（high）
End Sub