作业帮计算机老师要求我们把下面的这个问题用VB程序做出来，希望计算机高手们把下面这个问题翻译成VB代码！急用
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/04 16:46:01
计算机老师要求我们把下面的这个问题用VB程序做出来，希望计算机高手们把下面这个问题翻译成VB代码！急用
三、枚举算法（穷举法）
1、找 “水仙花数”。所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。例如：153是“水仙花数”，因为：153=1^3+5^3+3^3
在此谢过！
三、枚举算法（穷举法）
1、找 “水仙花数”。所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。例如：153是“水仙花数”，因为：153=1^3+5^3+3^3
在此谢过！
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 Su
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 Su