Комплексное решение задачи по "Коррекции кода" - Basic - Ответ 2529467

Private Sub Label1_Click()
 
End Sub
 
'процедура нажатия клавиши в текстовом поле
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'объявляем переменные для работы
Dim stroka As String ' входная строка
Dim dlina As Integer 'длина входной строки
Dim result As String 'строка-результат
Dim i As Integer     'счетчик цикла
 
'KeyCode- код нажатой клавиши  ,KeyCode = 13 соответствует Enter
If KeyCode = 13 Then              'т.о. если нажата клавиша Enter, - начинаем проверки
 
stroka = TextBox1.Text 'запомним содержимое строки
dlina = Len(TextBox1.Text) 'и определим ее длину
 
For i = 1 To dlina 'в цикле по всей длине строки
'Mid(stroka, i, 1)--- часть строки, начиная с i и длиной 1
'если текущий (i) символ строки не равен 0 и не равен 1, - то
If Mid(stroka, i, 1) <> 0 And Mid(stroka, i, 1) <> 1 Then
MsgBox "строка должна содержать только 0 и 1" 'сообщаем об этом
Exit Sub                                     'и выходим из процедуры
End If
Next i
 
If dlina < 3 Or dlina > 759 Then  'если длина не входит в оговоренный диапазон, то
MsgBox " длина строки должна быть больше 2 и меньше 760" 'сообщаем об этом
Exit Sub                           'и выходим из процедуры
End If
 
If dlina Mod 3 <> 0 Then         'если длина не кратная 3, т.е. остаток от деления на 3 не =0
MsgBox "длина строки должна быть кратна 3"  'сообщаем об этом
Exit Sub                 'и выходим из процедуры
End If
 
 
                      'если все проверки прошли, - начинаем декодировать
Label1.Caption = ""   'чистим поле для вывода
result = ""           'очищаем переменную для результата
For i = 1 To dlina Step 3 'в цикле по всей длине с шагом 3 (по три символа
kod = Val(Mid(stroka, i, 3)) 'выделяем часть строки от i длиной 3, т.е. рассматриваем все тройки
'если числовое (Val) значение тройки =0 или 1 или 10 или 100
If kod = 1 Or kod = 10 Or kod = 100 Or kod = 0 Then 'то это значит, что больше 0
result = result & 0 'тогда прибавляем к результату 0
Else               'иначе, т.е.значение тройки не равно ни 0 ни 1 ни 10 ни 100
                   'а это значит, что больше 1
result = result & 1 'тогда добавляем к результату 1
End If
Next i 'завершаем цикл
Label1.Caption = result 'и выводим результат
End If
End Sub
 
 
Private Sub UserForm_Click()
 
End Sub

Sub Кнопка1_Щелкнуть()
Dim s As String
Dim K As Byte
Dim R As String
Do
    s = InputBox("Введите код", "Ввод данных!", "110111010001")
    If s = "" Then Exit Sub ' нажали отмена
    Debug.Print s, Len(s), Len(s) Mod 3
        If Len(s) >= 2 And Len(s) Mod 3 = 0 Then 'если символов больше 1 и их количество кратно 3
        Exit Do
    End If
 MsgBox "Некорректный ввод!", vbCritical, ""
Loop
For j = 1 To Len(s) Step 3
    K = Val(Mid(s, j, 1)) + Val(Mid(s, j + 1, 1)) + Val(Mid(s, j + 2, 1))
    R = R & IIf(K < 2, 0, 1): K = 0
Next j
MsgBox R, 64, ""
End Sub