Imports System

Public Module Module1

    Public Sub Main()

Dim s as string

        s = console.readline()

Console.WriteLine("The word printed down the screen")

Dim i as integer

For i = 0 To s.Length - 1

    Console.WriteLine(s(i))

Next

Dim sUpperCase As String

For i = 0 To s.Length - 1

  If i Mod 2 = 1 Then

    sUpperCase = s(i)

    Console.Write(sUpperCase.ToUpper())

  Else

    Console.Write(s(i))

  End If

Next

    End Sub

End Module