Valores naquele alcance podem não parecer muito úteis, 

mas há uma fórmula simples por converter os valores 
devolvidos por Rnd em um alcance mais útil:   




Int((HighestValue - LowestValue + 1) * Rnd) + LowestValue  




Criando uma função que encapsula esta fórmula ajudarão

 simplifique a geração de valores psuedo-fortuitos.   

' == == == == == == == == == == == == == == == == == == == == == == == =  
' Rand - Retorno um número fortuito em um determinado alcance.  
'  
' Parâmetros:  
' Baixo - Os mais baixos saltos do alcance.  
' Alto - Os saltos superiores do alcance.  
'  
' Lucros:  
' Lucros um número fortuito de Baixo ..High.  
' == == == == == == == == == == == == == == == == == == == == == == == =  
  
Public Function Rand(ByVal Low As Long,  ByVal High As Long) As Long  



    Rand = Int((High - Low + 1) * Rnd) + Low    End Function  


End Function  


  
Com esta função, podem ser gerados valores fortuitos facilmente para 

simular tais coisas como negociando cartões ou dados rodantes.   


DieValue = Rand(1, 6)  

CardValue = Rand(1, 52)  



  
Inicializando os Números Fortuitos  
Cada tempo que um programa é corrido são sempre os valores psuedo-fortuitos 

devolvidos por Rnd o mesmo! Obviamente, isto é muito previsível e não fortuito nada.

 Porém, VB também proveu o método de Randomize.   
  
Use Randomize para inicializar o gerador de número fortuito de VB. Isto que

semeia é chamado. Evitar gerar a mesma sucessão de valores psuedo-fortuitos,

 chama Randomize antes de você chame Rnd; mas isto só tem que ser feito uma vez. 

Um lugar bom para semear o gerador de número psuedo-fortuito está no evento de Carga da Forma:   




Sub Privado Form_Load ()  

  ' Inicialize o acaso #gerador.  


  Randomize  


Sub End