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

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

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

 程序运行界面如图所示。

实现上述功能的VB程序如下：

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1  Click()

For i=1 To n

               ‘①

    List1．Addltem Str(a(i))

    Next i

End Sub

 Private Sub Command2  Click()

    tmp=1

    For i=1 To n-1

    For j=n To i+1 Step-1

    If  ＞0 Then    ①

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

    End If

    Next j

    ②

    Next i

    For i=1 To 10

    List2．Addltem Str(a(i))

    Next i

 End Sub

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

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

Dim bottom As Integer

'获取排序前数据依次存储在数组a中，并在文本框Text1中显示。代码略

bottom = n

i = 1

Do While i <= bottom - 1

   For j = bottom To i + 1 Step -1

      If  Then  {#blank#}1{#/blank#}

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

      ElseIf a(j) = a(j - 1) Then    '相邻两个数据相等，进行剔除处理

            {#blank#}2{#/blank#}

         bottom = bottom - 1

      End If

   Next j

   i = i + 1

Loop

Text2.Text = " "

For i = 1 To bottom

   Text2.Text = Text2.Text + Str(a(i))

Next i

End Sub

请回答下列问题：