Imports System

Public Module Module1

    Public Sub Main()

        console.WriteLine("Add all even numbers 1 to 25 - skip all odd numbers")

        dim i as integer = 0 

        dim intresult as integer = 0

        do while i < 25 

            intresult = intresult + i 

            i+ =2

            console.WriteLine("intresult is equal to " & intresult & "i is equal to " & i)

        loop 

    End Sub

End Module