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

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

VB實現(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 實現(xiàn)具體步驟如下： 1、啟動VB程序，新建一個標準exe工程 2、在窗體上繪制一個命令按鈕（名稱：Command），雙擊命令按鈕進入代碼窗口。 3、接下來開始編寫命令按鈕的單擊事件。點擊事件要實現(xiàn)的內(nèi)容就是上面提供的程序代碼。 4、按F5運行程序，點擊命令命令按鈕，輸出的水仙花數(shù)共有4個：153，370，371，407。

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

所謂的水仙花數(shù)（梅花數(shù)）是指在三位整數(shù)(100到999之間)中，百位數(shù)、十位數(shù)、個位數(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 ‘取個位數(shù) s = a ^ 3 b ^ 3 c ^ 3 "水仙花數(shù)的判斷依據(jù) If s = i Then Print i End If Next iEnd Sub運行結(jié)果：100到999所有水仙花數(shù)（也叫梅花數(shù)）： 153 370 371 407

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

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