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

Узнай цену своей работы

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

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

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

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

Оцени полезность:

7   голосов , оценка 4.571 из 5
Похожие ответы