Сократить условия в программе тестирования - VB

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

Сократите, пожалуйста, условия(VB 6.0):

If chkA.Value = Checked And chkB.Value = Checked Then
 If (r1 = a And r2 = b) Or (r1 = b And r2 = a) Then
 MsgBox "Вы ответили верно", 64, "Результат"
 Else
 MsgBox "Вы ответили неверно, ответ: " & r1 & " " & r2, 64, "Результат"
 End If
End If
 
If chkC.Value = Checked And chkD.Value = Checked Then
 If (r1 = c And r2 = d) Or (r1 = d And r2 = c) Then
 MsgBox "Вы ответили верно", 64, "Результат"
 Else
 MsgBox "Вы ответили неверно, ответ: " & r1 & " " & r2, 64, "Результат"
 End If
End If
 
If chkA.Value = Checked And chkD.Value = Checked Then
 If (r1 = a And r2 = d) Or (r1 = d And r2 = a) Then
 MsgBox "Вы ответили верно", 64, "Результат"
 Else
 MsgBox "Вы ответили неверно, ответ: " & r1 & " " & r2, 64, "Результат"
 End If
End If
 
If chkA.Value = Checked And chkC.Value = Checked Then
 If (r1 = a And r2 = c) Or (r1 = c And r2 = a) Then
 MsgBox "Вы ответили верно", 64, "Результат"
 Else
 MsgBox "Вы ответили неверно, ответ: " & r1 & " " & r2, 64, "Результат"
 End If
End If
 
If chkB.Value = Checked And chkD.Value = Checked Then
 If (r1 = b And r2 = d) Or (r1 = d And r2 = b) Then
 MsgBox "Вы ответили верно", 64, "Результат"
 Else
 MsgBox "Вы ответили неверно, ответ: " & r1 & " " & r2, 64, "Результат"
 End If
End If
 
If chkA.Value = Checked And chkC.Value = Checked Then
 If (r1 = a And r2 = c) Or (r1 = c And r2 = a) Then
 MsgBox "Вы ответили верно", 64, "Результат"
 Else
 MsgBox "Вы ответили неверно, ответ: " & r1 & " " & r2, 64, "Результат"
 End If
End If
 
If chkB.Value = Checked And chkC.Value = Checked Then
 If (r1 = b And r2 = c) Or (r1 = c And r2 = b) Then
 MsgBox "Вы ответили верно", 64, "Результат"
 Else
 MsgBox "Вы ответили неверно, ответ: " & r1 & " " & r2, 64, "Результат"
 End If
End If

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

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

                            Dim arrChk(), arrAbcd(), i&, j&
arrChk = Array(chkA.Value, chkB.Value, chkC.Value, chkD.Value)
arrAbcd = Array(a, b, c, d)
For i = 0 To 2
  For j = i + 1 To 3
'-----------
    If arrChk(i) = Checked And arrChk(j) = Checked Then
      If (r1 = arrAbcd(i) And r2 = arrAbcd(j)) Or (r1 = arrAbcd(j) And r2 = arrAbcd(i)) Then
        MsgBox "Вы ответили верно", 64, "Результат"
      Else
        MsgBox "Вы ответили неверно, ответ: " & r1 & " " & r2, 64, "Результат"
      End If
    End If
'-----------
  Next
Next
                        