78. В компьютер вводятся два произвольных положительных числа - длины сторон двух кубиков. Компьютер должен подсчитать объем одного кубика - большего по размеру .

ВАРИАНТ 1	Dim a1 As Double Dim a2 As Double Private Sub Command1_Click() a1 = InputBox("Введите сторону одного кубика") a2 = InputBox("Введите сторону другого кубика") If a1 > a2 Then Debug.Print a1 * a1 * a1 Else Debug.Print a2 * a2 * a2 End Sub
ВАРИАНТ 2	Dim a1 As Double Dim a2 As Double Dim V As Double Private Sub Command1_Click() a1 = InputBox("Введите сторону одного кубика") a2 = InputBox("Введите сторону другого кубика") If a1 > a2 Then V = a1 * a1 * a1 Else V = a2 * a2 * a2 Debug.Print V End Sub
ВАРИАНТ 3	Dim a1 As Double Dim a2 As Double Dim bol As Double Private Sub Command1_Click() a1 = InputBox("Введите сторону одного кубика") a2 = InputBox("Введите сторону другого кубика") If a1 > a2 Then bol = a1 Else bol = a2 Debug.Print bol * bol * bol End Sub

79. В компьютер вводится целое число a.

Если a<0, то компьютер должен сказать "Число отрицательно".

• Если a=0, то компьютер должен сказать "Вы ввели нуль".

• Если a>100, то компьютер должен сказать "Число большое".

• В остальных случаях компьютер ничего не должен говорить, а только вычислить и напечатать его квадрат.

• Private Sub Command1_Click()

• a = InputBox("Введите число")

• If a < 0 Then

• MsgBox ("Число отрицательно")

• ElseIf a = 0 Then

• MsgBox ("Вы ввели нуль")

• ElseIf a > 100 Then

• MsgBox ("Число большое")

• Else

• Print a ^ 2

• End If

• MsgBox ("До свидания!")

• End Sub

80. Запрет деления на ноль

Private Sub Кл_деления_Click()

If IsNumeric(Число1) And IsNumeric(Число2) Then

Чис1 = Число1.Text

Чис2 = Число2.Text

If Чис2 <> 0 Then Результат.Text = Чис1 / Чис2 Else MsgBox ("На ноль делить нельзя")

Else

MsgBox ("Вводите только числа")

End If

End Sub

81. Распечатать пары чисел - 101 1000

Private Sub Command1_Click()

For a = 101 To 110

Debug.Print a;

Debug.Print 1000 - 10 * (a - 101)

Next a

End Sub

82. Во дворце 40 залов. Известны длина, ширина и высота каждого зала. Вычислить площадь пола и объем каждого зала.

Сначала напишем фрагмент для одного зала:

Dlina = InputBox ("Введите длину") 'Начало фрагмента

Shirina = InputBox ("Введите ширину")

Visota = InputBox ("Введите высоту")

S = Dlina * Shirina 'Площадь пола

V = S * Visota 'Объем

Debug.Print "Площадь пола="; S, "Объем зала="; V 'Конец фрагмента

Для решения задачи этот фрагмент нужно выполнить 40 раз, для чего вполне естественно вложить его в оператор For:

Private Sub Command1_Click()

For i = 1 To 40

Dlina = InputBox("Введите длину") 'Начало фрагмента

Shirina = InputBox("Введите ширину")

Visota = InputBox("Введите высоту")

S = Dlina * Shirina 'Площадь пола

V = S * Visota 'Объем

Debug.Print "Площадь пола="; S, "Объем зала="; V 'Конец фрагмента

Next i

End Sub