1. Sistema de generación de lotería: genere un conjunto de boletos de lotería de bolas de dos colores aleatorios (un número ****7, los primeros seis rangos aleatorios son del 1 al 33 y el último rango es del 1 al 16).
Dim GRedBall(32) como entero
Dim RedBall(6) como entero
Rnd (Redimensionar)
Para k = 0 a 32
GRedBall(k) = k + 1
Siguiente k
Para j = 0 a 5
K = Int(Rnd * (33 -))