Sub five()
    Dim n As Integer, s As String, f As String, TableC(8) As Integer, TableB(8) As Integer, k As String

    For n = 1 To 8
        TableC(n) = Rnd * 25
    Next n

    For n = 1 To 8
        s = s & TableC(n) & " "
    Next n

    For n = 1 To 8
        TableB(n) = Rnd * 25
    Next n

    For n = 1 To 8
        k = k & TableB(n) & " "
    Next n

    For n = 1 To 8
        If TableC(n) / 5 = TableC(n) \ 5 Then
            TableB(n) = TableB(n) * 5
        End If
        If TableC(n) \ 5 = TableC(n) / 5 Then
            TableB(n) = 0
        End If
            f = f & TableB(n) & " "
    Next n

    MsgBox "C(8) = " & s & vbNewLine & vbNewLine & "B(8) = " & k & vbNewLine & vbNewLine & "B(8) изменённое = " & f
End Sub