Revision: 13623
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at April 29, 2009 14:13 by delm
Initial Code
Public Shared Function NumeroAleatorio(Optional ByVal maximo As Integer = Integer.MaxValue, Optional ByVal minimo As Integer = Integer.MinValue) As Integer
Dim r As New Random(lastintegervalue)
If minimo > maximo Then
Dim t As Integer = minimo
minimo = maximo
maximo = t
End If
lastintegervalue = r.Next(minimo, maximo)
Return lastintegervalue
End Function
Initial URL
Initial Description
Retorna un número aleatorio entre un mÃnimo y un máximo
Initial Title
Número aleatorio
Initial Tags
Initial Language
VB.NET