问c水仙花数的编程（vb水仙花数编程）

您好,今天蔡哥来为大家解答以上的问题。c水仙花数的编程，vb水仙花数编程相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、Private Sub Command1_Click()Dim s%, s1%, s2%, t%For s = 100 To 1000s2 = 0t = sDo While t > 0s1 = t Mod 10t = t 10s2 = s2 + s1 ^ 3LoopIf s = s2 ThenPrint "水仙花数为："; sEnd IfNext sEnd Sub。

本文就为大家分享到这里，希望小伙伴们会喜欢。