Print Perfect Numbers from 1 to 1000 using C# / VB.NET

Introduction

Perfect number is a positive integer that is equal to the sum of its proper positive divisors.  (or)

Perfect number is a number that is half the sum of all of its positive divisors(including itself)

Example: 

6 is a  Perfect number.

1, 2, 3 are its proper positive divisors and 1 + 2 + 3 = 6 (or)

1, 2, 3,6 are its positive divisors and (1 + 2 + 3 + 6) / 2 = 6

C#.NET Program:

namespace DotNetMirror
{
    class PerfectNumbers1_1000
    {
        static void Main()
        {
            Console.WriteLine("/***** Program - Perfect Numbers From 1 to 1000 *****/");
            int number, sumOfNumbers = 0, i = 1;
            Console.WriteLine("Perfect Numbers From 1 to 1000 are: ");
            for (number = 1; number <= 1000; number++)
            {
                i = 1;
                sumOfNumbers = 0;
                while (i < number)
                {
                    if (number % i == 0)
                        sumOfNumbers = sumOfNumbers + i;
                    i++;
                }
                if (sumOfNumbers == number)
                {
                    Console.WriteLine("{0} is a Perfect Number", number);
                }
            }
            Console.ReadLine();
        }
    }
}

VB.NET Program:

Namespace DotNetMirror
    Class PerfectNumbers1_1000
        Shared Sub Main()
            Console.WriteLine("/***** Program - Perfect Numbers From 1 to 1000 *****/")
            Dim number As Integer, sumOfNumbers As Integer = 0, i As Integer = 1
            Console.WriteLine("Perfect Numbers From 1 to 1000 are: ")
            For number = 1 To 1000
                i = 1
                sumOfNumbers = 0
                While i < number
                    If number Mod i = 0 Then
                        sumOfNumbers = sumOfNumbers + i
                    End If
                    i += 1
                End While
                If sumOfNumbers = number Then
                    Console.WriteLine("{0} is a Perfect Number", number)
                End If
            Next
            Console.ReadLine()
        End Sub
    End Class
End Namespace