用vb做，求全过程

用vb做，求全过程

循环一下不就可以了？
For i = 100 To 1000
Dim s()
If (i = Mid(i, 1, 1) ^ 3 + Mid(i, 2, 1) ^ 3 + Mid(i, 3, 1) ^ 3) Then
Debug.Print "自恋数：" & i
End If
Next

Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 1000
Dim s()
If (i = Mid(i, 1, 1) ^ 3 + Mid(i, 2, 1) ^ 3 + Mid(i, 3, 1) ^ 3) Then
Print "自恋数：" & i
End If
Next
End Sub
求出153·370·371·407

Private Sub Form_Load()
    Dim i As Integer, n As Integer, j As Integer
    Dim sum As Long
    For i = 0 To 1000
        sum = 0
        n = Len(Str(i)) - 1 '获得数字的位数
        For j = 1 To n
            sum = sum + Int(Val(Mid(Str(i), j + 1, 1))) ^ 3
        Next
        If sum = i Then MsgBox sum
    Next
End Sub