Programa de lotería grupal de competencia Vb: escriba un programa de lotería grupal de competencia y coloque ocho equipos (China, Estados Unidos, Brasil, Cuba, Rusia, Países Bajos, Alemania, Japón)

¿Atenuar? Equipo(8),? equipoA(4),? equipoB(4)? ¿Como? Cadena,? I%,? j%

Equipo(1)? =?"China"

Equipo(2)? =?"EEUU"

Equipo (3)? =?"Brasil"

Equipo(4)? =?"Cuba"

Equipo(5)? =?"Rusia"

Equipo(6)? =?"Holanda"

Equipo(7)? =?"Alemania"

Equipo(8)? =?"España"

¿Para qué? ¿I? =?1?¿Adónde ir? ¿Ocho

x? =?Int((9?-?I)?*?Rnd?+?1)'La selección aleatoria restante

Si? ¿I? >? 4?Entonces

equipoA(yo?-?4)?=?Equipo(x)

Otros

equipoB(uno)? =?Equipo(x)

¿Fin? Si

¿Para qué? j? =?x? ¿Dónde ir? Ocho

¿Y si? j? <? 8? ¿Y entonces qué? ¿Equipo(j)? =?Equipo(j?+?1)

Luego

Luego

Texto1. ¿Palabra? =?equipoA(1)? y amplificador? ¿Espacio(2)? y amplificador? equipoA(2)? y amplificador? ¿Espacio(2)? y amplificador? equipoA(3)? y amplificador? ¿Espacio(2)? y amplificador? equipoA(4)

Texto 2.

¿Palabra? =?equipoB(1)? y amplificador? ¿Espacio(2)? y amplificador? equipoB(2)? y amplificador? ¿Espacio(2)? y amplificador? equipoB(3)? y amplificador? ¿Espacio(2)? y amplificador? Equipo B(4)

¿Fin? Submarino