Ledset jag avslutade mig inte att skriva i föregående postar:
Du behöver att underhålla en stränga, eller en lista eller något, som du går, gör att kontrollera för en tie.
Om när som helst en Tie är bruten vid another, boxas, dig behöver att nollställa stränga.
Dess mer kodifierar…,
att kontrollera och skärmresultat du kan göra denna:
dunkel chkWinner som ny checkbox
dunkla WinnerMessage som stränger
dunkel bTie som boolean
bTie = falskt
om Val (checkbox1.tag) <� Val=""> WinnerMessage = checkbox2.text
chkWinner = checkbox2
bTie = falskt
elseif (Val (checkbox1.tag) = Val (checkbox2.tag)) därefter
WinnerMessage += ”,” + checkbox1.text
chkWinner = checkbox1
bTie = true
annars
WinnerMessage = checkbox1.text
chkWinner = checkbox1
bTie = falskt
avsluta om
om Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox3.text
chkWinner = checkbox3
bTie = falskt
elseif Val (chkWinner.tag) = Val (checkbox3.tag) därefter
WinnerMessage += ”,” + checkbox3.text
bTie = true
avsluta om
om Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox4.text
chkWinner = checkbox4
bTie=false
elseif Val (chkWinner.tag) = Val (checkbox4.tag) därefter
WinnerMessage += ”,” + checkbox4.text
bTie = true
avsluta om
[… och så vidare]
om bTie = falskt därefter
msgbox (”vinnaren är: ” & chkWinner.text & ”med” & chkWinner.tag & ”röstar”),
annars
msgbox (”vi har en tie between: ” & WinnerMessage & ”med” & chkWinner.tag & ”röstar”),
avsluta om