(資料圖)
1、Private Sub Command1_Click()Dim s%, s1%, s2%, t%For s = 100 To 1000s2 = 0t = sDo While t > 0s1 = t Mod 10t = t 10s2 = s2 + s1 ^ 3LoopIf s = s2 ThenPrint "水仙花數(shù)為："; sEnd IfNext sEnd Sub。
本文就為大家分享到這里，希望看了會(huì)喜歡。
關(guān)鍵詞：
(資料圖)
1、Private Sub Command1_Click()Dim s%, s1%, s2%, t%For s = 100 To 1000s2 = 0t = sDo While t > 0s1 = t Mod 10t = t 10s2 = s2 + s1 ^ 3LoopIf s = s2 ThenPrint "水仙花數(shù)為："; sEnd IfNext sEnd Sub。
本文就為大家分享到這里，希望看了會(huì)喜歡。
關(guān)鍵詞：
