Constellation Knowledge Network - Una lista completa de nombres - Código Vb para programa de lotería

Código Vb para programa de lotería

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 "

terminará 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

上篇: Sorteo para decidir ir a Tailandia 下篇: ¿Por qué la mayoría de los nombres de mujeres japonesas, como Yamanako, Miko y Yuko, contienen el carácter "子"?

Artículos populares