那位高手帮我做道VB题，谢谢!

来源：百度知道 编辑：UC知道 时间：2024/05/15 09:01:10
编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字的立方和等于该数字本身。

Private Sub Command1_Click()
Dim i%
For i = 100 To 999
If (i \ 100) ^ 3 + ((i \ 10) Mod 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i
Next
End Sub

已经是 三位数了

没想到^3就是三次方啊，vb速查里都没查到立方
Private Sub Command1_Click()
For i = 100 To 999
If CInt(Left(i, 1)) * CInt(Left(i, 1)) * CInt(Left(i, 1)) + CInt(Mid(i, 2, 1)) * CInt(Mid(i, 2, 1)) * CInt(Mid(i, 2, 1)) + CInt(Right(i, 1)) * CInt(Right(i, 1)) * CInt(Right(i, 1)) = CInt(i) Then
Print i
Else
End If
Next i

End Sub