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