Exercice VB: Calcule de la Factorielle

Rédigé par GC Team, Publié le 01 Janvier 2012, Mise à jour le Mardi, 30 Novembre 1999 00:00
Participez au vote ☆☆☆☆☆★★★★★

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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Module 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 Sub
End Module