copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - Größten und kleinsten Wert in einer Auflistung ermitteln
'
Option Explicit On
Option Strict On

Public Class Form1

    Private List As New List(Of Double)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles MyBase.Load
        With Me
            .Text = "Groessten / kleinsten Wert in einer Auflistung ermitteln"
            .CenterToScreen()
            .Button1.Text = "Test A"
            With Me.List
                .Add(12.32)
                .Add(2.567)
                .Add(9.555)
                .Add(0.66933)
            End With
            For Each Items As String In List
                .ListBox1.Items.Add(Items)
            Next
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles Button1.Click
        'Vorgehensweise in Framework 3.5
        Dim Max As Double = List.Max()
        Dim Min As Double = List.Min()
        MessageBox.Show("Groesster Wert: " & Max.ToString() & ControlChars.CrLf & _
                          "Kleinster Wert: " & Min.ToString(), "Info")
    End Sub

End Class
Sourcecode Visual Basic