Сравнение 3 чисел - VBA

Формулировка задачи:

Здравствуйте. Вопрос такой, дано 4 целых числа, если 3 из них равны, то нужно вывести 0, а если нет то 1. Что я сделал не так? Если сравнивать 2 числа, то работает все нормально. А с 3 не получается.

                    Листинг программы
                
 
                        
                          
                    
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim w As Integer
x = InputBox("Введите x")
y = InputBox("Введите y")
z = InputBox("Введите z")
w = InputBox("Введите w")
If x = y = z Or x = y = w Or x = z = w Or y = z = w Then
MsgBox "0"
Else
MsgBox "1"
End If
End If

Решение задачи: «Сравнение 3 чисел»

textual
                            Листинг программы 
                        
Debug.Print -((x = y) + (x = z) + (x = w) + (y = z) + (y = w) + (z = w) <> -3)

Оцени полезность:

13 голосов , оценка 3.692 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы