字符串中的字符重排顺序，具体方法如下：
•原字符串8个字符为一段，分成若干段进行重排处理，尾段剩余字符（个数小于8）为独立段不做处理。
•重排规则：
从起始段第1个字符开始，从1开始数数，数到m时取出该位置上的字符，拼接到新字符串。然后，从下一个位置继续从1开始数数，数到m时再次取出相应位置上的字符。当数到每段的最后一个字符时，重新从该段首第一个没有取掉的字符继续数数。重复上述操作，直至段内8个字符被取完。注：当某段中的7个字符被取出后，该段最后一个字符不需要数数，直接取出拼接到新字符串即可。
用以上方法逐段取字符，直至除独立段之外的其他字符取完。
独立段字符个数小于8，不需要重排，直接拼接到新字符串的尾部即可。
实现该功能的VB程序功能如下：程序运行时从文本框Text1中输入一段字符串，在文本框Text2输入正整数m,单击“确定”按钮Command1，对字符串按上述方法重排后在文本框Text3中显示（每段以逗号分隔）。程序运行界面如下：

（1）运行上述程序，若在文本框中输入“1010110010”，在Text2中输入5，单击“确定”按钮，则文本框Text3中显示的内容是

10001011，10，

10001011，10，

。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click （　　）
Dim s1 As String,s2 As String
Dim i As Integer,sum As Integer,ed As Integer,n As Integer
Dim m As Integer
①
s1=Mid（Text1.Text,1，Len（Text1.Text）-n）
m=Val（Text2.Text）
s2=““
'字符重排顺序
sum=0：i=1：ed=8
Do While Len（s1）＜＞0
sum=sum+1
If sum=m Then
s2=s2+Mid（s1，i,1）
s1=Mid（s1，1，i-1）+Mid（s1，i+1，Len（s1）-i）
ed=ed-1
sum=0
Else
i=i+1
End If
If ed=1 Then
s2=s2+Mid（s1，1，1）+“，“
②
ed=8
i=1
ElseIf ③ Then
i=1
End If
Loop
'处理独立段
If n＜＞0 Then s2=s2+Mid（Text1.Text,Len（Text1.Text）-n+1，n）+“，“
Text3.Text=s2
End Sub