Apesadumbrado no acabé de mecanografiar en poste anterior:
Usted necesita mantener una secuencia o una lista o algo como usted va hace la comprobación para saber si hay un lazo.
Si un lazo está en cualquier momento quebrado por otra caja, usted necesita reajustar la secuencia.
Su más código…
para comprobar y los resultados de la exhibición usted puede hacer esto:
chkWinner dévil como nuevo checkbox
WinnerMessage dévil como secuencia
bTie dévil como boleano
bTie = falso
si Val (checkbox1.tag) <� Val=""> WinnerMessage = checkbox2.text
chkWinner = checkbox2
bTie = falso
elseif (Val (checkbox1.tag) = Val (checkbox2.tag)) entonces
WinnerMessage += “,” + checkbox1.text
chkWinner = checkbox1
el bTie = verdad
WinnerMessage = checkbox1.text
chkWinner = checkbox1
bTie = falso
terminar si
si Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox3.text
chkWinner = checkbox3
bTie = falso
elseif Val (chkWinner.tag) = Val (checkbox3.tag) entonces
WinnerMessage += “,” + checkbox3.text
el bTie = verdad
terminar si
si Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox4.text
chkWinner = checkbox4
bTie=false
elseif Val (chkWinner.tag) = Val (checkbox4.tag) entonces
WinnerMessage += “,” + checkbox4.text
el bTie = verdad
terminar si
[… y así sucesivamente]
si bTie = falso entonces
msgbox (“el ganador es: ” y chkWinner.text y “con” y chkWinner.tag y “votos”)
msgbox (“tenemos un lazo en medio: ” Y WinnerMessage y “con” y chkWinner.tag y “votos”)
terminar si