学进去

小王用 VB 编写一个自动统计离散数据的“极大值”（如图 a 所示）个数的程序。 功能如下：在列表框 List1 中随机产生 n 个介于[1,99]的正整数，单击“统计极大值”命令按钮 Command1，程序自动统计出极大值，并将其输出到列表框 List2，且将其中的最大值输出在标签 Label1 中。程序界面如图 b 所示，实现上述功能的 VB 程序如下。（假设：数据的左右两个端点不 计入极大值，且相等的两个值也不计入极大值）。请回答以下问题：

图 a                                    图 b
（1）当 n=6，原始数据为“8 39 24 5 71 25”,此时极大值有：         。
（2）请在划线处填入合适的代码。 Const n = 10
Dim a(1 To n) As Integer    '存储原始数据 Dim Max(1 To n) As Integer  '存储极大值数据
Private Sub Form_Load()        '原始数据初始化
Randomize
For i = 1 To n
a(i) =     ①          '产生[1,99]间随机整数
List1.AddItem Str(a(i))
Next i End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim count As Integer, Maxa As Integer
count = 0
List2.Clear
For i = 2 To n - 1        '统计极大值，左右两边端点值除外
If           ②             Then
count = count + 1
    ③   = a(i)
End If
Next i
Maxa = 0
For i = 1 To count
List2.AddItem Str(Max(i))
If Maxa < Max(i) Then
Maxa = Max(i)
End If
Next i
Label1.Caption = "极大值中的最大值为：" + Str(Maxa) End Sub