lang • rnd

Rnd

Float = Rnd ( [ Min [ , Max ] ] )

Calcula um número de ponto flutuante pseudo aleatório.

  • Se nenhum parâmetro for especificado, retorna um número pseudo aleatório no intervalo [ 0 , 1 [.

  • Se apenas um parâmetro for especificado, retorna um pseudo aleatório no intervalo [ 0 , Min [.

  • Se ambos os parâmetros são especificados, retorna um pseudo aleatório no intervalo [ Min , Max [.

O valor máxio do intervalo nunca é devolvido. É por isso que o intervalo é encerrado por um colchete direito!

O algoritmo que produz os números pseudo aleatórios é um registo de deslocamento twisted generalized feedback.

Exemplos

' Entre 0 e 1
PRINT Rnd

0.019539254718
' Entre 0 e 2
PRINT Rnd(2)

0.040205506608
' Entre Pi e Pi*2
PRINT Rnd(Pi, Pi(2))

3.204108046818
Public Sub Main()

  Dim Dice AS Integer

  Randomize

  Dice = Int(Rnd(1, 7))

  ' Lança os dados entre 1 e 6
  Print "Você jogou um " & dice

End

Veja também