VB “水仙花數”實現代碼 計算代碼

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

操作方法

（01）雙擊桌面圖標啓動 visual basic 6.0

（02）選擇標準EXE，然後點擊開啟。

（03）然後雙擊  FORM1  窗體，在彈出的代碼窗體中複製該代碼到 Form_Click()  事件中。代碼：Dim a As Integer, b As Integer, c As Integer, n As Integern = 0For a = 1 To 9For b = 0 To 9For c = 0 To 9If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Thenn = n + 1If (n Mod 5) = 0 ThenPrint a & b & cElsePrint a & b & c,End IfEnd IfNext cNext bNext aPrint Chr(13) & Chr(13) & "三位數中水仙花數個數爲" & n