Exercice 1: Devine le Nombre
Écrivez un programme qui génère un nombre aléatoire entre 1 et 100. Demandez à l’utilisateur de deviner le nombre. Utilisez une boucle While...End While pour continuer à demander à l’utilisateur de deviner tant que la réponse n’est pas correcte. Fournissez des indices pour indiquer si la valeur à deviner est plus grande ou plus petite.
' Génération d'un nombre aléatoire entre 1 et 100
Dim nombreAleatoire As Integer
Dim random As New Random()
nombreAleatoire = random.Next(1, 101)Module Module1
Sub Main()
' Génération d'un nombre aléatoire entre 1 et 100
Dim nombreAleatoire As Integer
Dim random As New Random()
nombreAleatoire = random.Next(1, 101)
' Initialisation de la variable pour stocker la tentative de l'utilisateur
Dim tentative As Integer
' Utilisation d'une boucle While pour demander à l'utilisateur de deviner tant que la réponse n'est pas correcte
While True
Console.Write("Devinez le nombre (entre 1 et 100) : ")
' Validation de l'entrée de l'utilisateur
If Integer.TryParse(Console.ReadLine(), tentative) Then
' Vérification de la réponse
If tentative = nombreAleatoire Then
Console.WriteLine("Félicitations ! Vous avez deviné le nombre.")
Exit While ' Sortir de la boucle car la réponse est correcte
ElseIf tentative < nombreAleatoire Then
Console.WriteLine("Le nombre à deviner est plus grand.")
Else
Console.WriteLine("Le nombre à deviner est plus petit.")
End If
Else
Console.WriteLine("Veuillez entrer un nombre valide.")
End If
End While
Console.ReadLine() ' Attendre la pression d'une touche avant de fermer la console
End Sub
End Module
