完数

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