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. Программный код для кнопки выход: