'Beispiel: VB .Net - Visual Basic 2008 - LINQ ( Language Integrated Query ) Mittelwert berechnen, 'Sequence addieren, Maximalwert einer Sequence ermitteln, Minimalwert einer Sequence ermitteln ' Option Explicit On Option Strict On Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click MessageBox.Show(CType( _ LINQ_LanguageIntegratedQuery_CalculateAverage(Me.ListBox1), String), _ "Info") MessageBox.Show(CType( _ LINQ_LanguageIntegratedQuery_CalculateSum(Me.ListBox1), String), _ "Info") MessageBox.Show(CType( _ LINQ_LanguageIntegratedQuery_GetMaxValue(Me.ListBox2), String), _ "Info") MessageBox.Show(CType( _ LINQ_LanguageIntegratedQuery_GetMinValue(Me.ListBox2), String), _ "Info") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load With Me .Text = "Durchschnittsberechnung und andere Berechnungen mit LINQ" .Button1.Text = "Test" .CenterToScreen() For n = 1 To 8 .ListBox1.Items.Add(n.ToString()) Next Dim r As New Random For n = 1 To 5 .ListBox2.Items.Add(r.Next(n * 233).ToString()) Next End With End Sub Private Function LINQ_LanguageIntegratedQuery_CalculateAverage(ByVal lb As ListBox) As Single Dim Result As Single = -1 Try Result = Aggregate numbers In lb.Items Into Average(CType(numbers, Single)) Catch ex As Exception Throw New Exception(ex.Message) End Try Return Result End Function Private Function LINQ_LanguageIntegratedQuery_CalculateSum(ByVal lb As ListBox) As Single Dim Result As Single = -1 Try Result = Aggregate numbers In lb.Items Into Sum(CType(numbers, Single)) Catch ex As Exception Throw New Exception(ex.Message) End Try Return Result End Function Private Function LINQ_LanguageIntegratedQuery_GetMaxValue(ByVal lb As ListBox) As Single Dim Result As Single = -1 Try Result = Aggregate numbers In lb.Items Into Max(CType(numbers, Single)) Catch ex As Exception Throw New Exception(ex.Message) End Try Return Result End Function Private Function LINQ_LanguageIntegratedQuery_GetMinValue(ByVal lb As ListBox) As Single Dim Result As Single = -1 Try Result = Aggregate numbers In lb.Items Into Min(CType(numbers, Single)) Catch ex As Exception Throw New Exception(ex.Message) End Try Return Result End Function End Class