求出所有的水仙花数 要求用VB 写出全过程

1000以内的
Private Sub Form_Click()
Dim a, b, c As Integer 'a(个)b(十)c(百)

For a = 0 To 9
For b = 0 To 9
For c = 1 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then
MsgBox 100 * c + 10 * b + a
End If
Next c
Next b
Next a

End Sub

没有范围？所有？那可多了~~~~再说你没有分 很少人给你写的