Pesaroso eu não terminei datilografar no borne precedente:
Você precisa de manter uma corda ou uma lista ou algo como você vai fazem a verificação para ver se há um laço.
Se a qualquer hora um laço é quebrado por uma outra caixa, você precisa de restaurar a corda.
Seu mais código…
para verific e resultados da exposição você pode fazer este:
chkWinner não ofuscante como o checkbox novo
WinnerMessage não ofuscante como a corda
bTie não ofuscante como bôoleano
bTie = falso
se Val (checkbox1.tag) <� Val=""> WinnerMessage = checkbox2.text
chkWinner = checkbox2
bTie = falso
elseif (Val (checkbox1.tag) = Val (checkbox2.tag)) então
WinnerMessage += “,” + checkbox1.text
chkWinner = checkbox1
o bTie = retifica
mais
WinnerMessage = checkbox1.text
chkWinner = checkbox1
bTie = falso
terminar se
se Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox3.text
chkWinner = checkbox3
bTie = falso
elseif Val (chkWinner.tag) = Val (checkbox3.tag) então
WinnerMessage += “,” + checkbox3.text
o bTie = retifica
terminar se
se Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox4.text
chkWinner = checkbox4
bTie=false
elseif Val (chkWinner.tag) = Val (checkbox4.tag) então
WinnerMessage += “,” + checkbox4.text
o bTie = retifica
terminar se
[… e assim por diante]
se bTie = falso então
msgbox (“o vencedor é: ” & chkWinner.text & “com” & chkWinner.tag & “votos”)
mais
msgbox (“nós temos um laço no meio: ” & WinnerMessage & “com” & chkWinner.tag & “votos”)
terminar se
