Private Sub Command1_Click()a = Array(82, 36, 12, 26)'82 36 12 26b = Array(99, 75, 76, 92)c = Array(77, 62, 85, 99)For i = 0 To 3
For j = 0 To 3
If c(i) = a(j) Then
n1 = n1 + 1
End If
If c(i) = b(j) Then
n2 = n2 + 1
End If
NextNextn1 = 0 n2 = 0If (n1 < 2) Or (n2 < 2) Then
For i = 0 To 3
Print c(i)
NextEnd IfEnd Sub |