Red de conocimiento informático - Problemas con los teléfonos móviles - vb Programa de sorteo de grupos de campeonato: escriba un programa de sorteo de grupos de competición para reunir a ocho equipos (China, Estados Unidos, Brasil, Cuba, Rusia, Países Bajos, Alemania y Japón) en un grupo.

vb Programa de sorteo de grupos de campeonato: escriba un programa de sorteo de grupos de competición para reunir a ocho equipos (China, Estados Unidos, Brasil, Cuba, Rusia, Países Bajos, Alemania y Japón) en un grupo.

¿Privado?Sub?Command1_Click()

¿Dim?team(8),?teamA(4),?teamB(4)?As?String,?i,?j

equipo(1)?China"

equipo(2)?Estados Unidos"

equipo(3)?Brasil"

equipo ( 4)?Cuba"

equipo(5)?Rusia"

equipo(6)?Países Bajos"

equipo(7)?Alemania"

Equipo (8)? España"

Para?i?=?1?A?8

x?=?Int((9?-?i) ?*?Rnd? ?1)'selección aleatoria residual

Si?i?gt；?4?Entonces equipoA(i?-?4)? >Else equipoB(i)? =?equipo(x)

Fin?Si

¿Para?j?=?x?A?

Si?j ?lt;?8?Entonces?equipo(j)? =?equipo(j? ?1)

Texto1.Texto?= ?equipoA(1)?espacio(2)? ¿EquipoB(1)? ¿&?Espacio(2)? ¿&?EquipoB(2)?

Fin?Sub

Texto2.Texto?=?

上篇: ¿De qué trata "La doncella dragón de Kobayashi"? 下篇: ¿Las teclas de la pantalla de bloqueo y las teclas de volumen de los teléfonos vivo no funcionan correctamente?

vb Programa de sorteo de grupos de campeonato: escriba un programa de sorteo de grupos de competición para reunir a ocho equipos (China, Estados Unidos, Brasil, Cuba, Rusia, Países Bajos, Alemania y Japón) en un grupo.

Artículos populares