Составить программу расчета нормы расхода гербицида (л/га) по формуле - VB

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

Добрый день. Помогите решить задачку. Составить программу расчета нормы расхода гербицида (л/га) по формуле: P=Dn*n*600/Y*B, где Y - скорость движения агрегата, км/ч; B - ширина захвата опрыскивателя, м; Dn - расход жидкости через один наконечник, л/мин; n - число наконечников. Скорость движения агрегата меняется в пределах от 3 до 10 км/ч с шагом 1 км/ч. Я сам далек от информатики, а жена еще дальше (ей собственно ее и задали). ОГРОМНОЕ СПАСИБО.

Решение задачи: «Составить программу расчета нормы расхода гербицида (л/га) по формуле»

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

                            Private Sub Command1_Click()
Dim P As Double
Dim n As Integer
Dim Y As Double
Dim B As Double
Dim Dn As Double
n = 5
B = 10
Dn = 15
For Y = 1 To 10
    P = (Dn * n * 600) / (Y * B)
    Print "P(" & Y & ")=" & P
Next
 
End Sub
                        