vb 创造armstrong函数

Private Sub Form_Click()
Dim i As Integer
For i = 10 To 9999
If ________________ Then Print i
Next Ii
End Sub
Public Function armstrong( ______________ ) _______________
Dim sum As Integer
sum = 0
Do while x
sum=_______________
x=_____________
Loop
If _______________ Then
armstrong = True
Else
armstrong = False
End If
End Function

Private Sub Form_Click()
Dim i As Integer
For i = 10 To 9999
If armstrong(i) Then Print i
Next i
End Sub

Public Function armstrong(t As Integer) As Boolean
Dim sum As Integer, x As Integer, n As Integer
x = t
n = Len(CStr(x))
sum = 0
Do While x
sum = sum + Val(Right(x, 1)) ^ n
x = x \ 10
Loop
If sum = t Then
armstrong = True
Else
armstrong = False
End If
End Function

我发现完全按你的题目进行填空是无法实现的。或许出这个题目的老师有出人意表的解法？我倒是很想知道。

你说呢...