Аковы приметы правонарушителя?Написать программу. - VB

Формулировка задачи:

Решите такую задачу. Показания свидетелей правонарушения значительно различались. Первый свидетель сказал, что преступник был брюнет с усами. Второй заявил, что это был блондин без усов. Третий свидетель подтвердил, что преступник был блондином, но без портфеля. Четвертый был уверен, что преступник был шатеном с портфелем. В действительности оказалось, что каждый из свидетелей ошибся в одном из своих показаний. Каковы приметы правонарушителя?Написать программу.

Решение задачи: «Аковы приметы правонарушителя?Написать программу.»

textual
                            Листинг программы 
                        

                            Enum cvet
  Brun = 0
  Shat = 1
  Blon = 2
End Enum
 
Sub Form_Load()
Dim h As cvet, usi As Integer, port As Integer
AutoRedraw = True
For h = Brun To Blon
  For usi = True To False
    For port = True To False
      If h = Brun Xor usi Then           '1 св
        If h = Blon Xor Not usi Then     '2 св
          If h = Blon Xor Not port Then  '3 св
            If h = Shat Xor port Then    '4 св
Print Split("брюнет шатен блондин")(h), IIf(usi, "с усами", "без усов"), IIf(port, "с портфелем", "без портфеля")
            End If
          End If
        End If
      End If
    Next
  Next
Next
End Sub
                        