'Daten lesen
Dim tz As Char = ";"c 'Feld-Trennzeichen
Dim lines() As String = IO.File.ReadAllLines("daten.txt")
lines(0) = lines(0).Trim(tz)
Dim cz As Integer = lines(0).Split(tz).Length - 1 'Spaltenzahl
 
'Tabellenspalten erstellen
Dim dtb As New DataTable
For i As Integer = 0 To cz
    dtb.Columns.Add("Data" & CStr(i), GetType(Double))
Next i
'Tabelle mit den Daten füllen
For r As Integer = 0 To lines.Length - 1
   lines(r) = lines(r).Trim(tz)
   dtb.Rows.Add(lines(r).Split(tz))
Next r
 
'Daten im Grid anzeigen
DataGridView1.DataSource = dtb
 
'Vektoren (Arrays) mit den aggregierten Werte bestimmen (Linq)
Dim ave(cz), mn(cz), mx(cz) As Double
For i As Integer = 0 To cz
   ave(i) = Aggregate r As DataRow In dtb Into Average(r.Field(Of Double)(i))
   mn(i) = Aggregate r As DataRow In dtb Into Min(r.Field(Of Double)(i))
   mx(i) = Aggregate r As DataRow In dtb Into Max(r.Field(Of Double)(i))
Next i
 
'Liste der Labels für Spalten-Mittelwerte
Dim lblListe As New System.Collections.Generic.List(Of Label)
'Liste mit Labels füllen
For i As Integer = 0 To cz
   lblListe.Add(New Label With {.Width = 50, .Parent = Me, _
   .Text = CStr(Math.Round(ave(i), 3)), .Top = .Height * i, .Left = 500})
Next