End Sub. 5. Запустить проект, ввести, например, в первое поле чис­ ло и щелкнуть по кнопке Chr$

5. Запустить проект, ввести,
например, в первое поле чис­
ло и щелкнуть по кнопке
Chr$. В третьем поле поя­
вится соответствующий дан­
ному числовому коду сим­
вол.

4.19. Проект «Регистрация» хранится в папке prjZ4-19.
Программный код:

Dim bytB As Byte, strA, strB, strC As String Sub cmdl_Click() Repeat:

strA = InputBox("Введите ваше имя:", "Ре гистрация")

strB = InputBox("Введите ваше отчество:", "Регистрация")

strC = InputBox("Введите вашу фамилию:", "Регистрация")

bytB = MsgBox ("Уважаемый " + strA + " " +
strB + " " + strC + "! Изменить регистра­
ционные данные?", 36, "Конец регистрации")
If bytB = 6 Then
GoTo Repeat:
Else End