
Geschrieben von
gix
am 12.04.2007 um 00:00 Uhr.
Beiträge: 185 /
#1209
Kontakt:
Mailen
|
ICQ
Randomize
MsgBox Round(Int((<obergrenze> * Rnd) + <untergrenze>), 0),,"Random"
Zufallszahlen in VB werden durch festgelegte Algorithmen bestimmt.
Dass heißt, wenn man ein Programm startet würde man theoretisch immer
die selbe Zahl erhalten.
Damit dies nicht Passiert gibt es die Funktion Randomzie, welche die Rnd-Funktion beinflusst.
Die Rnd-Funktion gibt zufallszahlen zwischen 0 und 1 aus.
(Mehr dazu:
rnd &&
randomize)
Beispiel:
Private Sub Command1_Click()
Dim wert as Long
Randomize
wert = Round(Int((9999 * Rnd) + 1), 0)
MsgBox wert, vbOkOnly, "Random"
End Sub
Gibt zufallszahlen von 1 - 9999 aus.