Imports System

Public Module Module1

    Public Sub Main()

        Dim num as integer 

        dim n1 as integer

        Dim suma as integer

        Console.WriteLine("Ingrese un número")

        num = cint(Console.ReadLine())

        for i as integer = 0 to num

        Console.WriteLine("Ingrese un número para sumar")

        n1 = cint(Console.ReadLine())

        suma = suma + n1

    next

    Console.WriteLine("La suma de los números es: {0}", suma)

    End Sub

End Module