Informe o ângulo em graus: 35
O ângulo em graus informado foi: 35.0
O ângulo em radianos é: 0.6108652381980153
O seno do ângulo é: 0.573576436351046
O cosseno do ângulo é: 0.8191520442889918
A tangente do ângulo é: 0.7002075382097097
A co-tangente do ângulo é: 1.4281480067421146
A secante do ângulo é: 1.220774588761456
A co-secante do ângulo é: 1.7434467956210982

----------------------------------------------------------------------
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 pedir para o usuário informar um ângulo em graus
    Console.Write("Informe o ângulo em graus: ")
    Dim angulo_graus As Double = Double.Parse(Console.ReadLine())
    Console.WriteLine("O ângulo em graus informado foi: " &
      angulo_graus)

    ' vamos converter o ângulo em graus para ângulo em radianos
    Dim angulo_radianos As Double = angulo_graus * (Math.PI / 180.0)
    Console.WriteLine("O ângulo em radianos é: " & angulo_radianos)

    ' vamos calcular o seno do ângulo
    Dim seno As Double = Math.Sin(angulo_radianos)
    ' vamos calcular o cosseno do ângulo
    Dim co_seno As Double = Math.Cos(angulo_radianos)
    ' vamos calcular a tangente do ângulo
    Dim tangente As Double = Math.Tan(angulo_radianos)
    ' vamos calcular a co-tangente do ângulo
    Dim co_tangente As Double = (1.0 / tangente)
    ' vamos calcular a secante do ângulo
    Dim secante As Double = (1.0 / co_seno)
    ' vamos calcular a co-secante do ângulo
    Dim co_secante As Double = (1.0 / seno)

    ' e mostramos os resultados
    Console.WriteLine("O seno do ângulo é: " & seno)
    Console.WriteLine("O cosseno do ângulo é: " & co_seno)
    Console.WriteLine("A tangente do ângulo é: " & tangente)
    Console.WriteLine("A co-tangente do ângulo é: " & co_tangente)
    Console.WriteLine("A secante do ângulo é: " & secante)
    Console.WriteLine("A co-secante do ângulo é: " & co_secante)

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

End Module

' declara, constrói e inicializa um vetor de 10 inteiros
Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}

Informe um valor: 4
O valor foi encontrado: 3 vezes

Informe um valor: 8
O valor foi encontrado: 1 vezes

Informe um valor: 3
O valor foi encontrado: 0 vezes

----------------------------------------------------------------------
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())
    ' declara, constrói e inicializa um vetor de 10 inteiros
    Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10}

    ' vamos ler um valor inteiro
    Console.Write("Informe um valor: ")
    Dim pesquisa As Integer = Int32.Parse(Console.ReadLine())

    ' vamos verificar quantas vezes o valor informado está
    ' contido no vetor
    Dim repeticoes As Integer = 0
    For i As Integer = 0 To valores.Length - 1
      If valores(i) = pesquisa Then
        ' encontrou? vamos contar esta ocorrência
        repeticoes = repeticoes + 1
      End If
    Next

    ' vamos mostrar o resultado
    Console.WriteLine("O valor foi encontrado: " &
      repeticoes & " vezes")

    Console.WriteLine(vbCrLf & 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 frase As String = "Gosto muito de VB.NET e você?"
    Dim letra As Char = "o"
    Dim quant As Integer = 0
    Dim pos As Integer = -1, pos_ant As Integer = -1
    Dim cont As Integer = 0

    ' mostra a frase
    Console.WriteLine("A frase é: " & frase)

    While cont < frase.Length
      pos = frase.IndexOf(letra, cont)
      If pos <> pos_ant And pos <> -1 Then
        Console.WriteLine("""" & letra &
          """ encontrada na posição " & pos)
        quant += 1
      End If
      cont += 1
      pos_ant = pos
    End While

    ' mostra a quantidade de ocorrências da letra "o"
    Console.WriteLine("Encontrei " & quant & " ocorrências da " _
       & "letra " & letra)

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