VB “水仙花數”實現程式碼 計算程式碼
來源:酷知科普網 2.65W
水仙花數是指一個 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