这个判断最完整
Private Sub Command1_Click()
ReDim h(1 To 4), mc(1 To 4)
For i1 = 1 To 4
For i2 = 1 To 4
For i3 = 1 To 4
For i4 = 1 To 4
If i1 <> i2 And i1 <> i3 And i1 <> i4 And i2 <> i3 And i2 <> i4 And i3 <> i4 Then
If Not (i1 = 1 Or i2 = 2 Or i3 = 3 Or i4 = 4) Then
If i1 <> 3 Then
h(1) = i1: h(2) = i2: h(3) = i3: h(4) = i4
For x = 1 To 4
mc(x) = x
Next
If h(1) = 2 Then ' 2,3,4---------1
For i = 2 To 4
If h(i) = 1 Then
If mc(i) = h(4) Then List1.AddItem i1 & i2 & i3 & i4
End If
Next i
End If If h(3) = 2 Then ' 1,2,4---------3
For i = 1 To 4
If i <> 2 Then
If h(i) = 3 Then
If mc(i) = h(4) Then List1.AddItem i1 & i2 & i3 & i4
End If
End If
Next
End If If h(4) = 2 Then ' 1,2,3---------2
For i = 1 To 3
If i <> 4 Then
If h(i) = 4 Then
If mc(i) = h(4) Then List1.AddItem i1 & i2 & i3 & i4
End If
End If
Next
End If
End If
End If
End If
Next
Next
Next
Next
End Sub