Zufallsgernerator erstellen

Hi,

Ich hab in Vb ein zufallsgenerator geschrieben nur mein Problem is das er in dem Fall immer nur die 33 als "Zufallszahl" ausgibt...

Ich find einfach meinen Fehler nicht könnt ihr mir da weiterhelfen?

Hier mein Code:

Dim a As Integer
Dim i As Integer

Dim Zahl(1 To 6)

Zahl(1) = 26
Zahl(2) = 58
Zahl(3) = 70
Zahl(4) = 49
Zahl(5) = 17
Zahl(6) = 33

Randomize
For i = 1 To 6
a = Int((UBound(Zahl) - LBound(Zahl) + 1) - Rnd + LBound(Zahl))

Label1.Caption = Zahl(a)
Next i

[Eckard41]

Wieso eigentlich die For-Schleife? Möchtest du die Zahlen im Array durcheinander ziehen oder nur jeweils eine? Bei letzterem brauchst du keine Schleife:

Dim a As Integer,  Zahl(1 To 6)
Zahl = Array(26, 58, 70, 49, 17, 33)

Randomize
a = Int((UBound(Zah()) * Rnd) + 1)
Label1.Caption = Zahl(a)

Ok danke