Практическая работа № 4.6

1. Создать новый проект и программу для вывода на форму сведений о трех студентах: по запрашиваемой фамилии - курс и номер группы. Макет формы показан на рис. 26.

2. Программный код для кнопки пуск:

Dim familia As String

familia=InputBox("введите фамилию", "ввод фамилии")

If familia="Иванов" Then

Text1.Text="1 курс, 13 группа"

Else

If familia="Петров" Then

Text2.Text="2 курс, 21 группа"

Else

If familia="Чёрный" Then

Text3.Text="5 курс, 52 группа"

Else

MsgBox "Данной фамилии нет в списке", 64, "Ошибка"

End If

End If

End If

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.