Lotería de código fuente de Vb

Botón de comando

Cuadro de texto

Sub click_Click() privado

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

Anota r como un número entero

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

Texto1. Texto = r

Conector final