vb编一个程序显示出所有的水仙花数（vb水仙花数编程）

大家好,乐天来为大家解答以下的问题，关于vb编一个程序显示出所有的水仙花数，vb水仙花数编程这个很多人还不知道,现在让我们一起来看看吧！

1、Option ExplicitPrivate Sub Form_Click() Dim i As Integer, ge As Integer, shi As Integer, bai As Integer For i = 100 To 999 bai = Int(i / 100) shi = Int((i - bai * 100) / 10) ge = i - bai * 100 - shi * 10 If i = bai ^ 3 + shi ^ 3 + ge ^ 3 Then Print i End If Next iEnd Sub。

本文分享完毕，希望对大家有所帮助。