vb编程，输入一个三位数,判断是否为水仙数

Question

(水仙数的特点：个位数、十位数和百位数的立方和等于该数自身的数)

Answer 1

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, s As Integer
s = Text1.Text
a = s \ 100
b = (s - 100 * a) \ 10
c = s - 100 * a - 10 * b
If a ^ 3 + b ^ 3 + c ^ 3 = s Then
MsgBox s & "是水仙花数"
Else
MsgBox s & "不是水仙花数"
End If
End Sub

加个文本框控件和按钮控件