按指定格式录入数据，例：0373,张乐晓,3.90。编号宽度固定为4位，姓名宽度固定为3个汉字，不足部分以全角空格补齐，第9个字符开始为跳远成绩。

 在文本框按回车表示录入一项数据结束，录入的数据经处理后编号、姓名、成绩分别存放在数组编号bh、xm、cj中并将原始数据显示在List1中。

 点击命令按钮Command1后进行排序并将排序后的结果显示在List2中。

 程序运行界面如图所示。

在列表框List1中显示排序前数据（存储在数组a中），在文本框Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下，请在横线处填上合适的代码，改正加框处的代码。

Dim a(1 To 8) As Integer

Dim n  As Integer

Private Sub Form_Load()

   'n = 8，排序前的8个数据存储在数组a中，并在列表框List1中显示

   '代码略

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 =    ⑴            

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

                 ⑵             

              a(j - 1) = a(j)

              a(j) = k

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

              If pos = j Then

                  pos = j - 1

                  s = s + "→" + Str(pos)

                                               '（3）

                  pos = j

                  s = s + "→" + Str(pos)

              End If

          End If

      Next j

Next i

Label1.Caption = "位置变化情况：" + s

For i = 1 To n

      List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} ⑶{#blank#}3{#/blank#} 

a(i)= Int(Rnd * 20) + 1 Next i

For i= 2 To 5

If i Mod 2 = 1 And a(i-1) < a(i)Then  t=a(i):a(i)=a(i-1):a(i-1)=t

Else

a(i)=a(i)-1 End If

Next i

执行该程序段后，a（1）~ a（5）各元素不可能的值是（  ）

Private Sub Command1_Click()

 Dim a(1 To 5) As Integer

 a(5)=Val(Text1.text)

 For i=4 To 1 Step -1

   a(i)=a(i+1)\2

 Next i

 Label1.caption=str(a(1))

End sub

在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（  ）

s=0

For k =3 To 1 Step-1

    If k <=1 Then x=1

    If k <=2 Then x=2

    If k <=3 Then x=3

    s=s+x

Next k

Text1. Text= Str(s)

该程序段运行后，文本框Text1中显示的内容是（  ）