Игра "Быки и коровы": как реализовать игру между пользователями

Option Explicit
 
Dim a(1 To 4), p, cislo, k, i As Integer
Sub Auto_open()
newgame
 
End Sub
 
Sub newgame()
 
'Очищаем ячейки С5 и С7
 
Range("C5").Value = ""
 
Range("C7").Value = ""
 
 
 
'"Перенастраиваем" датчик случайных чисел
 
Randomize
 
Do
 
'Генерируем случайное 4-значное число
 
cislo = 1000 + Rnd * 8999
 
'Выделяем его цифры и записываем их в массив
 
a(1) = cislo \ 1000
 
a(2) = (cislo Mod 1000) \ 100
 
a(3) = (cislo Mod 100) \ 10
 
a(4) = cislo Mod 10
 
Loop Until a(1) <> a(2) And a(1) <> a(3) And a(1) <> a(4) And a(2) <> a(3) And a(2) <> a(4) And a(3) <> a(4)
 
p = 0
 
Range("C5").Activate
Cells(15, 1) = cislo
 
 
End Sub
 
Sub nextgame()
 
'Описываем локальные переменные величины
 
Dim otvet1, otvet(1 To 4), buk, cow, i, j, k As Integer
 
 
 
'и выводим его в ячейке С7
p = 0
Range("C7").Value = p
 
'Считываем число-ответ
 
otvet1 = Range("C5").Value
 
'и сравниваем его с задуманным числом
 
If otvet1 = cislo Then
 
MsgBox ("Правильно! Число попыток = " + STR$(p))
 
Else
 
If otvet1 = 0 Then
 
MsgBox ("Заполните Ответ")
 
Else 'Игра продолжается
p = 1
p = p + 1
Range("C7").Value = p
'Определяем цифры в ответе
 
'и записываем их в массив ЦифрыОтвета
 
otvet(1) = otvet1 \ 1000
 
otvet(2) = (otvet1 Mod 1000) \ 100
 
otvet(3) = (otvet1 Mod 100) \ 10
 
otvet(4) = otvet1 Mod 10
 
'Подсчитываем количество "быков"
For i = 1 To 4
 
If otvet(i) = a(i) Then
 
buk = buk + 1
 
End If
Next i
'и количество "коров"
 
For i = 1 To 4
 
For j = 1 To 4
 
If otvet(i) = a(j) And i <> j Then
 
cow = cow + 1
 
End If
 
Next j
 
Next i
 
'Выводим результат
 
MsgBox ("Число быков = " + STR$(buk) + " Число коров = " + STR$(cow))
 
 
'Готовимся принять новое число
 
Range("C5").Activate
 
End If
 
End If
 
k = 11 + p
Cells(k, 5) = buk
If cow = 0 Then
Cells(k, 6) = "0"
Else
Cells(k, 6) = cow
 
End If
 
 
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 
End Sub