SORTEIO DE NUMEROS
Por favor alguém sabe alguma rotina que sorteia numeros entre intervalos.
tipo sortiar um numero de 1 a 10 ?
Grato desde já
Ariel
tipo sortiar um numero de 1 a 10 ?
Grato desde já
Ariel
Rotina? Serviria uma funçãozinha? Assim:
Public Function Sorteia(MÃnimo As Integer, Máximo As Integer) As Integer
Sorteia = Int((Máximo - MÃnimo + 1) * Rnd + MÃnimo)
End Function
Você chama a função passando como parà ¢metros o menor e o maior valor que poderão ser sorteados (ex. no command1_Click).
Private Sub Command1_Click()
msgbox Sorteia(0, 50)
End Sub
Public Function Sorteia(MÃnimo As Integer, Máximo As Integer) As Integer
Sorteia = Int((Máximo - MÃnimo + 1) * Rnd + MÃnimo)
End Function
Você chama a função passando como parà ¢metros o menor e o maior valor que poderão ser sorteados (ex. no command1_Click).
Private Sub Command1_Click()
msgbox Sorteia(0, 50)
End Sub
Tópico encerrado , respostas não são mais permitidas