Fazer um programa para receber um número inteiro de segundos do usuário e imprimir a quantidade correspondente em horas - Desafio de Programação Resolvido em VB.NET

Informe a quantidade de segundos: 10350
Resultado: 02:52:30

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis que vão guardar o resultado em horas,
    ' minutos e segundos
    Dim horas, minutos, segundos As Integer
    Dim quant_segundos As Integer ' guardará os segundos informados

    ' vamos pedir para o usuário informar a quantidade
    ' de segundos
    Console.Write("Informe a quantidade de segundos: ")

    ' vamos ler os segundos informados
    quant_segundos = Int32.Parse(Console.ReadLine())

    ' vamos obter a quantidade de horas
    horas = quant_segundos \ 3600
    ' vamos obter os minutos
    minutos = (quant_segundos \ 60) Mod 60
    ' vamos obter os segundos restantes
    segundos = quant_segundos Mod 60

    ' vamos exibir o resultado em horas, minutos e segundos
    Console.Write("Resultado: {0}:{1}:{2}", horas.ToString("D2"),
      minutos.ToString("D2"), segundos.ToString("D2"))

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module