TP 2 Semaine 3

Module Module1


    Function moyenne(ByVal tab() As Double, ByVal nombreMax As Integer)

        Dim poidsTotal As Integer

        For cmp As Integer = 0 To nombreMax
            poidsTotal += tab(cmp)
        Next
        poidsTotal = poidsTotal / nombreMax
        Return poidsTotal
    End Function

    Sub Main()
        Dim nomEntre As String
        Dim poidsEntre As Double
        Dim tailleEntree As Double
        Dim nmbreMax As Integer


        nmbreMax = InputBox("Entrer le nombre de personnes dans la recherche", "Caractéristiques des personnes")

        If nmbreMax = 0 Then
            MsgBox("bye")
            End
        End If

        Dim nomPersonne(nmbreMax) As String
        Dim poids(nmbreMax) As Double
        Dim taille(nmbreMax) As Double


        'If nmbreMax > 0 Then
        '    Dim personne(nmbreMax) As Personne
        'Else
        '    nmbreMax = InputBox("Entrer un nombre valide de personnes pour la recherche", "Caractéristiques des personnes")

        'End If


        Dim cmp As Integer = 0
        Do
            ' Entree du noms
            nomEntre = InputBox("Entrer le nom de la nouvelle personne", "Caractéristiques des personnes")
            If nomEntre <> "*" Then
                poidsEntre = InputBox("Entrer le poids de la personne", "Caractéristiques des personnes")
                tailleEntree = InputBox("Entrer la taille de la personne", "Caractéristiques des personnes")

                nomPersonne(cmp) = nomEntre
                poids(cmp) = poidsEntre
                taille(cmp) = tailleEntree
            End If
            cmp += 1
        Loop Until nomEntre = "*" Or cmp = nmbreMax


        poidsEntre = moyenne(poids, cmp)
        tailleEntree = moyenne(taille, cmp)

        MsgBox("La moyenne des poids est " & poidsEntre & " La moyenne des tailles est" & tailleEntree, MsgBoxStyle.OkOnly, "Moyenne des poids & tailles")

    End Sub

End Module