水仙花数vb语言代码(水仙花数vb代码)

时间:2023-09-20 10:24:20 来源:
导读 您好,现在蔡蔡来为大家解答以上的问题。水仙花数vb语言代码,水仙花数vb代码相信很多小伙伴还不知道,现在让我们一起来看看吧!1、水仙花数...

您好,现在蔡蔡来为大家解答以上的问题。水仙花数vb语言代码,水仙花数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。

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

标签:
最新文章