VB输出所有水仙花数

来源：百度知道 编辑：UC知道 时间：2024/07/01 06:16:56
通过VB输出所有水仙花数
1000以内，如153＝1立方+5立方+3立方
怎么做？！？！
有分加哦

Private Sub Command1_Click()
For i = 100 To 999
j = Left(i, 1)
k = Mid(i, 2, 1)
l = Right(i, 1)
If j ^ 3 + k ^ 3 + l ^ 3 = i Then
Print i
End If
Next i
End Sub
输出后总共只有4个
153 370 371 407
1000以内就是这么多