Imports System

​

Public Module Module1

​

    Public Sub Main()

        console.write("Insira a hora: ")

        dim hora as integer = console.readline

        console.write("Insira os minutos: ")

        dim minuto as integer = console.readline

        console.write("Insira os segundos: ")

        dim segcont as integer = console.readline

        for segundo as integer = segcont to 60

            if segundo = 60 then

                minuto += 1

                segundo = 00

            end if

​

            if minuto = 60 then

                hora += 1

                minuto = 00

            end if

​

            if hora = 24 then

                hora = 0

            end if

​

            console.writeline(hora.ToString(00) & ":" & minuto.ToString(00) & ":" & segundo.toString(00))

        next

    End Sub

End Module

​