学进去

有一数组 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）代码“Private Sub Command1_Click()”中表示加载在 Command1 上的事件是_______________ 。（单选，填字母：

A．Click/

B．_Click/

C．Command1_Click）

（2）程序代码中，IF 语句后加框处代码有误，请改正___________。
（3）程序代码中，将 Text1.Text 赋值语句补充完整__________________。
（4）如程序运行界面所示数据，单击命令按钮 Command1 后，数组元素 b(2)的值为____________。