Question

vb水仙花数

Private sub command1_click()
For a=1 to 9
For b=0 to 9
For c=0 to 9
If a^3+b^3+c^3=a*100+b*10+c then
Print a & b & c ,
End if
Next c
Next b
Next a
end sub做出来的结果是153、370、371、407
老师的答案里面再按一下选项建在这之后会再出现一个153
请问是如何编写

Answer 1

Private Sub Form_Click()
Dim q As Integer
Dim b As Integer
Dim s As Integer
Dim n As Integer

For n = 100 To 999
q = n \ 100
'求出百位数字
b = (n - q * 100) \ 10
'求出十位数字
s = n Mod 10
'求出个位数字

If ((q * q * q + b * b * b + s * s * s) = n) Then
Print n
End If
Next

End Sub

Answer 2

Private sub command1_click()
For a=0 to 9
For b=0 to 9
For c=0 to 9
If a^3+b^3+c^3=a*100+b*10+c then
Print a & b & c ,
End if
Next c
Next b
Next a