学进去

小高想实现数字各数位的重新排序，编写了一个VB程序，功能如下：在文本框Text1中输入一个数字，点击按钮后，数字各数位将重新排序。其排序规律为：字符s用来存放排序之后的数据，先找出所有数中最大的数(若有重复数，放在一起)，当左边的数字个数小于等于右边时，则放左边；否则，放在右边；再找出剩余数中最大的，用相同规律排列，以此类推，直至所有数位上的数重排完毕。其中s初始的左右两边数据个数均为0。程序运行界面如下图所示。

(1)单击“重排”按钮开始重排数据，从代码中可知，该按钮的名称为__________。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码，并且加框处代码有错，请改正。
Private Sub Cmdl_Click()
Dim a As String, lena As Integer,d(1 To 20) As String, key As String
Dim temp As String.L As Integer,R As Integer,s As String
a=Textl. Text: lena=Len(a)
For i=1 To lena
d(i)=Mid(a,I,1)
Next i
For i=1 To lena
key=d(i)
For j=1 To i-1
If  d(j)< key Then Exit For
Next j
If  key <>d(j) Then
For  k = I To j+1  Step-1
______________' ①填空
Next  k
End  If
d(j)=key

Next  i

For i=1 To lena

temp=temp+d(i)
Next  i
i=1:L=0:R=0:s=""

Do While i<=lena

For j=i+1 To lena
If  d(i)<>d(j)  Then Exit For
Next  j
If  L<=R Then
s=______________:L=L+j-i    ' ②填空
Else
s=s+Mid(temp,I,j-i):R=R+j-i
End  If
_____ ' ③改错
Loop
Label 3.Caption=s
End Sub