Faça um programa que sorteie um número aleatório entre 0 e 500 e pergunte ao usuário qual é o "número mágico". O programa deverá - Lista de Exercícios Resolvidos de VB.NET

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")