' Sum1To100 Example

' Sum numbers from 1 to 100 using a For loop.

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim n As Integer
        Dim sum As Integer = 0

        For n = 1 To 100
            sum += n
        Next
        Write("Sum of numbers from 1 to 100 is " & sum & ".")
        ReadLine()
    End Sub

End Module