問題描述：5位跳水高手參加10米高臺跳水決賽，有好事者讓5人據實力預測比賽結果． A選手說：B第二，我第三

Dim a, b, c, d, e As Integer

For a = 1 To 5

For b = 1 To 5

For c = 1 To 5

For d = 1 To 5

For e = 1 To 5

If a <> b And a <> c And a <> d And a <> e And b <> c And b <> d And b <> e And c <> d And c <> e And d <> e Then

If (b = 2 Xor a = 3) And (b = 2 Xor e = 4) And (c = 1 Xor d = 2) And (c = 5 Xor d = 3) And (e = 4 Xor a = 1) Then

Print "a="; a, "b="; b, "c="; c, "d="; d, "e="; e

End If

End If

Next e

Next d

Next c

Next b

Next a

End Sub