Dim ВОЗРАСТ As Single

Dim ИНСТИТУТ, ШКОЛА As String

ВОЗРАСТ=InputBox("Сколько вам лет?", "Введение возраста")

If ВОЗРАСТ>17 Then

ИНСТИТУТ=InputBox("В каком институте ты учишься?", "введение названия института"): Text1.Text=" Хороший институт!"

Else

ШКОЛА=InputBox("В какой школе ты учишься?", "введение названия школы"): Text1.Text = "Неплохая школа"

End If

MsgBox "До следующей встречи!", 64, "Прощание"

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

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

1. Создать новый проект и программу для решения задачи: человек вводит в компьютер число. Если оно находится в интервале от 28 до 30, то нужно напечатать текст – ПОПАЛ, если оно больше или равно 30, то – ПЕРЕЛЕТ, если оно находится на отрезке от 0 до 28, то – НЕДОЛЕТ, если число меньше нуля, то – НЕ БЕЙ ПО СВОИМ. Макет формы показан на рис. 39.

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

Dim A As Single

A=InputBox("Введите число", "Ввод числа")

If A<0 Then

Text1.Text="Не бей по своим!"

Else

If A<=28 Then

Text1.Text="Недолет"

Else

If A<30 Then

Text1.Text="Попал!"

Else

Text1.Text="Перелет"

End If