Algoritmo de domingo.
        Acordar.
        Escovar os dentes. 
        Tomar o café.
        Se estiver sol vou passear senão leio o jornal.
        Almoçar.
        Ir ao cinema.
        Fazer uma refeição.
        Ir dormir.
    Final do domingo.

Geralmente, usa-se um círculo alongado para indicar o início e o fim do fluxo;

- A seta é usada para indicar o sentido do fluxo;
- No retângulo são inseridas as ações(processamento);
- O losango representa questões/alternativas;
- O losango sempre terá duas saídas;
- As linhas ou setas nunca devem cruzar umas sobre as outras;
- O texto deve ser sempre claro e sucinto;
- Recomenda-se iniciar as ações sempre com um verbo no infinitivo (fazer, dizer…);

Module Module1

    Dim maximo As Integer = 0
    Dim numeroMinimo As Integer = 1 'MINIMO
    Dim calulaTotal As Integer = 0
    Dim numero As Integer = 0
    Dim numeroTratado As Integer = 0
    Dim modulo As Integer = 0
    Dim numeroDivisor As Integer = 0
    Dim valorMaximoInformado As String
    Dim valorMaximo As Integer

    Sub Main()

        Console.WriteLine("+++++++++++++++++++++++++++++++++++++")
        Console.WriteLine("    PROCURANDO NÚMEROS PERFEITOS")
        Console.WriteLine(" ")
        Console.WriteLine("+++++++++++++++++++++++++++++++++++++")
        Console.WriteLine(" ")
        Console.WriteLine(" ")
        Console.WriteLine(" Este programa vai encontrar números perfeitos entre 1 e o número informado")
        Console.WriteLine(" Informe o valor máximo  : ")
        valorMaximoInformado = Console.ReadLine()
        Console.WriteLine(" ")
        valorMaximo = Convert.ToInt32(valorMaximoInformado)
        maximo = valorMaximo

        While numeroMinimo <= maximo

            If numeroMinimo = 1 Then
                numeroTratado = numeroMinimo
                numeroDivisor = numero - 1
                If numeroDivisor <> 0 Then
                    modulo = numeroTratado Mod numeroDivisor
                End If
                If modulo = 0 Then
                    'acumula totais
                    calulaTotal += numeroDivisor
                End If
            Else
                For numero = numeroMinimo To 1 Step -1

                    numeroTratado = numeroMinimo
                    numeroDivisor = numero - 1
                    If numeroDivisor <> 0 Then
                        modulo = numeroTratado Mod numeroDivisor
                    End If
                    If modulo = 0 Then
                        'acumula total
                        calulaTotal += numeroDivisor
                    End If
                Next
                If calulaTotal = numeroTratado Then
                    Console.WriteLine(" Número perfeito encontrado entre 1 até {0} é : {1} ", maximo, numeroTratado)
                End If

                numeroTratado = 0
                numeroDivisor = 0
                calulaTotal = 0
            End If
            numeroMinimo += 1
        End While
        Console.WriteLine(" ")
        Console.WriteLine(" Cálculo dos números perfeitos concluído !!!")
        Console.ReadLine() 'pausa
    End Sub

End Module

using System;
public class PerfectNumbers
{
    public static void Main()
    {

        int maximo = 0;
        int numeroMinimo = 1;
        //MINIMO
        int calulaTotal = 0;
        int numero = 0;
        int numeroTratado = 0;
        int modulo = 0;
        int numeroDivisor = 0;
        string valorMaximoInformado = null;
        int valorMaximo = 0;

        Console.WriteLine("+++++++++++++++++++++++++++++++++++++");
        Console.WriteLine("    PROCURANDO NÚMEROS PERFEITOS - C# ");
        Console.WriteLine(" ");
        Console.WriteLine("+++++++++++++++++++++++++++++++++++++");
        Console.WriteLine(" ");
        Console.WriteLine(" ");
        Console.WriteLine(" Este programa vai encontrar números perfeitos entre 1 e o número informado");
        Console.WriteLine(" Informe o valor máximo  : ");
        valorMaximoInformado = Console.ReadLine();
        
        Console.WriteLine(" ");
        valorMaximo = Convert.ToInt32(valorMaximoInformado);
        maximo = valorMaximo;
        Console.WriteLine(" ");
        valorMaximo = Convert.ToInt32(valorMaximoInformado);
        maximo = valorMaximo;


        while (numeroMinimo <= maximo) {
			if (numeroMinimo == 1) {
				numeroTratado = numeroMinimo;
				numeroDivisor = numero - 1;
				if (numeroDivisor != 0) {
					modulo = numeroTratado % numeroDivisor;
				}
				if (modulo == 0) {
					//acumula totais
					calulaTotal += numeroDivisor;
				}
			} else {

				for (numero = numeroMinimo; numero >= 1; numero += -1) {
					numeroTratado = numeroMinimo;
					numeroDivisor = numero - 1;
					if (numeroDivisor != 0) {
						modulo = numeroTratado % numeroDivisor;
					}
					if (modulo == 0) {
						//acumula total
						calulaTotal += numeroDivisor;
					}
				}
				if (calulaTotal == numeroTratado) {
					Console.WriteLine(" Número perfeito encontrado entre 1 até {0} é : {1} ",
                                                                                                               maximo, numeroTratado);
				}

				numeroTratado = 0;
				numeroDivisor = 0;
				calulaTotal = 0;
			}
			numeroMinimo += 1;
		}
		Console.WriteLine(" ");
		Console.WriteLine(" Cálculo dos números perfeitos concluído !!!");
		Console.ReadLine();
		//pausa
    }
}

Private Sub Form_Load()
s:
Dim k As Integer
Dim per As Boolean
Dim n As Integer
per = False
n = 1
k = InputBox("Informe um número : ", "Número") 'informa um numero
For i = 2 To k ' checa o algoritmo
  For r = 2 To k
     o = i * r
     If o = k Then
       n = n + i
     End If
  Next r
Next i
If n = k Then ' se o número é iguala soma dos divisoers entã conclui
   per = True
End If
If per = True Then
   MsgBox "Número Perfeito", , "Este número é um número Perfeito"
Else
   MsgBox "Não Perfeito", , "Este Número é Não Perfeito"
End If

d = MsgBox("Deseja Continuar ", vbYesNo, "Continuar")
If d = vbYes Then
   GoTo s
Else
   End
End If
End Sub