VB “水仙花數”實現代碼 計算代碼
- 互聯網
- 關注:2.55W次
水仙花數是指一個 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
- 文章版權屬於文章作者所有,轉載請註明 https://miaozhigu.com/sm/hulianwang/dq8zk.html