In diesem Beispiel wird die Randomize-Anweisung verwendet, um den Zufallszahlengenerator zu initialisieren. Da keine Zahl übergeben wurde, verwendet Randomize den Rückgabewert der Timer-Funktion als neuen Startwert.
Dim Wert1
Randomize ' Zufallszahlengenerator initialisieren.
Wert1 = Int((6 * Rnd) + 1) ' Zufallszahlen im Bereich von 1 bis 6
' generieren.