Лабораторная работа: Изучение возможностей создания MDI-приложений (multiple document interface)

Case 0: s(0) = InputBox("Введите фамилию", "Студент")

Case 1: s(1) = InputBox("Введите имя", "Студент")

Case 2: s(2) = InputBox("Введите факультет", "Студент")

Case 3: s(3) = InputBox(“Введите группу", "Студент")

End Select

For n = 0 To 3

If s(n) = "" Then s(n) = "Нетданных"

Next n

With StudentData

Select Case i

Case 0: .fam = s(0)

Case 1: .Name = s(1)

Case 2: .Fac = s(2)

Case 3: .Gru = s(3)

End Select

End With

For n = 0 To 3

s(n) = ""

Next n

i = i + 1

Loop

EndSub

Запускаем приложение (рис.1-3)

Рис.1 MDI – приложение: окна каскадом

Рис.2 MDI – приложение: окна ориентированы вертикально

Рис.3 MDI – приложение: ввод данных