IBM Lotus Symphony


Instrução Randomize [Runtime]

Inicializa o criador de números aleatórios.

Sintaxe:

Randomize [Número]

Parâmetros:

Number: Qualquer valor inteiro que inicialize o criador de números aleatórios. Se Number for omitido, o criador utiliza o valor actual do temporizador do sistema.

Códigos de erro

5 Chamada de procedimento não válido

Exemplo:

Sub ExampleRandomize

Dim iVar As Integer, sText As String

Dim iSpectral(10) As Integer

Randomize 2^14-1

For iCount = 1 To 1000

iVar = Int((10 * Rnd) ) REM Intervalo 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,"Spectral Distribution"

end sub


Comentários sobre o produto | Documentação adicional | Marcas comerciais