完数

Sub  OutputFullNumber( ByVal  UpperBound  As   Integer )
   Dim  i, j, s  As   Integer
   For  i  =   1   To  UpperBound
    s  =   0
     For  j  =   1   To  i  \   2
       If  i  Mod  j  =   0   Then  s  =  s  +  j
     Next  j
     If  i  =  s  Then   Print  i  &   " Is A Full Number "
   Next  i
End Sub