Задача по теме «Развилка» (Visual Basic)

[limpulsl]

Помогите пожалуйста решить задачу (Visual Basic)

Известно, что из четырех чисел a1, а2, a3 и а4 одно отлично от трех других, равных между собой; присвоить номер этого числа переменной п.

[ViktorR]

Есть видимо много способов решить такую задачу.
Предлагаю поступить так (решение в лоб):
Первое число сравниваем с остальными и формируем код по специальному правилу.
а) сравнение первого числа с последующими порождает значение (Ni) равное 0 при равенстве чисел и 1 при неравенстве (можно и наоборот).
б) формируем сумму: N1*100+N2*10+N3.
Теперь можем проанализировать сумму:
000 - выводим номер первого числа (1).
100 - -"- (2)
010 - -"- (3)
001 - -"- (4).
Что-то вроде такого:

S =0;
if a1 <> a2 then S = S + 100
if a1 <> a3 then S = S + 10
if a1 <> a4 then S = S + 1
Select Case S
Case 0 n = 1
Case 1 n = 4
Case 10 n = 3
Case 100 n = 2
End Select

Как-то, так ...