水仙花數是指一個 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