Informe o valor da diária normal: 120
Diária no período de promoção: 26,40
Média arrecadada sem a promoção durante um mês: 8064,00
Média arrecadada com a promoção durante um mês: 3104,64
Prejuízo mensal com a promoção: 4959,36

----------------------------------------------------------------------
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())
    ' valor da diária em período normal  
    Dim valor_diaria_normal As Double
    ' valor da diária no período de promoção
    Dim valor_diaria_promocao As Double

    ' vamos obter o valor da diária no período normal
    Console.Write("Informe o valor da diária normal: ")
    valor_diaria_normal = Double.Parse(Console.ReadLine())

    ' vamos obter o valor da diária no período promocional
    valor_diaria_promocao = valor_diaria_normal * (22.0 / 100.0)

    ' vamos calcular o valor médio arrecadado sem a promoção, durante um mês
    ' estamos assumindo 4 finais de semana por mês
    Dim media_arrecado_sem_promocao As Double = (valor_diaria_normal _
      * (42 * (40.0 / 100.0)) * 4)

    ' vamos calcular o valor médio arrecadado com a promoção, durante um mês
    ' estamos assumindo 4 finais de semana por mês
    Dim media_arrecado_com_promocao As Double = (valor_diaria_promocao _
      * (42 * (70.0 / 100.0)) * 4)

    Console.WriteLine("Diária no período de promoção: " &
      valor_diaria_promocao)
    Console.WriteLine("Média arrecadada sem a promoção durante um mês: " &
      media_arrecado_sem_promocao)
    Console.WriteLine("Média arrecadada com a promoção durante um mês: " &
      media_arrecado_com_promocao)

    ' houve lucro ou prejuízo?
    If (media_arrecado_sem_promocao < media_arrecado_com_promocao) Then
      Console.WriteLine("Lucro mensal com a promoção: " &
        (media_arrecado_com_promocao - media_arrecado_sem_promocao))
    Else
      Console.WriteLine("Prejuízo mensal com a promoção: " &
        (media_arrecado_sem_promocao - media_arrecado_com_promocao))
    End If

    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())
    Dim valor As Integer

    Console.Write("Informe um número inteiro: ")
    valor = Val(Console.ReadLine())

    If valor Mod 2 = 0 Then
      Console.WriteLine("O número é par")
    Else
      Console.WriteLine("O número é ímpar")
    End If

    Console.WriteLine("\nPressione 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)
----------------------------------------------------------------------

Dim valor As Integer = 10

If valor > 9 Then
  Console.WriteLine("Valor é maior que 10")
End If

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

Dim valor As Integer = 10

If valor > 10 Then
  Console.WriteLine("Valor é maior que 10")
Else
  Console.WriteLine("Valor é menor ou igual a 10")
End If

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

Dim valor As Integer = 10

If valor > 10 Then
  Console.WriteLine("Valor é maior que 10")
ElseIf valor < 10 Then
  Console.WriteLine("Valor é menor que 10")
Else
  Console.WriteLine("Valor é igual a 10")
End If

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

Dim valor As Integer = 15

If (valor > 10) = True Then
  Console.WriteLine("Valor é maior que 10")
End If

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

Dim valor As Integer = 15

If ((valor > 10) = True) Then
  Console.WriteLine("Valor é maior que 10")
End If

document.write(false == '0');