Imports System

Public Module Module1

    Public Sub Main()

        'Sums up a sequence of numbers

        Dim i As Integer

        Dim nIn As Decimal

        Dim sum As Decimal

        sum=0

        For i = 1 To 10

            Console.WriteLine("Enter a number")

            nIn = Console.ReadLine()

            'this is how we add up

            sum = nIn + sum

        Next

    Console.WriteLine ( sum)

    End Sub

​

​

End Module