Option Strict Off
Option Explicit On
Imports System

Module Nbres_parfaits
    Dim N As Integer
    Dim i As Integer = 1
    Dim j As Integer = 1
    Dim res As String = "("
    Dim S As Integer = 0
    Sub Main()

        System.Console.Out.Write("donner un nombre: ")
        N = System.Console.In.ReadLine()

        Do

            For j = 1 To i - 1
                If (i Mod j) = 0 Then
                    S = S + j
                End If
                If S = i Then
                    res = res & i & ","
                End If
            Next
            i = +1
        Loop Until i = N
        res = res & ")"

        System.Console.Out.Write("les nombres parfaits inferieurs à " & N & " sont :" & res)

        System.Console.In.ReadLine()

    End Sub


C'est en VB.NET