vb测试题4

来源：百度知道 编辑：UC知道 时间：2024/06/22 21:39:55
打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1的三次方＋5的三次方＋3的三次方。

示例代码：

Private Function Cube(x As Long) As Long
Cube = x * x * x
End Function

Private Sub Command1_Click()
Dim x1 As Long
Dim x2 As Long
Dim x3 As Long

For x3 = 1 To 9
For x2 = 0 To 9
For x1 = 0 To 9
If Cube(x1) + Cube(x2) + Cube(x3) = x3 * 100 + x2 * 10 + x1 Then
Print x3 * 100 + x2 * 10 + x1
End If
Next
Next
Next
End Sub