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

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

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

 程序运行界面如图所示。

数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n=8

Dim a(1 To n)  As Integer

Private Sub Command1_Click()

  Dim i As Integer，j As Integer，k As Integer，t As Integer

  Dim flag As Boolean

  ‘读取一组正整数，存储在数组a中。代码略

  For i=1 To n-1

               ‘(1)

If IsPrime(a(k))Then flag=True Else flag=False

      For j=i+1 To n

        If IsPrime(a(i))Then

          If  Then       ‘(2)

            k=j

            flag=True

           End If

       End If

    Next j

    If k<>i Then

      t=a(k)：a(k)=a(i)：a(i)=t

    End If

    If Not flag Then Exit For     ‘Exit For表示退出循环

  Next i

  ‘依次输出排序后的数据。代码略

End Sub

Function IsPrime(m As Integer)As Boolean

‘本函数判断m是否是素数：是素数返问值为True，不是素数返回值为False

    ‘代码略

End Function

例如将某节点插入到已有链表中，根据大小比较有三种情况：插入到最前面、插入到 最后、插入到中间，如图a所示，在链表中的节点 x 和节点 y之间插入节点n的过程示意：过程一（初始状态）如图1所示，链表中节点 x 的指针域指向节点y数据域，即图示①指向；过程二如图2所示，将节点n的指针域指向节点 y 数据域，即图示②指向；过程三如图 3 所示，将①指向断开，同时将节点 x 的指针域指向节点n数据域，即图示③指向；至此完成节点n的插入操作。

图a

具体程序设计方法如下：

1）将待排序的n个数保存在a(1)~a(n)，b(1)~b(n)保存对应a数组各元素的位置，形成 n个没有链接的节点；

2）将a(1)结点看成只含有一个结点的链表head，且 head=1；

3）将a(2)节点插入到链表head的适当位置，使head仍有序，此时head成为含有两个结点的有序链表；以此方法依次将a数组中的其他节点插入到链表head中，最后链表 head上包含所有结点，且结点有序。依次输出head链表的数据域即完成排序。

程序运行界面如图b所示，采用此思想进行升序排序的 VB 代码如下，请回答下列问题。

图b