1. 有一数组 a 具有 n（1≤n≤100）个元素，分别为 a(1)到 a(n)，数组元素都为正整数且有可能相等。对于每一个数组元素，如果它后面存在大于或等于该元素的数，则这两个数可以组成一对。每个元素和自己也可以组成一对。例如：{3,7,2,4,8}，可以组成 11 对，分别为（数字为下标）：(1,1)，(1, 2)， (1, 4)， (1, 5)， (2, 2)，(2, 5)， (3, 3)， (3, 4)， (3, 5)， (4, 4)， (4, 5)， (5, 5)。其中(1, 5)是距离最远的一对，距离为4。小明编写了一个VB程序，用于计算n个数组元素的最远距离。具体功能如下：运行程序时，在列表框List1中显示n个数组元素，单击命令按钮Command1，在文本框中显示这n个数组元素的最远距离。运行效果如图所示。

实现上述功能的 VB 代码如下。

Const n = 5 'n=5为例

Dim a(1 To n) As Integer           '用于记录每个数组元素的值

Dim b(1 To n) As Integer         '用于记录每个数组元素在原数组中的下标

Private Sub Form_Load()

'读取一组正整数，存储在数组 a 中

'将每个数组元素在原数组中的下标存储在数组 b 中

'将数组元素显示在列表框 List1中

'代码略

End Sub

Function Getans() As Integer

Dim left As Integer, ans As Integer

left = 10000: ans = 0

For i = 1 To n

If b(i) < left Then left = b(i)

If b(i) - left > ans Then ans = b(i) - left

Next i

Getans = ans

End Function

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

For i = 1 To n

For j = n To i + 1 Step -1

If  Then

t = a(j): a(j) = a(j - 1): a(j - 1) = t

t = b(j): b(j) = b(j - 1): b(j - 1) = t

End If

Next j

Next i

Text1.Text =        

End Sub

1. （1） 代码“Private Sub Command1_Click( )”中表示加载在Command1上的事件是。（单选，填字母：A ．Click/B ．_Click/C ．Command1_Click）
3. （2） 程序代码中，IF 语句后加框处代码有误，请改正。
5. （3） 程序代码中，将 Text1.Text 赋值语句补充完整。
7. （4） 如程序运行界面所示数据，单击命令按钮 Command1后，数组元素 b(2)的值为。