Лабораторная работа: Отчет по циклу лабораторных работ

For i = 1 To Ls

w = Worksheets(3).Cells(i + 1, 1).Value

If w = 1 Then a = True

If w = 0 Then a = False

If j > 12 Then j = 1

c = a Xor k1(j)

b = c Xor k2(j)

e = b Xor k3(j)

If e = True Then w = 1

If e = False Then w = 0

Worksheets(3).Cells(i + 1, 5).Value = w

j = j + 1

Next i

End

При нажатии на кнопку «Дешифрование»:

Private Sub CommandButton3_Click()

Dim a, b, c, d, e As Boolean

Dim k1(12), k2(12), k3(12) As Boolean

For i = 1 To 12

w = Worksheets(3).Cells(i + 1, 2).Value

If w = 1 Then k1(i) = True

If w = 0 Then k1(i) = False

Next i

For i = 1 To 12

w = Worksheets(3).Cells(i + 1, 3).Value

If w = 1 Then k2(i) = True

If w = 0 Then k2(i) = False

Next i

For i = 1 To 12