编写vb:“水仙花数”是指一个3位数,其各位数的立方和等于该数,如153=1^3+5^3+3^3。编写程序,打印出

[复制链接]
查看11 | 回复0 | 2010-4-19 19:55:39 | 显示全部楼层 |阅读模式
Private Sub Form_Click() Dim a%, b%, c% 'a(个)b(十)c(百)For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a*a*a + b*b*b + c*c*c = a + 10 * b + 100 * c Thenprint 100 * c + 10 * b + a End If Next
Next Next End Sub
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行