Red de conocimiento informático - Computadora portátil - 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).

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 -))