(相关资料图)

最近这段时间总有小伙伴问小编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。

关键词：