Вычислить площадь трапеции, если заданы основания и высота - VB

Формулировка задачи:

всем привет помогите плиз для зачета!!!! + составить блок схему к задачам! Вариант 3: Составить программу вычисления площади трапеции, если за- даны основания a, b и высота h. Примечание: площадь трапеции вычисляется по формуле: s=h(a+b)/2 Контрольные вопросы 1.Каким типом данных объявляются целые числа? 2. Каким типом данных объявляются дробные числа? 3. Какой тип алгоритма используется в программе? Вариант 3: Составить программу определения фигуры большего объема из следующих фигур: шар радиусом r и куб с ребром a. Примечание: объем шара находится по формуле: V=4/3Пr3 объем куба находится по формуле: v=a3 Контрольные вопросы 1.Какие типы данных используются в прграмме? 2.Каким предложением осуществляется вывод данных? 3. Какой тип алгоритма используется в программе?

Решение задачи: «Вычислить площадь трапеции, если заданы основания и высота»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim H As Single, L As Single, pi As Single
Dim V As Single
H = 10: L = 0.35
pi = 4 * Atn(1)
V = pi * (H ^ 3) * ((Sin(L)) ^ 2) * (1 + (Sin(L)) ^ 2)
MsgBox "V=" & V & " sm.kub"
End Sub
                        