vb的一些問題6

甲、乙、丙三位球迷分别预测已进入半决赛的四队A、B、C、D的名次如下：甲预测，A队第一名、B队第二名；乙预测，C队第一名、D队第三名；丙预测，D队第二名、A队第三名。比赛结果恰使甲、乙、丙三人的预测各对一半。编写程序，当单击窗体时显示A、B、C、D四个队的名次。窗体用A16.frm文件名保存，工程用A16.Vbp文件名保存。

Private Sub Form_Click()
For a = 1 To 4
 For b = 1 To 4
  If b <> a Then
  For c = 1 To 4
   If c <> a And c <> b Then
    d = 1 + 2 + 3 + 4 - a - b - c
    If (a = 1 Xor b = 2) And (c = 1 Xor d = 3) _
    And (d = 2 Xor a = 3) Then Print a, b, c, d
End If
  Next
  End If
Next
Next
End Sub