程序填空

 用VB程序实现水仙花数，如果一个三位数等于它的每个数字的立方的和，则此数称为“水仙花数”，如153=1³+5³+3³  ， 故153是水仙花数。求100~999之间的全部水仙花数

Private Sub Command1_Click()

    Dim i, j, m, n As Integer

    For

        i =            ´求百位上的数字

        j = (n Mod 100) \ 10     ´求十位上的数字

        m = n Mod 10             ´求个位上的数字

        If Then

            Print n; "="; i; "^3+"; j; "^3+"; m; "^3"

        End If

    Next n

End Sub