填空题

寻找最大数。在文本框Text1中输入一串数字，输出由这些数字组合而成的最大数。算法的基本思路是：先将输入的数按位拆开，再把数从大到小排序后重新组合。如输入123，重新组合后输出的最大数是321。实现该功能的程序如下，在程序①和②划线处填入适当的语句或表达式，把程序补充完整。
                                                    　　
Private Sub Command_Click( )
Dim a(1 to 10) as Integer
Dim n as      ①
Dim i,lena,j as integer
n=Text1.text
lena=Len(n)
For i=1 to lena      ‘按位取出各位数字       　　
a(i)=Val(Mid(n,1,i)) ②
Next i
For i=1 to lena-1
For j=lena to i+1 Step -1
If        ③        then
t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i
For i=1 to lena
Text2.text=text2.text+str(a(i))
Next i
End Sub
（1）程序①中划线处应填入______。
（2）程序②中划线处语句有错，应改为：______。
（3）程序③中划线处应填入______。