CLS
DIM a(12)
FOR i = 1 TO 12
INPUT a(i)
NEXT i
FOR i = 1 TO 4: x = x + a(i): NEXT i
FOR i = 5 TO 8: y = y + a(i): NEXT i
IF x = y THEN
IF a(9) = a(10) THEN
IF a(10) = a(11) THEN PRINT a(12) ELSE PRINT a(11)
ELSE
IF a(8) = a(9) THEN PRINT a(10) ELSE PRINT a(9)
END IF
ELSE
x = 0: y = 0
FOR i = 1 TO 3: x = x + a(i): NEXT i
FOR i = 4 TO 6: y = y + a(i): NEXT i
IF x = y THEN
IF a(6) = a(7) THEN PRINT a(8) ELSE PRINT a(7)
ELSE
IF a(1) = a(2) = a(3) THEN
IF a(4) = a(5) THEN
PRINT a(6)
ELSE
IF a(3) = a(4) THEN PRINT a(5) ELSE PRINT a(4)
END IF
ELSE
IF a(1) = a(2) THEN
PRINT a(3)
ELSE
IF a(4) = a(1) THEN PRINT a(2) ELSE PRINT a(1)
END IF
END IF
END IF
END IF
END

唐铭康,我要的是方法，不是最后结果，再加上你的结果好像不符合题目要求

不知道你为什么搞这么长。那上面不是说了吗，一个不同于其他，你找到了输出不就行了。

洪天逸，你头像是你照片？

不是他的照片

Cls
Dim a(1 To 10)
Input a(1): p = a(1): x = 1
For i = 2 To 10
  Input a(i)
  If a(i) = p Then m = m + 1
  If a(i) <> p Then n = n + 1
  If n > m Then x = i
Next i
Print x;
End