Código fuente del sistema de lotería Vb
dim team(7) como cadena, i, iA, iB
Hacer irregular
Para i=0 a 7
Si int(rnd*2)= 0 y iA luego 4
Equipo (i)="A "
iA=iA 1
elseif iB luego 4
Equipo (i)="B "
iB=iB 1
Otros
Equipo(i)="A "
Será terminar si...
Entonces
Para i=0 a 7
Si team(i)="A "Entonces
Imprimir "Primero"; I 1 amp; "Equipo A"
Otros
Imprimir "Primero"; I 1 "Equipo B"
endif
Entonces