Question

VB输出水仙花数。

“水仙花数”是指一个3位数，其中各位数的立方和等于该数，如153=1^3+5^3+3^3，编写程序，打印出100～1000之间的所有水仙花

Answer 1

很简单的 新建一个 默认按钮 Command1
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, i As Integer
For i = 100 To 999
a = Int(i / 100)
b = Int(i / 10 - a * 10)
c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i
Next i
End Sub

Answer 2

Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer, i As Integer
For i = 100 To 999
a = Int(i / 100)
b = Int(i / 10 - a * 10)
c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i
Next i

End Sub