随机生成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中数据依次为：

1，2，4，5，3

1，2，4，5，3

（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
ConstMaxn=30
Dima（1ToMaxn）AsInteger
Dimwz（1ToMaxn）AsInteger
'函数功能：数据块[st1..edl]与后面数据块交换（两数据块相邻且个数相等）
FunctionkSwap（st1AsInteger,ed1AsInteger）AsString
DimiAsInteger,tAsInteger,n1AsInteger
nl=ed1-st1+1
Fori=①

stl to edl

stl to edl

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
Nexti
'将处理结果返回，代码略.
EndFunction
PrivateSubCmdl_Click （　　）
DimnAsInteger,numAsInteger,iAsInteger,sAsString
n=Val（Text1.Text）
'随机生成n个不重复正整数保存到a（1）到a（n）中，并在List1中显示，代码略.
Fori=1Ton
wz（a（i））=i
Nexti
Fori=1Ton-1
Ifi＜＞wz（i）Then
num=②

n-i+1

n-i+1

Ifwz（i）-i＜=num-（wz（i）-i）Then'按情况A处理
s=kSwap（i,wz（i）-1）：List1.AddItems
E1se
IfnumMod2=0Then
s=kSwap（i,i+num\2-1）：Listl.Addltens
Else
IfnumMod2=0Then
s=kSwap（i,i+num\2-1）：Listl.Addltems
Else
s=③

kSwap（i+1，i+num\2）

kSwap（i+1，i+num\2）

：Listl.Addltems
EndIf
i=i-1'数字i交换到第i位置的处理尚未完成
EndIf
EndIf
Nexti
EndSub