網站首頁 健康小知識 母嬰教育 起名 運動知識 職場理財 情感生活 綠色生活 遊戲數碼 美容 特色美食 愛好

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

欄目: 互聯網 / 發佈於: / 人氣:2.61W

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

操作方法

(01)雙擊桌面圖標啟動 visual basic 6.0

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

(02)選擇標準EXE,然後點擊打開。

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

(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

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