Código fuente de lotería Vb

dim team(7) como cadena, i%, iA%, iB%

Irregularizar

Para i=0 a 7

Si int( rnd*2 )=0 y iA & lt entonces 4

Equipo(i)="A "

iA=iA+1

elseif iB & lt Entonces 4

Equipo(i)="B "

iB=iB+1

Otros

Equipo(i)=" A "

finalizará si...

entonces

para i=0 a 7

if team(i)="A "Entonces

Imprimir "primero" & I+1 & "Equipo A"

Otros

Imprimir "primero" & I+1 & "Equipo B"

endif

Entonces