Rozkaz RandomizeInstrukcja Randomize inicjuje generator liczb pseudoloswych.Składnia rozkazu Randomize: Randomize [Wartość] Argument Wartość jest opcjonalny. Może być typu Variant lub dowolnym wyrażeniem numerycznym. Randomize wykorzystuje podaną Wartość do zainicjowania generatora liczb pseudolosowych funkcji Rnd(), używając ją jako podstawę generatora. Jeżeli Wartość zostanie pominięta, zostanie wykorzystany zegar systemowy jako podstawa generatora. Jeżeli Randomize nie zostanie użyte, to funkcja Rnd() (bez argumentów) będzie używać tej samej liczby jako podstawy generatora jak przy pierwszym wywołaniu i będzie następnie używać ostatnio wygenerowanej wartości jako podstawy generatora. Aby powtórzyć sekwencję liczb losowych należy wywołać funkcję Rnd() z ujemnym argumentem bezpośrednio przez użyciem Randomize z argumentem numerycznym. Użycie Randomize z tą samą wartością nie powtórzy poprzedniej sekwencji. Przykład użycia rozkazu Randomize: Dim varLiczba As Variant Randomize 'zainicjowanie generatora varLiczba=Int((6*Rnd)+1) 'generowanie liczby z zakresu 1 do 6 (Zmienne i typy zmiennych zostały opisane w innych częściach kursu.) na górę strony... |