任意一个大于2位的正整数（各个位上数全相同的除外，如111），如297，三个位上的数从大到小和从小到大各排一次，为972和279，相减，得693按上面做法再做一次，得到594，再做一次，得到495之后反复都得到495，495就为黑洞数．小丽编写了一个查找4位正整数黑洞数的程序，功能如下：
在文本框（text1）中输入，一个任意的四位正整数（全相同的除外，如1111），点击计算按钮，在列表框（List1）中显示计算结果，在标签Label1中显示找到的黑洞数，具体代码如下所示，请完成下列问题：
Dim su（1To 10）As Integer‘su（i）数组用来存放原始4位数和每次计算结果
Dim a（1To 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=1To 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=1To 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
①处程序代码为

su（p）=zp（su（p-1））

su（p）=zp（su（p-1））

．
②处程序代码为

4 To i+1

4 To i+1

．
③处程序代码为

zp=（a（1）*1000+a（2）*100+a（3）*10+a（4））-（a（4）*1000+a（3）*100+a（2）*10+a（1））

zp=（a（1）*1000+a（2）*100+a（3）*10+a（4））-（a（4）*1000+a（3）*100+a（2）*10+a（1））

．