Informe seu peso: 82
Informe sua altura: 1,85
Seu IMC é: 23.959094229364496
Sua classificação é Saudável

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    ' Este exemplo mostra como extrair o mês da data
    ' atual. Lembre-se de que o mês começa em 1 (janeiro)

    Dim agora As DateTime = DateTime.Now

    'obtém o mês.
    Dim mes As Integer = agora.Month
    Console.WriteLine("O mês para esta data é: " & mes)

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

Informe a duração do evento em segundos: 3712
Duração do evento: 01:01:52

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos solicitar a duração do evento em segundos
    Console.Write("Informe a duração do evento em segundos: ")
    Dim duracao_segundos As Integer = Int32.Parse(Console.ReadLine())

    ' vamos obter a quantidade de horas do evento
    Dim horas As Integer = duracao_segundos \ 3600
    ' vamos obter os minutos
    Dim minutos As Integer = (duracao_segundos \ 60) Mod 60
    ' vamos obter os segundos restantes
    Dim segundos As Integer = duracao_segundos Mod 60

    ' vamos exibir a duração do evento em horas, minutos e segundos
    Console.Write("Duração do evento: {0}:{1}:{2}", horas.ToString("D2"),
      minutos.ToString("D2"), segundos.ToString("D2"))

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

End Module

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    ' vamos calcular o cosseno de três números
    Console.WriteLine("Cosseno de 0 = " & Math.Cos(0))
    Console.WriteLine("Cosseno de 1 = " & Math.Cos(1))
    Console.WriteLine("Cosseno de 2 = " & Math.Cos(2))

    Console.WriteLine("\nPressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module