導(dǎo)讀 關(guān)于vb編寫(xiě)100至999的水仙花數(shù)，vb水仙花數(shù)編程這個(gè)問(wèn)題很多朋友還不知道，今天小六來(lái)為大家解答以上的問(wèn)題，現(xiàn)在讓我們一起來(lái)看看吧！1、
關(guān)于vb編寫(xiě)100至999的水仙花數(shù)，vb水仙花數(shù)編程這個(gè)問(wèn)題很多朋友還不知道，今天小六來(lái)為大家解答以上的問(wèn)題，現(xiàn)在讓我們一起來(lái)看看吧！
1、首先雙擊桌面圖標(biāo)啟動(dòng) visual basic 6.0。
2、2、然后新建工程，選擇標(biāo)準(zhǔn)EXE。
3、3、選擇完工程后，點(diǎn)擊打開(kāi)，就可以新建一個(gè)exe工程了。
4、4、然后雙擊 FORM1 窗體，在彈出的代碼窗體中復(fù)制該代碼到 Form_Click() 事件中。
5、5、代碼：If 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) & "三位數(shù)中水仙花數(shù)個(gè)數(shù)為" &n。
6、最后運(yùn)行這樣就完成了。
本文分享完畢，希望對(duì)大家有所幫助。
標(biāo)簽：
免責(zé)聲明：本文由用戶(hù)上傳，如有侵權(quán)請(qǐng)聯(lián)系刪除！