自冪數是指一個 n 位數，它的每個位上的數字的 n 次冪之和等于它本身。使用枚舉法尋找5位數以內的自冪數算法如下：
（1）使用循環列出1到99999中的每一個數zmsknz
（2）通過自定義函數ddknzms拆解得到每個數中的每位數上的數碼及它們對應的n次冪之和
（3）將zmsknz與ddknzms進行比較，若相等則說明是自冪數，可將其加入列表。
編寫VB程序，使用枚舉法得到5位數以內的自冪數，程序設計界面如圖所示：
請根據算法及相應注釋將下面的程序補充完整：
Function ddknzms（zmsknz As Long） As Long'得到可能的自冪數
Dim zmsknz_str As String'字符串類型自冪數可能值
Dim zmsknz_length As Integer,zmswsxh As Integer'字符串類型自冪數可能值字符個數
zmsknz_str=Trim（Str（zmsknz））
zmsknz_length=Len（zmsknz_str）
For zmswsxh=1To zmsknz_length
ddknzms=ddknzms+Val（Mid（zmsknz_str,zmswsxh,1））^①

zmsknz_length

zmsknz_length

Next zmswsxh
End Function
Private Sub Command1_Click
Const ZMSWS=
Dim zmsknz As Long,zmsknz_zz As Long
zmsknz_zz=10^ZMSWS-1
For zmsknz=1To zmsknz_zz
If  ②

ddknzms（zmsknz）=zmsknz

ddknzms（zmsknz）=zmsknz

Then List1．AddItem （Str（zmsknz））
Next zmsknz
End Sub。