编程求出所有的水仙花数,并在窗体显示。所谓水仙花数,是指一个三位数,其各位数字的立方和等于该数本身

[复制链接]
查看11 | 回复1 | 2010-11-3 21:01:02 | 显示全部楼层 |阅读模式
Option ExplicitPrivate Sub Command1_Click()Dim i%, j%, k%For i = 1 To 9For j = 0 To 9For k = 0 To 9 If i * i * i + j * j * j + k * k * k = i * 100 + j * 10 + k Then Print i & j & kNext k: Next j: Next iEnd Sub
回复

使用道具 举报

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

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行