Question

计算机老师要求我们把下面的这个问题用VB程序做出来，希望计算机高手们把下面这个问题翻译成VB代码！急用

三、枚举算法（穷举法）
1、找 “水仙花数”。所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。例如：153是“水仙花数”，因为：153=1^3+5^3+3^3
在此谢过！

Answer 1

Private Sub Command1_Click()
Dim i As Long '3位数

Dim k1 As Long '每位的立方
Dim k2 As Long
Dim k3 As Long

Dim k As Long '立方和

Dim x As Long '水仙花数

For i = 100 To 999 '3位数从100到999循环1次
k1 = Left(i, 1) * Left(i, 1) * Left(i, 1) '第1位的立方
k2 = Mid(i, 2, 1) * Mid(i, 2, 1) * Mid(i, 2, 1) '第2位的立方
k3 = Right(i, 1) * Right(i, 1) * Right(i, 1) '第3位的立方
k = k1 + k2 + k3 '3位数立方和

If k = i Then '如果一个数的立方和等于原数
x = i '赋值给x
Print x 'FORM框中打印出水仙花数
End If
Next i
End Sub