导读 您好,今天蔡哥来为大家解答以上的问题。水仙花数vb代码找100到999，vb水仙花数编程相信很多小伙伴还不知道,现在让我们一起来看看吧！1、Pri...
您好,今天蔡哥来为大家解答以上的问题。水仙花数vb代码找100到999，vb水仙花数编程相信很多小伙伴还不知道,现在让我们一起来看看吧！
1、Private Sub Form_Click()Dim i, j, m, n As IntegerFor n = 100 To 999i = n 100j = (n Mod 100) 10m = n Mod 10If i ^ 3 + j ^ 3 + m ^ 3 = n ThenPrint n; "="; i; "^3+"; j; "^3+"; m; "^3"End IfNext nEnd Sub。
本文就为大家分享到这里，希望小伙伴们会喜欢。
