Ajuda do LibreOffice 24.8
Inicia o gerador de números aleatórios que a função Rnd utiliza.
Randomize [Number]
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.
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