高一水仙花数代码(水仙花数vb代码)
2023-07-04 10:20:18
•
来源:
导读 大家好,今天小六子来为大家解答以下的问题,关于高一水仙花数代码,水仙花数vb代码这个很多人还不知道,现在让我们一起来看看吧!1、水仙花
大家好,今天小六子来为大家解答以下的问题,关于高一水仙花数代码,水仙花数vb代码这个很多人还不知道,现在让我们一起来看看吧!
1、水仙花数是指一个 n 位数 ( n≥3 ),它的每个位上的数字的 n 次幂之和等于它本身。
2、(例如:1^3 + 5^3+ 3^3 = 153)可以运用将一个 For...Next 循环放置在另一个 For...Next 循环中,组成嵌套循环来解决水仙花求解问题。
3、以3位10进制数100-999为例,代码如下:Private Sub Command1_Click() Dim i As Long, j As Long, k As Long Dim s As Long For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 s = i * 100 + j * 10 + k If ((i ^ 3) + (j ^ 3) + (k ^ 3)) = s Then Debug.Print s End If Next k Next j Next iEnd Sub。
本文分享完毕,希望对你有所帮助。
免责声明:本文由用户上传,如有侵权请联系删除!
标签: