自冪數(shù)是指一個 n 位數(shù)，它的每個位上的數(shù)字的 n 次冪之和等于它本身。使用枚舉法尋找5位數(shù)以內(nèi)的自冪數(shù)算法如下：
（1）使用循環(huán)列出1到99999中的每一個數(shù)zmsknz
（2）通過自定義函數(shù)ddknzms拆解得到每個數(shù)中的每位數(shù)上的數(shù)碼及它們對應(yīng)的n次冪之和
（3）將zmsknz與ddknzms進(jìn)行比較，若相等則說明是自冪數(shù)，可將其加入列表。
編寫VB程序，使用枚舉法得到5位數(shù)以內(nèi)的自冪數(shù)，程序設(shè)計(jì)界面如圖所示：
請根據(jù)算法及相應(yīng)注釋將下面的程序補(bǔ)充完整：
Function ddknzms（zmsknz As Long） As Long'得到可能的自冪數(shù)
Dim zmsknz_str As String'字符串類型自冪數(shù)可能值
Dim zmsknz_length As Integer,zmswsxh As Integer'字符串類型自冪數(shù)可能值字符個數(shù)
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。