vb所有的水仙花数

vb所有的水仙花数... vb所有的水仙花数 展开
 我来答
庆年工坊
2016-04-22 · 知道合伙人互联网行家
庆年工坊
知道合伙人互联网行家
采纳数:4233 获赞数:8928

向TA提问 私信TA
展开全部
Private Sub Command1_Click()
  For a = 1 To 9
    For b = 0 To 9
      For c = 0 To 9
        If a * a * a + b * b * b + c * c * c = 100 * a + 10 * b + c Then Print a & "^3+" & b & "^3+" & c & "^3=" & a * a * a & "+" & b * b * b & "+" & c * c * c & "="; a & b & c
  Next c, b, a
End Sub
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式