Constellation Knowledge Network - Ziwei Dou Shu - Procedimiento de sorteo aleatorio por equipos

Procedimiento de sorteo aleatorio por equipos

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

上篇: ¿Cuál es un buen nombre para un niño llamado Ren que nació en el Año del Gallo? 下篇: Aunque la soledad de estas tres constelaciones es brillante, es demasiado transparente, demasiado libre y fácil, y al mismo tiempo demasiado difícil de integrar.
Artículos populares