Exercice VB: La structure TANT QUE

Travail à Faire :

  1. Ecrire un Programme qui demande à l’utilisateur un nombre compris entre 1 et 3 jusqu’à ce que la réponse convienne.
  2. Ecrire un Programme qui demande un nombre compris entre 10 et 20, jusqu’à ce que la réponse convienne. En cas de réponse supérieure à 20, on fera apparaître un message : « Plus petit !», et inversement, « Plus grand !» si le nombre est inférieur à 10.
  3. Ecrire un Programme qui demande un nombre de départ, et qui ensuite affiche les dix nombres suivants. Par exemple, si l'utilisateur entre le nombre 17, le programme affichera les nombres de 18 à 27.
  4. Ecrire un Programme qui demande successivement des nombres à l’utilisateur, et qui lui dise ensuite quel était le plus grand parmi ces nombres et quel était sa position. La saisie des nombres s’arrête lorsque l’utilisateur entre un zéro.
  5. Lire la suite des prix (en DH entiers et terminée par zéro) des achats d’un client. Calculer la somme qu’il doit, lire la somme qu’il paye, et déterminer le reste à rendre.
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192931.Module Module1Dim a As IntegerSub Main()Console.Write("Entrez un nombre compris entre 1 et 3 : ")a = Console.ReadLineWhile a 1 Or a > 3Console.Write("SVP,Saisir une valeur comprise entre 1 et 3 :")a = Console.ReadLineEnd WhileConsole.ReadLine()End SubEnd Module 2.Module Module1Dim a As IntegerSub Main()Console.Write("Entrez un nombre compris entre 10 et 20 : ")a = Console.ReadLineWhile a 10 Or a > 20If a 10 ThenConsole.WriteLine("Plus grand !")ElseConsole.WriteLine("Plus petit !")End IfConsole.Write("SVP,Saisir une valeur comprise entre 10 et20:")a = Console.ReadLineEnd WhileConsole.ReadLine()End SubEnd Module 3.Module Module1Dim a, i As IntegerSub Main()Console.Write("Entrez un nombre : ")a = Console.ReadLinei = a + 1While i = a + 10Console.WriteLine(i)i = i + 1End WhileConsole.ReadLine()End SubEnd Module 4.Module Module1Dim i, n, max, Pmax As IntegerSub Main()Console.Write("Entrez le nombre numéro 1 : ")n = Console.ReadLinemax = nPmax = 1i = 1While n 0i = i + 1Console.Write("Entrez le nombre numéro " & i & " : ")n = Console.ReadLineIf n > max Thenmax = nPmax = iEnd IfEnd WhileConsole.WriteLine("Le plus grand nombre est : " & max)Console.WriteLine("Sa position est : " & Pmax)Console.ReadLine()End SubEnd Module 5.Module Module1Dim prixlu, Somme, mpaye, reste As IntegerSub Main()Console.Write("Entrez le prix : ")prixlu = Console.ReadLineSomme = Somme + prixluWhile prixlu 0Console.Write("Entrez le prix : ")prixlu = Console.ReadLineSomme = Somme + prixluEnd WhileConsole.Write("Entrez le prix payé : ")mpaye = Console.ReadLinereste = mpaye - SommeConsole.WriteLine("Le reste est : " & reste)Console.ReadLine()End SubEnd Module
Article publié le 02 Janvier 2012