copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - Zufallszahl aus Integer-Array zurückgeben
'
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
        RandomNumbers()
    End Sub

    Private Sub RandomNumbers()
        Dim Parameters() As Integer = New Integer() _
            { _
                435, 884, 1016, 1281, 1815, 1878, 1889, 1893, 1942, 1944 _
            }
        Me.Text = CreateRandomNumber(Parameters).ToString()
    End Sub

    Private Function CreateRandomNumber(ByVal Parameters() As Integer) As Integer
        Dim rnd As Random = New Random()
        If Parameters IsNot Nothing Then
            Try
                Dim Number As Integer = -1
                Randomize()

                For n As Integer = Parameters.GetLowerBound(0) To Parameters.GetUpperBound(0)
                    Number = rnd.Next(Parameters.Length)
                Next

                Return Parameters(Number)
            Catch ex As Exception
                MessageBox.Show(ex.Message.ToString(), "Info")
            End Try
            Return Nothing
        Else
            Return Nothing
        End If
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles MyBase.Load
        Me.CenterToScreen()
    End Sub

End Class
Sourcecode Visual Basic