国产精品久久99,51久久成人国产精品麻豆,亚洲欧洲免费三级网站,最近中文字幕mv,重口老太大和小伙乱

首頁>資訊 > 正文

求水仙花數(shù)的vb程序(vb水仙花數(shù)編程) 全球微頭條

2023-06-10 19:18:35來源:互聯(lián)網(wǎng)


(相關(guān)資料圖)

導(dǎo)讀 來為大家解答以上的問題。求水仙花數(shù)的vb程序,vb水仙花數(shù)編程這個(gè)很多人還不知道,現(xiàn)在讓我們一起來看看吧!1、Private Sub C...

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。

本文到此分享完畢,希望對(duì)大家有所幫助。

關(guān)鍵詞:

責(zé)任編輯:

免責(zé)聲明

頭條新聞

精彩推送

新聞推送