字符串中的字符重排順序，具體方法如下：
?原字符串8個(gè)字符為一段，分成若干段進(jìn)行重排處理，尾段剩余字符（個(gè)數(shù)小于8）為獨(dú)立段不做處理。
?重排規(guī)則：
從起始段第1個(gè)字符開始，從1開始數(shù)數(shù)，數(shù)到m時(shí)取出該位置上的字符，拼接到新字符串。然后，從下一個(gè)位置繼續(xù)從1開始數(shù)數(shù)，數(shù)到m時(shí)再次取出相應(yīng)位置上的字符。當(dāng)數(shù)到每段的最后一個(gè)字符時(shí)，重新從該段首第一個(gè)沒有取掉的字符繼續(xù)數(shù)數(shù)。重復(fù)上述操作，直至段內(nèi)8個(gè)字符被取完。注：當(dāng)某段中的7個(gè)字符被取出后，該段最后一個(gè)字符不需要數(shù)數(shù)，直接取出拼接到新字符串即可。
用以上方法逐段取字符，直至除獨(dú)立段之外的其他字符取完。
獨(dú)立段字符個(gè)數(shù)小于8，不需要重排，直接拼接到新字符串的尾部即可。
實(shí)現(xiàn)該功能的VB程序功能如下：程序運(yùn)行時(shí)從文本框Text1中輸入一段字符串，在文本框Text2輸入正整數(shù)m,單擊“確定”按鈕Command1，對(duì)字符串按上述方法重排后在文本框Text3中顯示（每段以逗號(hào)分隔）。程序運(yùn)行界面如下：

（1）運(yùn)行上述程序，若在文本框中輸入“1010110010”，在Text2中輸入5，單擊“確定”按鈕，則文本框Text3中顯示的內(nèi)容是

10001011，10，

10001011，10，

。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
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
'處理獨(dú)立段
If n＜＞0 Then s2=s2+Mid（Text1.Text,Len（Text1.Text）-n+1，n）+“，“
Text3.Text=s2
End Sub