Zmartwiony I kończyć w poprzedzający poczta:
Ty potrzebować sznurek lub lista lub potrzebować gdy ty iść robić dla krawat.
Jeżeli przy jakaś czas Krawat łamać inny pudełko, ty potrzebować reset the sznurek.
Swój kod kod…
i pokaz rezultat ty móc móc:
ciemnawy chkWinner jako nowy checkbox
ciemnawy WinnerMessage Sznurek
ciemnawy bTie ciemnawy
bTie = fałszywy
jeżeli Val (checkbox1.tag) <� Val=""> WinnerMessage = checkbox2.text
chkWinner = checkbox2
bTie = fałszywy
elseif (Val (checkbox1.tag) = Val (checkbox2.tag)) wtedy
WinnerMessage += "," + checkbox1.text
chkWinner = checkbox1
bTie = true
inny
WinnerMessage = checkbox1.text
chkWinner = checkbox1
bTie = fałszywy
kończyć jeżeli
jeżeli Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox3.text
chkWinner = checkbox3
bTie = fałszywy
elseif Val (chkWinner.tag) = Val (checkbox3.tag) wtedy
WinnerMessage += "," + checkbox3.text
bTie = true
kończyć jeżeli
jeżeli Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox4.text
chkWinner = checkbox4
bTie=false
elseif Val (chkWinner.tag) = Val (checkbox4.tag) wtedy
WinnerMessage += "," + checkbox4.text
bTie = true
kończyć jeżeli
[… i w ten sposób dalej]
jeżeli bTie = fałszywy wtedy
msgbox ("the zwycięzca być: " & chkWinner.text & "z" & chkWinner.tag & "głosowanie")
inny
msgbox ("My mieć krawat pośrodku: " & WinnerMessage & "z" & chkWinner.tag & "głosowanie")
kończyć jeżeli