如何用vb語言編寫水仙花數的代碼？

Private Sub Command1_Click()

For a = 1 To 9

For b = 0 To 9

For c = 0 To 9

If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then

print a * 100 + b * 10 + c

End If

Next

Next

Next

End Sub