How do you determine if a number is a perfect number in literature? 文献では、数が完全な数かどうかを判断する方法は何ですか？

VBで、数値が完全数かどうかを判断する方法は次のとおりです。

1. 最初に、整数を引数として受け取り、その数が完全数かどうかを判定する関数を定義します。関数の内部のロジックは次のようになります。

Function IsPerfectNumber(num As Integer) As Boolean
    Dim sum As Integer = 0
    For i As Integer = 1 To num - 1
        If num Mod i = 0 Then
            sum += i
        End If
    Next
    If sum = num Then
        Return True
    Else
        Return False
    End If
End Function

1. その後、メインプログラムでその関数を呼び出し、判断したい数を渡し、Trueの場合は完全数であることを示し、Falseの場合は完全数でないことを示します。

Sub Main()
    Dim num As Integer = 28
    If IsPerfectNumber(num) Then
        Console.WriteLine(num & "是完数")
    Else
        Console.WriteLine(num & "不是完数")
    End If
End Sub

上記の例では、判定数は28であり、完全数の定義に基づくと、28の約数（28以外のすべての正の約数）の合計は1+2+4+7+14=28であるため、28は完全数であり、「28は完全数である」という結果が出力されます。