[求助] 求运动员的名次

有1，2，3，4号码的四个运动员，在一项比赛中获得了前四名，现在知道的情况如下：每人运动员的名次都与自己的号码不符。第四名运动员的号码是某一运动员的名次，而这个运动员的号码又是2号运动员的名次。3号运动员不是第一名。推断出这四名运动员各是第几名。
我是想不明白如何用VB编程来解决这个了，所以来求助大家了。