学进去

随机生成n个大于等于1且小于等于n的不重复正整数，采用“数据块交换”方式升序排序。数据块交换方式如下：
在待处理的数据区间中，对相邻且数据个数相等的数据块进行处理。若数字i恰好在第i位置，则不做交换，否则按下列两种情况处理。
情况A.待处理区间中，若数字i之前的数据个数小于等于其余数据个数，做一次交换可将数字i换到第i位置，如数字i=2时：

情况B.待处理区间中，若数字i之前的数据个数大于其余数据个数，操作如下：
◆奇数个数据：先将待处理区间中第1个数据排除，对其余数据整体做数据块交换，再按情况A处理，如数字i=3时：

◆偶数个数据：先将待处理区间整体做数据块交换，再按情况A处理，如数字i=4时：


（1）若数组a中数据为“4，5，1，2，3”，则第1次数据块交换后数组a中数据依次为：________
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const Maxn=30
Dim a(1 To Maxn)As Integer
Dim wz(1 To Maxn)As Integer
'函数功能:数据块[st1..edl]与后面数据块交换(两数据块相邻且个数相等)
Function kSwap(st1 As Integer,ed1 As Integer)As String
Dim i As Integer,t As Integer,n1 As Integer
nl=ed1-st1+1
For i= ①___
t=a(i):a(i)=a(i+n1):a(i+nl)=t
t=wz(a(i)):wz(a(i))=wz(a(i+n1)):wz(a(i+nl))=t
Next i
'将处理结果返回,代码略.
End Function
Private Sub Cmd l_Click()
Dim n As Integer,num As Integer,i As Integer,s As String
n=Val(Text1.Text)
'随机生成n个不重复正整数保存到a(1)到a(n)中,并在List1中显示,代码略.
For i=1 To n
wz(a(i))=i
Next i
For i=1 To n-1
If i<>wz(i)Then
        num= ②___
If wz(i)-i<=num-(wz(i)-i)Then '按情况A处理
        s=kSwap(i,wz(i)-1):List1.AddItem s
E1se
        If num Mod 2=0 Then
            s=kSwap(i,i+num\2-1):Listl.Addlten s
Else
        If num Mod 2=0 Then
            s=kSwap(i,i+num\2-1):Listl. Addltem s
        Else
            s= ③___:Listl. Addltem s
        End If
        i=i-1 '数字i交换到第i位置的处理尚未完成
End If
End If
Next i
End Sub