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

If x < 0.5 Then k2(i) = 0

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

Next i

For i = 1 To 12

x = Rnd(12)

If x > 0.5 Then k3(i) = 1

If x < 0.5 Then k3(i) = 0

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

Next i

End Sub

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

Private Sub CommandButton2_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

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

If w = 1 Then k3(i) = True

If w = 0 Then k3(i) = False

Next i