查找峰值问题：随机生成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