El código se determina mediante sorteo.

Botón de comando

Cuadro de texto

Sub click_Click() privado

R=int((límite superior-límite inferior+1) *rnd+ Límite inferior)

Etiqueta r como un número entero

r = Int((53-1+1)* Rnd+1)

Texto1.

Texto = r

Conector final