vb怎么求完全数 100以内的？

vb怎么求完全数 100以内的？

Module Module1

    Sub Main()

        Dim i, j, k As Integer

        For j = 2 To 1000

            k = 0

            For i = 1 To j / 2

                If j Mod i = 0 Then

                    k = k + i

                End If

            Next

            If j = k Then

                Console.WriteLine("完全数为" & k)

            End If

        Next

        Console.ReadLine()

    End Sub


End Module

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息