Информационная технология - VB

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

Помогите пожалуйста - разработать информационную технологию, позволяющую исследовать изменение значений объема и боковой поверхности призмы при изменении значения высоты от начального значения h0 до конечного значения hk с шагом ∆h и значения периметра от начального значения p0 до конечного значения pk с шагом ∆p. Внешний и внутренний цикл – с предусловием. Для отладки принять: h0 = 100, hk = 150, ∆h = 25; p0= 200, pk= 300, ∆p = 50

Решение задачи: «Информационная технология»

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

                            Private Sub Command1_Click()
Cls
Print
Dim h0 As Single, hk As Single, h As Single, p0 As Single, pk As Single, p As Single, dh As Single, dp As Single, S As Single, V As Single
h0 = InputBox("Введите значение переменной h")
hk = InputBox("Введите значение переменной h")
dh = InputBox("Введите значение переменной  dh")
p0 = InputBox("Введите значение переменной   p")
pk = InputBox("Введите значение переменной  pk")
dp = InputBox("Введите значение переменной  dp")
Print Spc(4); "Результат вычисления"
For h = h0 To hk Step dh
Print Spc(8); "h=" & Format(h, "#.##")
For p = p0 To pk Step dp
S=(p*h)/2
V=(S*h)/3
Print Spc(8); "p=" & Format(p, "#.##") & "S=" & Format(S, "#.##") & "V=" & Format(V, "#.##")
Next
Next
End Sub
                        