(相关资料图)

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。

本文分享完毕，希望对你有所帮助。

标签：