Módulo
Conteúdo
Índice 🔎︎

# Instrução Randomize

Inicia o gerador de números aleatórios que a função Rnd utiliza.

## Sintaxe:

    Randomize [Number]

## Parâmetros:

Número: qualquer número inteiro. É utilizado como semente para inicializar o gerador de números aleatórios. Sementes iguais geram sequências aleatórias iguais pela função Rnd. Se o parâmetro for omitido, a instrução Randomize será ignorada.

A menos que se deseje obter uma sequência previsível de números, não é necessário utilizar a instrução Randomize, já que o gerador de números aleatórios será iniciado automaticamente durante o primeiro uso; o sistema proporcionará um gerador de números aleatórios que produzirá números não determinístico distribuídos de maneira uniforme. Se o sistema não contar com nenhum gerador, será usado uma gerador com base na hora do sistema.

A instrução Randomize só afeta a função BASIC Rnd. Outros geradores de números aleatórios (por exemplo a função do Calc ALEATÓRIO(), etc.) não são afetadas por ela.

## Códigos de erro:

5 Chamada de procedimento inválida

## Exemplo:

    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) ) ' 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,"Distribuição espectral"
    End Sub

Tópicos relacionados

Função Rnd