Imports System

Public Module Module1

    Public Sub Main()

        Dim nom ,jour ,mois , années, avis, R() as String

        Dim nbe, nbr, i, nba , nbc as Integer

        Dim TabValeur(), som, moy, rebus, rebusa, rebusc  as Double

        Console.WriteLine("Entrer votre nom")

        nom = Console.ReadLine()

        Console.WriteLine("Entrer le jour")

        jour = Console.ReadLine()

        Console.WriteLine("Entrer le mois")

        mois = Console.ReadLine()

        Console.WriteLine("Entrer l'année ")

        années  = Console.ReadLine()

        Console.WriteLine("Entrer le nombre de pièces à controler")

        nbe = Console.ReadLine()    

        Redim TabValeur(nbe)

        Redim R(nbe)

            For i = 0 to nbe-1 

            Console.WriteLine("Entrer la valeur de l'alésage")

            TabValeur(i) = Console.ReadLine()

        Console.WriteLine("Entrer la réference de la pièce ( A ou C )")

            R(i) = Console.ReadLine()

            If TabValeur(i) > 40.024 Or TabValeur(i) < 39.976 Then

            Console.WriteLine("Ecarter cette pièce")

                If R(i) = "A" Then

                    nba+= 1

                End if

                If R(i) = "C" Then

                    nbc += 1

                End if 

            nbr += 1

            End if 

            som = som +TabValeur(i)

            Next i

            moy = som/nbe 

            rebus = nbr/nbe

            rebusa = nba/nbe

            rebusc = nbc/nbe

        If rebus > 0.02 Then

            avis = "refusé" 

        Else 

            avis = "accepté"

        End If 

            Console.WriteLine("Opérateur :" & nom)

            Console.WriteLine("Date :" & jour & "/" & mois & "/" & années )

            Console.WriteLine("Pièces controlés :" & nbe)

            Console.WriteLine("Alésage moyen :" & moy)

            Console.WriteLine("Pièces non conformes :" & nbr)

            Console.WriteLine("Pièces non conformes avec référence A :" & nba)      

            Console.WriteLine("Pièces non conformes avec référence C :" & nbc)

            Console.WriteLine("Taux de rebus constaté avec référence A :" & rebusa )

            Console.WriteLine("Taux de rebus constaté avec référence C :" & rebusc )

            Console.WriteLine("Taux de rebus constaté :" & rebus )

            Console.WriteLine("Avis d'acceptation de livraison :" & avis)

​

    End Sub

End Module