Question

vb 穷举法求水仙花数

意思是让数字从100到999循环、逐个判断并把符合要求的数输出就算是穷举了吧。

Answer 1

Private Sub Form_Click()
Dim a As Long, b As Long, c As Long, x As Long, y As Long, z As Long, t As Long
t = a * 100 + b * 10 + c
For a = 1 To 9
For b = 1 To 9
For c = 1 To 9
z = c ^ 3
y = b ^ 3
x = a ^ 3

if t = x + y + z then
Print a
Print b
Print c

Next c
Next b
Next a
End Sub

Answer 2

没看清楼主的问题。