求出"水仙花数"
所谓水仙花数是一个三位数,其各位数字立方和等于该数本身.例如:153是个水仙花数.因为153=1^3+5^3+3^3=153
要用messagebox显示结果.
谢谢
做完后再追加,害怕没人回答^-^
參考答案:///编程求出所有的 “水仙花数”：2006-10-10 08:43///
把下面代码复制到代码区，点击窗体触发事件
Private Sub Form_Click()
Dim a, b, c As Integer 'a(个)b(十)c(百)
For a = 0 To 9
For b = 0 To 9
For c = 1 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then
MsgBox 100 * c + 10 * b + a
End If
Next c
Next b
Next a
End Sub
烟花飘飘的空间，里面还有几个例子，你可以看看
