以下程序suixian可以判断某个数字是否为水仙花数，所谓“水仙花数”是指一个3位数，其各个数字立方和等于该数本身。

Private Sub Command1_Click( )

    Dim i As Integer

    For i = 100 to 999

       

    Next i

End Sub

Public Sub suixian(x As Integer)

    Dim i%,j%,k%

    i =

    j = (x -i * 100)\10

    k =

    If   Then Print x

End Sub