学进去

任意一个大于2位的正整数(各个位上数全相同的除外，如111)，如297，三个位上的数从大到小和从小到大各排一次，为972和279，相减，得693按上面做法再做一次，得到594，再做一次，得到495之后反复都得到495，495就为黑洞数。小丽编写了一个查找4位正整数黑洞数的程序，功能如下：
在文本框(text1)中输入，一个任意的四位正整数(全相同的除外，如1111)，点击计算按钮，在列表框(List1)中显示计算结果，在标签Label1中显示找到的黑洞数，具体代码如下所示，请完成下列问题：
Dim su(1 To 10) As Integer ‘su(i)数组用来存放原始4位数和每次计算结果
Dim a(1 To 4) As Integer ‘用来存放4位数每一位上的值
Private Sub Command1_Click()
su(1)＝Val(Text1.Text)
su(2)＝zp(su(1))
p＝2
Do While su(p)＜＞su(p－1)
p＝p＋1
____①____
Loop
For i＝1 To p
List1.AddItem su(i)
Next i
Label1.Caption＝Str(su(p))
End Sub
Function zp(m As Integer) As Integer
a(1)＝m Mod 10
a(2)＝(m\10)Mod 10
a(3)＝(m\100) Mod 10
a(4)＝m\1000
For i＝1 To 3
For j＝____②____ Step－1
If a(j)＞a(j－1) Then
t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
End If
Next j
Next i
____③____
End Function
①处程序代码为____________________________________。
②处程序代码为____________________________________。
③处程序代码为_____________________________________。