导读 今天芳芳来为大家解答以上的问题。编程水仙花数的题怎么做,2024年vb水仙花数编程相信很多小伙伴还不知道,现在让我们一起来看看吧!1、Priv...
今天芳芳来为大家解答以上的问题。编程水仙花数的题怎么做,2024年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。
本文就为大家分享到这里,希望小伙伴们会喜欢。