VB?

水仙花數是指一個 n 位數 ( n≥3 )，它的每個位上的數字的 n 次冪之和等於它本身。（例如：1^3 + 5^3+ 3^3 = 153）

工具/原料

Visual Basic v6.0

方法/步驟

雙擊桌面圖示啟動 visual basic 6.0

選擇標準EXE，然後點選開啟。

然後雙擊 FORM1 窗體，在彈出的程式碼窗體中複製該程式碼到 Form_Click() 事件中。

程式碼：

Dim a As Integer, b As Integer, c As Integer, n As Integer

n = 0

For a = 1 To 9

For b = 0 To 9

For c = 0 To 9

If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then

n = n + 1

If (n Mod 5) = 0 Then

Print a & b & c

Else

Print a & b & c,

End If

End If

Next c

Next b

Next a

Print Chr(13) & Chr(13) & "三位數中水仙花數個數為" & n