作业帮 > 综合 > 作业

水仙花数的程序怎么写啊?

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/29 07:35:53
水仙花数的程序怎么写啊?
输出所有的"水仙花数".所谓“水仙花数”是指一个3位数,其各位数字立方和等于该数本身.例如:153是一个水仙花数,因为153=1*1*1+5*5*5+3*3*3.
Private Sub Form_Click()
Dim a,b,c ,x As Integer
For a = 0 To 9
For b = 0 To 9
For c = 1 To 9
x=100 * c + 10 * b + a
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then print x;
Next c
Next b
Next a
这是用vb编的 我只学了这个
俺觉得最好讲清楚是哪一种的.于人于己都方便