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

End If

End If

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

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

1. Создать новый проект и программу для решения задачи: пользователь вводит радиусы 2-х кругов и сторону квадрата. С помощью процедуры MsgBox вывести результат сравнения площадей этих фигур: меньше, больше или одинаковы. Расположить на форме кнопку выхода из проекта. С помощью процедуры MsgBox перед выходом переспросить, уверен ли пользователь в выходе, выход только по ответу – да. Макет формы показан на рис. 40.

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

Dim a, r1, r2, s, s1, s2 As Double

Const pi=3.1416

r1=InputBox("введите 1 радиус")

r2=InputBox("введите 2 радиус ")

a=InputBox("введите сторону квадрата")

s1=pi*r1^2

s2=pi*r2^2

s=a^2

If s1>s2 And s1>s Then

MsgBox "круг 1 больше"

ElseIf s1<s2 And s<s2 Then

MsgBox "круг 2 больше"

ElseIf s1>s And s1=s2 Then

MsgBox "круги равны, квадрат меньше"

ElseIf s1<s And s1=s2 Then

MsgBox "круги равны, квадрат больше"

ElseIf s1<s And s>s2 Then

MsgBox "квадрат больше"

End If

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

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

1. Создать новый проект и программу для решения задачи: пользователь вводит произвольное число. Вывести с помощью процедуры MsgBox результат сравнения суммы 1-й и 3-й цифры с суммой 2-й и 4-й цифры. Если введенное число имеет меньше 4-х разрядов, сообщить об этом пользователю и сравнение не производить. Макет формы показан на рис. 40.

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

Dim i, a1, a2 As Integer

Dim b As String

b=InputBox("введите число")

If Len(b)<4 Then

MsgBox "недостаточно цифр", 48, "стоп"

Else

a1=Val(Mid(b, 1, 1))+Val(Mid(b, 3, 1))

a2=Val(Mid(b, 2, 1))+Val(Mid(b, 4, 1))

If a1>a2 Then

MsgBox "1 и 3 больше", 64, "результат"

ElseIf a1<a2 Then

MsgBox "2 и 4 больше", 64, "результат"

Else

MsgBox "одинаково", 64, "результат"

End If

End If

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

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

1. Создать новый проект и программу для решения задачи: пользователь вводит произвольное число. Вывести с помощью процедуры MsgBox результат сравнения суммы цифр, расположенных на четных местах в числе с суммой цифр, расположенных на нечетных местах: меньше, больше или одинаковы. Расположить на форме кнопку выхода из проекта. С помощью процедуры MsgBox перед выходом переспросить, уверен ли пользователь в выходе, выход только по ответу – да. Макет формы показан на рис. 40.

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

Dim i, a1, a2 As Integer

Dim b As String

b=InputBox("enter number")

For i=1 To Len(b) Step 2

a1=a1+Val(Mid(b, i, 1))

a2=a2+Val(Mid(b, i+1, 1))

Next

If a1>a2 Then

MsgBox "сумма нечетных больше", 64, "результат"

ElseIf a1<a2 Then

MsgBox "сумма четных больше", 64, "результат"

Else

MsgBox "равны", 64, "результат"

End If

3. Программный код для кнопки выход:

Dim a As String

a=MsgBox("выход?", vbYesNo, "выход")

If a=vbYes Then End

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

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

1. Создать новый проект и программу для поиска нужного товара в списке. Заполнить список 5 – 7 наименованиями товаров. Разместить на форме текстовое поле для ввода названия нужного товара. Для клавиши «найти» написать код, который с помощью функции MsgBox выводит информацию: есть такой товар в списке или нет. В этом же сообщении предложить выбор: продолжить поиск товаров или завершить работу. Макет формы показан на рис. 41. Заполнить список данными (см. рис. 41) в свойстве List (см. практ. р. № 3.1) в окне properties window.

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

Dim i, n As Integer

Dim a As String

For i=0 To List1.ListCount

If List1.List(i)=Text1.Text Then n=1

Next

If n=1 Then

a=MsgBox("есть товар" & vbCrLf & "продолжить?", vbYesNo)

Else

a=MsgBox("нет товара" & vbCrLf & " продолжить?", vbYesNo)

End If

If a=vbNo Then End

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

Форма отчета: дискета или иной носитель с файлами форм и проектов работы № 4; текстовый файл с изображениями форм и текстами программных кодов.