Expressi贸 Randomize

Inicialitza el generador de nombres aleatoris usat per la funci贸 Rnd.

Sintaxi:


Randomize [Number]

Par脿metres:

Number: Any integer value. Used as seed to initialize the random-number generator. Equal seeds result in equal random-number sequences by the Rnd function. If the parameter is omitted, the Randomize statement will be ignored.

Icona de nota

A menys que desitgeu obtindre una seq眉猫ncia previsible de nombres, no 茅s necessari utilitzar la instrucci贸 Randomize, at猫s que s'inicialitzar脿 el generador de nombres aleatoris autom脿ticament durant el seu primer 煤s 鈥搒'inicialitzar脿 utilitzant un generador de nombres aleatoris proporcionat pel sistema que produeix nombres aleatoris no determinants distribuits de manera uniforme鈥. Si el sistema no compta amb un generador d'este tipus, s'utilitzar脿 com a llavor l'hora del sistema.


L'expressi贸 Randomize nom茅s afecta la funci贸 Rnd de BASIC. No afecta la resta de generadors de nombres aleatoris (com la funci贸 ALEAT() de Calc).

Codis d'error

5 La crida al procediment no 茅s v脿lida

Exemple:


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) ' Interval de 0 a 9
        iSpectral(iVar) = iSpectral(iVar) +1
    Next iCount
    sText = " | "
    For iCount = 0 To 9
        sText = sText & iSpectral(iCount) & " | "
    Next iCount
    MsgBox sText,0,"Distribuci贸 espectral"
End Sub

Ens cal la vostra ajuda!