vb程序设计水仙花数(vb水仙花数编程)

您好,蔡蔡就为大家解答关于vb程序设计水仙花数，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。

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

免责声明：本文由用户上传，如有侵权请联系删除！