Ejemplo:' Se inicializa la semilla con el Randomize.
Randomize()
' La siguiente linea devuelve un numero entero entre el a y el b.
Dim value As Integer = CInt(Int((a * Rnd()) + b))
' Lo siguiente devolveria un valor entero entre 1 y 16.
Randomize()
Dim value As Integer = CInt(Int((1 * Rnd()) + 16))
0 comentarios:
Publicar un comentario