水仙花数c语言程序vb,VB编程:求水仙花数

VB编程:求水仙花数

來源:互聯網  2009-10-07 17:06:58  評論

分類: 電腦/網絡 >> 程序設計 >> 其他編程語言

問題描述:

求出"水仙花数"

所谓水仙花数是一个三位数,其各位数字立方和等于该数本身.例如: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

[b]分类:[/b] 电脑/网络 >> 程序设计 >> 其他编程语言[br][b]问题描述:[/b][br]求出"水仙花数"

所谓水仙花数是一个三位数,其各位数字立方和等于该数本身.例如:153是个水仙花数.因为153=1^3+5^3+3^3=153

要用messagebox显示结果.

谢谢

做完后再追加,害怕没人回答^-^[br][b]参考答案:[/b][br]///编程求出所有的 “水仙花数”：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

烟花飘飘的空间，里面还有几个例子，你可以看看

[url=http://hi.baidu.com/yhpp521]http://hi.baidu.com/yhpp521[/url]