Exercice VB: Calcule de la Factorielle

Ecrire le code en VB qui permet de calculer la Factorielle

Exemple :

  • 1! = 1
  • 2! = 1 × 2 = 2
  • 3! = 1 × 2 × 3 = 6
  • 4! = 1 × 2 × 3 × 4 = 24
  • 10! = 1 × 2 × 3 × 4 × 5 × 6 × 7 × 8 × 9 × 10 = 3 628 800
1234567891011121314151617181920212223Module factorielles  Sub Main() Dim i, val, fact As Integer Dim rep As String Do Console.WriteLine("saisir un nombre") val = Console.ReadLine() If val = 0 Then Fact = 1 End If fact = 1 For i = 1 To val fact = fact * i  Next Console.WriteLine("la factorielle de val est=" & fact & "*" & i & "=" & fact * i) Console.ReadLine() Console.WriteLine("voulez-vous contuner O/N") rep = Console.ReadLine Loop Until rep = "N" End SubEnd Module
Article publié le 01 Janvier 2012