学进去

在探究冒泡排序过程中数据的“移动”情况，小明编写了一个VB程序，功能如下：在列表框Listl中显示排序前数据（存储在数组a中），在文本框Text11中输入初始位置（即下标值），单击“排序”按钮Commandl后，在标签Label4中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下：
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'排序前的8个数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim pos As Integer '变量pos存储指定数据的位置（即下标值）
Dim s As String '变量s存储pos变化情况

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

For j = n To i + 1 Step -1

If a(j) < a(j - 1) Then

k = a(j - 1)

a(j)=a(j-1)    '（2）改错

a(j) = k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化情况

If pos = j Then
pos = j - 1
s = s + "→" + Str(pos)
ElseIf      （3）            Then '填写代码
pos = j
s = s + "→" + Str(pos)
End If
End If

Next j

Next i
Label4.Caption = "位置变化情况:" + s
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
（1）要使程序运行后，窗体Form1标题立即自动显示为“冒泡排序程序探究”，可在_____（单选，填字母：A.Form_Load / B.Form_Click / C.Command_Click）事件过程中添加语句Form1.Caption=“冒泡排序程序探究”。
（2）程序代码中，加框处代码有误，请写出正确程序_________________________                
（3）程序代码中，ElseIf  Then 语句处代码缺失，请补充正确程序_________________________ 
（4）根据程序，若在Text1中输入的初始位置为3，则Label4中显示的内容为_________________________ 。