Adivinhe o número mágico: 100
Tente um número menor.

Adivinhe o número mágico: 50
Tente um número maior.

Adivinhe o número mágico: 60
Tente um número maior.

Adivinhe o número mágico: 80
Tente um número maior.

Adivinhe o número mágico: 90
Tente um número maior.

Adivinhe o número mágico: 95
Tente um número menor.

Adivinhe o número mágico: 94
Tente um número menor.

Adivinhe o número mágico: 93
Tente um número menor.

Adivinhe o número mágico: 92
Você acertou o número em 9 tentativas.
Classificação: Normal

----------------------------------------------------------------------
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())
    ' variáveis usadas na resolução do problema
    Dim numero_magico, palpite, tentativas As Integer
    Dim acertou As Boolean

    ' inicializa as variáveis necessárias
    tentativas = 0
    acertou = False

    ' vamos sortear o número entre 0 e 500
    Dim rand As Random = New Random()
    numero_magico = rand.Next(0, 501)

    ' um laço que repete enquanto o usuário não
    ' acertar o número mágico
    While Not acertou
      Console.Write("Adivinhe o número mágico: ")
      palpite = Int32.Parse(Console.ReadLine())

      ' registra essa tentativa
      tentativas = tentativas + 1

      ' o usuário acertou o número mágico?
      If palpite = numero_magico Then
        Console.WriteLine("Você acertou o número em " & tentativas & " tentativas.")

        ' mostra a classificação do usuário
        If tentativas <= 3 Then
          Console.WriteLine("Classificação: Muito Sortudo")
        ElseIf (tentativas >= 4) And (tentativas <= 4) Then
          Console.WriteLine("Classificação: Sortudo")
        ElseIf (tentativas >= 7) And (tentativas <= 10) Then
          Console.WriteLine("Classificação: Normal")
        Else
          Console.WriteLine("Classificação: Tente Novamente")
        End If

        ' sai do laço
        acertou = True
      Else
        ' indica se o palpite é maior ou menor
        If palpite < numero_magico Then
          Console.WriteLine("Tente um número maior." & vbCrLf)
        Else
          Console.WriteLine("Tente um número menor." & vbCrLf)
        End If
      End If
    End While

    Console.WriteLine(vbCrLf & 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

----------------------------------------------------------------------
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())
    ' declara uma variável do tipo String
    Dim frase As String

    ' inicializa a string usando New
    frase = New String("Você já conhece o site Arquivo de Códigos?")
    ' vamos mostrar o resultado
    Console.WriteLine("A frase é: " & frase)

    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