VB編程水仙花數(shù)？VB實(shí)現(xiàn)水仙花數(shù)的程序代碼如下： Private Sub Command_Click() For num = 100 To 999 a = num Mod 10 b = num 1

VB編程水仙花數(shù)？

VB實(shí)現(xiàn)水仙花數(shù)的程序代碼如下： Private Sub Command_Click() For num = 100 To 999 a = num Mod 10 b = num 10 Mod 10 c = num 100 If a^3 b^3 c^3 = num Then Print num Next num End Sub 實(shí)現(xiàn)具體步驟如下： 1、啟動(dòng)VB程序，新建一個(gè)標(biāo)準(zhǔn)exe工程 2、在窗體上繪制一個(gè)命令按鈕（名稱：Command），雙擊命令按鈕進(jìn)入代碼窗口。 3、接下來開始編寫命令按鈕的單擊事件。點(diǎn)擊事件要實(shí)現(xiàn)的內(nèi)容就是上面提供的程序代碼。 4、按F5運(yùn)行程序，點(diǎn)擊命令命令按鈕，輸出的水仙花數(shù)共有4個(gè)：153，370，371，407。

VB編程水仙花數(shù)？

所謂的水仙花數(shù)（梅花數(shù)）是指在三位整數(shù)(100到999之間)中，百位數(shù)、十位數(shù)、個(gè)位數(shù)的立方和等于它本身，如153=1^3 5^3 3^3。程序代碼如下：Private Sub Command1_Click() Dim i As Integer， s As Integer Dim a As Integer， b As Integer， c As Integer Print "100到999所有水仙花數(shù)（也叫梅花數(shù)）：" For i = 100 To 999 a = i 100 "取百位數(shù) b = i 10 Mod 10 "或 b = i Mod 100 10 取十位數(shù) c = i Mod 10 ‘取個(gè)位數(shù) s = a ^ 3 b ^ 3 c ^ 3 "水仙花數(shù)的判斷依據(jù) If s = i Then Print i End If Next iEnd Sub運(yùn)行結(jié)果：100到999所有水仙花數(shù)（也叫梅花數(shù)）： 153 370 371 407

水仙花數(shù)的算法編寫程序？

水仙花數(shù)”是指一個(gè)三位數(shù)，它的各位數(shù)字的立方和等于其本身，比如:153=13 53 3^3。 現(xiàn)在要求輸出所有在m和n范圍內(nèi)的水仙花數(shù)。 輸入數(shù)據(jù)有多組，每組占一行，包括兩個(gè)整數(shù)m和n(100 ≤ m ≤ n ≤ 999)。 對(duì)于每個(gè)測試實(shí)例，要求輸出所有在給定范圍內(nèi)的水仙花數(shù)。