Огорченно я не закончил напечатать на машинке в ранее столбе:
Вам нужно поддерживать шнур или список или что-то по мере того как вы идете делают проверять для связи.
Если в любое время связь сломленна другой коробкой, то вам нужно переустановить шнур.
Свое больше Кодего…
для того чтобы проверить и результаты индикации вы можете сделать это:
тусклое chkWinner как новый checkbox
тусклое WinnerMessage как шнур
тусклое bTie как булевско
bTie = ложно
если Val (checkbox1.tag) <� Val=""> WinnerMessage = checkbox2.text
chkWinner = checkbox2
bTie = ложно
elseif (Val (checkbox1.tag) = Val (checkbox2.tag)) после этого
WinnerMessage += «,» + checkbox1.text
chkWinner = checkbox1
bTie = true
еще
WinnerMessage = checkbox1.text
chkWinner = checkbox1
bTie = ложно
закончитесь если
если Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox3.text
chkWinner = checkbox3
bTie = ложно
elseif Val (chkWinner.tag) = Val (checkbox3.tag) после этого
WinnerMessage += «,» + checkbox3.text
bTie = true
закончитесь если
если Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox4.text
chkWinner = checkbox4
bTie=false
elseif Val (chkWinner.tag) = Val (checkbox4.tag) после этого
WinnerMessage += «,» + checkbox4.text
bTie = true
закончитесь если
[… и так далее]
если bTie = ложно после этого
msgbox («победитель является следующим: » & chkWinner.text & «с» & chkWinner.tag & «вотумы»)
еще
msgbox («мы имеем связь: » & WinnerMessage & «с» & chkWinner.tag & «вотумы»)
закончитесь если
