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。

本文就讲到这里，希望大家会喜欢。