' Online VB Compiler.
' Code, Compile, Run and Debug VB program online.
' Write your code in this editor and press "Run" button to execute it.
Module VBModule
Sub Main()
Dim i, k As Long
k = 1
For i = 1 To 5
If i Mod 2 Then
Console.WriteLine("Even")
Else
Console.WriteLine("Odd")
k = k + 1
End If
Next i
Console.WriteLine(k)
End Sub
End Module