Module Module1
    Sub Main()
        ' Declarar as variaveis
        Dim N As Integer
        Dim soma As Integer = 0
        Dim i As Integer
        Dim input As String
 
        ' Pedir ao utilizador um numero (N)
        Console.Write("Introduza um numero N: ")
        input = Console.ReadLine()
 
        ' Verificar se o valor inserido e um numero valido
        If IsNumeric(input) Then
            N = CInt(input) ' Converter para inteiro
 
            ' Verificar se N e um numero positivo
            If N > 0 Then
                ' Calcular a soma dos numeros entre 1 e N
                For i = 1 To N
                    soma += i ' Soma os numeros de 1 ate N
                Next i
 
                ' Mostrar a soma
                Console.WriteLine("A soma dos numeros de 1 ate " & N & " e: " & soma)
            Else
                Console.WriteLine("Por favor, insira um numero positivo.")
            End If
        Else
            Console.WriteLine("Por favor, insira um numero valido.")
        End If
 
        ' Aguardar o utilizador pressionar uma tecla antes de fechar
        Console.ReadKey()
    End Sub
End Module
 

TW9kdWxlIE1vZHVsZTEKICAgIFN1YiBNYWluKCkKICAgICAgICAnIERlY2xhcmFyIGFzIHZhcmlhdmVpcwogICAgICAgIERpbSBOIEFzIEludGVnZXIKICAgICAgICBEaW0gc29tYSBBcyBJbnRlZ2VyID0gMAogICAgICAgIERpbSBpIEFzIEludGVnZXIKICAgICAgICBEaW0gaW5wdXQgQXMgU3RyaW5nCgogICAgICAgICcgUGVkaXIgYW8gdXRpbGl6YWRvciB1bSBudW1lcm8gKE4pCiAgICAgICAgQ29uc29sZS5Xcml0ZSgiSW50cm9kdXphIHVtIG51bWVybyBOOiAiKQogICAgICAgIGlucHV0ID0gQ29uc29sZS5SZWFkTGluZSgpCgogICAgICAgICcgVmVyaWZpY2FyIHNlIG8gdmFsb3IgaW5zZXJpZG8gZSB1bSBudW1lcm8gdmFsaWRvCiAgICAgICAgSWYgSXNOdW1lcmljKGlucHV0KSBUaGVuCiAgICAgICAgICAgIE4gPSBDSW50KGlucHV0KSAnIENvbnZlcnRlciBwYXJhIGludGVpcm8KCiAgICAgICAgICAgICcgVmVyaWZpY2FyIHNlIE4gZSB1bSBudW1lcm8gcG9zaXRpdm8KICAgICAgICAgICAgSWYgTiA+IDAgVGhlbgogICAgICAgICAgICAgICAgJyBDYWxjdWxhciBhIHNvbWEgZG9zIG51bWVyb3MgZW50cmUgMSBlIE4KICAgICAgICAgICAgICAgIEZvciBpID0gMSBUbyBOCiAgICAgICAgICAgICAgICAgICAgc29tYSArPSBpICcgU29tYSBvcyBudW1lcm9zIGRlIDEgYXRlIE4KICAgICAgICAgICAgICAgIE5leHQgaQoKICAgICAgICAgICAgICAgICcgTW9zdHJhciBhIHNvbWEKICAgICAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCJBIHNvbWEgZG9zIG51bWVyb3MgZGUgMSBhdGUgIiAmIE4gJiAiIGU6ICIgJiBzb21hKQogICAgICAgICAgICBFbHNlCiAgICAgICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiUG9yIGZhdm9yLCBpbnNpcmEgdW0gbnVtZXJvIHBvc2l0aXZvLiIpCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgIEVsc2UKICAgICAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoIlBvciBmYXZvciwgaW5zaXJhIHVtIG51bWVybyB2YWxpZG8uIikKICAgICAgICBFbmQgSWYKCiAgICAgICAgJyBBZ3VhcmRhciBvIHV0aWxpemFkb3IgcHJlc3Npb25hciB1bWEgdGVjbGEgYW50ZXMgZGUgZmVjaGFyCiAgICAgICAgQ29uc29sZS5SZWFkS2V5KCkKICAgIEVuZCBTdWIKRW5kIE1vZHVsZQo=