Dim Summe As Integer = 0
        Dim Durchschnitt As Integer = 0
        Dim anzahl As Integer = 0
        Dim Personen2 As List(Of Teilnehmer)
        Personen2 = xt.xmlLesen
        Console.WriteLine("Teilnehmer und Punkte zum Kurs: Word Grundlagen")
        Console.WriteLine("")
        Console.WriteLine("{0,10} {1,-20} {2,1}", "Tnr", "Name", "Punkte")
        With Personen2
            For i As Integer = 0 To Personen2.Count - 1
                With .Item(i)
                    Summe += .Punkte
                    anzahl = Personen2.Count
                    Durchschnitt = Summe
                    Console.WriteLine("{0,10} {1,-20} {2,-1}", .tnrNummer, _
                      .Person, .Punkte)
                End With
            Next i
        End With
        Console.WriteLine("")
        Console.WriteLine("Summe:" & Summe)
        Console.WriteLine("Durchschnitt:" & Durchschnitt / anzahl)
        Console.ReadLine()

MFG Gizmo


Beitrag wurde zuletzt am 20.11.11 um 11:01:37 editiert.