任意一個大于2位的正整數(shù)（各個位上數(shù)全相同的除外，如111），如297，三個位上的數(shù)從大到小和從小到大各排一次，為972和279，相減，得693按上面做法再做一次，得到594，再做一次，得到495之后反復(fù)都得到495，495就為黑洞數(shù)．小麗編寫了一個查找4位正整數(shù)黑洞數(shù)的程序，功能如下：
在文本框（text1）中輸入，一個任意的四位正整數(shù)（全相同的除外，如1111），點擊計算按鈕，在列表框（List1）中顯示計算結(jié)果，在標(biāo)簽Label1中顯示找到的黑洞數(shù)，具體代碼如下所示，請完成下列問題：
Dim su（1To 10）As Integer‘su（i）數(shù)組用來存放原始4位數(shù)和每次計算結(jié)果
Dim a（1To 4）As Integer‘用來存放4位數(shù)每一位上的值
Private Sub Command1_Click （　?。?br />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））

．