Turinys

# Atsitiktinis sakinys

Inicijuoja atsitiktinių skaičių generatorių, kurį naudoja Rnd funkcija.

## Sintaksė:

    Randomize [skaičius]

## Parametrai:

Skaičius: Bet kuri sveikojo skaičiaus reikšmė. Naudojama kaip pradinė reikšmė atsitiktinių skaičių generatoriui inicijuoti. Esant vienodoms pradinėms reikšmėms funkcija Rnd pateikia vienodas atsitiktinių skaičių sekas. Jei parametras praleistas, sakinys Randomiz bus ignoruojamas.

Jei reikia nuspėjamos skaičių sekos, tai sakinio Randomize naudoti nereikia, nes atsitiktinių skaičių generatorius bus inicijuojamas automatiškai pirmą kartą naudojant – jis bus pradėtas naudojant sistemos atsitiktinių skaičių generatorių, kuris generuoja tolygiai paskirstytus, nedeterministinius atsitiktinius skaičius. Jei sistemoje nėra tokio generatoriaus, pradine reikšme bus naudojamas sistemos laikas.

Randomize sakinys veikia tik BASIC Rnd funkciją. Kiti atsitiktinių skaičių generatoriai (pvz., „Calc“ RAND () funkcija ir kt.) tam neturi įtakos.

### Klaidos kodai:

5 Neteisingas procedūros iškvietimas

## Pavyzdys:

    Sub ExampleRandomize
    Dim iCount As Integer, iVar As Integer, sText As String
    Dim iSpectral(10) As Integer
        Randomize 2^14-1
        For iCount = 1 To 1000
        iVar = Int(10 * Rnd) ' Intervalas nuo 0 iki 9
            iSpectral(iVar) = iSpectral(iVar) +1
        Next iCount
        sText = " | "
        For iCount = 0 To 9
            sText = sText & iSpectral(iCount) & " | "
        Next iCount
        MsgBox sText,0,"Spektrinis paskirstymas"
    End Sub

Susijusios temos

Rnd funkcija

Paremkite mus!