Выбор знака в игре Крестики-нолики - VBA
Формулировка задачи:
Здравствуйте. У меня вопрос. Как в программе сделать чтобы Игрок1 мог выбрать крестиком ему играть или ноликом? Сразу извиняюсь за глупый вопрос, программирую не долго. P.s. Программу приложил.
Решение задачи: «Выбор знака в игре Крестики-нолики»
textual
Листинг программы
Private Sub Class_Initialize() If MsgBox("Игрок1 ходит: Да - крестиками, Нет - ноликами", vbYesNo, "Крестики - нолики") = vbYes Then symbol(0) = ChrW(&HD7) symbol(1) = ChrW(&H25CB) names(0) = "крестики" names(1) = "нулики" Else symbol(1) = ChrW(&HD7) symbol(0) = ChrW(&H25CB) names(1) = "крестики" names(0) = "нулики" End If End Sub