Private Sub Form_Load()

Задача №1.
Определить площадь прямоугольника, если значения длины и ширины
запрашиваются в окне InputBox. Вывести на форму длину, ширину и площадь.
Текст программы:
Private Sub Form_Load()
Form1.AutoRedraw = True
a = InputBox("Введите значение а", "длина прямоугольника")
b = InputBox("Введите значение b", "ширина прямоугольника")
a = Val(a)
b = Val(b)
Print "длина прямоугольника"; a
Print "ширина прямоугольника"; b
s=a*b
Print "Площадь прямоугольника"; s
End Sub
Результат выполнения программы.
Задача №2.
Определить стоимость товара, если значения цены и количества запрашиваются
в окне InputBox. Вывести на форму цену, количество и стоимость.
Текст программы:
Private Sub Form_Load()
Form1.AutoRedraw = True
a = InputBox("Введите цену товара", "цена товара")
b = InputBox("Введите количество товара", "количество товара")
a = Val(a)
b = Val(b)
При вводе чисел с десятичной
Print "цена товара ="; a
дробью необходимо целую часть
Print "количество товара ="; b
числа отделять от дробной
Print "стоимость товара ="; a * b
точкой:
End Sub
цена - 35.7, количество – 0.45
Стоимость товара получается 16,065. Переведем ее в рубли и копейки:
s=a*b
r = Fix(s)
k = Fix((s - r) * 100 + 0.5)
Print "стоимость товара="; r; " р. "; k; " коп."
Задача №3.
Определить количество товара, если значения цены и суммы денег, выделенной
на покупку товара, запрашиваются в окне InputBox. Предусмотреть два варианта
решения:
а) когда товар весовой (все деньги можно потратить на покупку
данного товара;
б) когда товар штучный, в таком случае обычно остается остаток, его
перевести в рубли и копейки, как в задании 2.
Задача №4
Даны четырех переменных A, B, C, D, значения которых запрашиваются в окне
InputBox. Где A, В, С размер параллелепипеда (длина, ширина, высота –
соответственно), D – количество параллелепипедов.
Определить, какой объем займут параллелепипеды, если их использовать на: а)
100%; б) 50%; в) 15%. Учесть, что параллелепипеды можно брать только
целиком.
Private Sub Form_Load()
Form1.AutoRedraw = True
a = InputBox("Введите значение а", "длина параллелепипеда ")
b = InputBox("Введите значение b", "ширина параллелепипеда ")
c = InputBox("Введите значение c", "высота параллелепипеда ")
d = InputBox("Введите значение d", "количество параллелепипедов ")
a = Val(a)
b = Val(b)
c = Val(c)
d = Val(d)
Print "размеры параллелепипеда: "; a; “ “; b ; “ “; c
Print " количество параллелепипедов:"; d
Print "Для задания под б) V="; fix(d/2)*a*b*c
End Sub
Продолжите программу для выполнения задания а) и в)
Задача №5
Даны три переменные A, B, C, значения которых запрашиваются в окне InputBox.
Где A – ширина плитки; В – длина плитки; С – количество плиток.
Определить, какую площадь можно покрыть данными плитками, если
использовать: а) все плитки; б) половина; в) треть всех плиток. Учесть, что
плитки можно брать только целиком.