Ррр
РррConst G As Single = 9.81
Const Pi As Single = 3.14
Dim V0, A, S, L, H As Single
Private Sub Button1_Click(...)
'Ввод начальных значений
V0=Val(TextBox1.Text)
A=Val(TextBox2.Text)
S=Val(TextBox3.Text)
H=Val(TextBox4.Text)
'Попадание в стенку
L=S*Math.Tan(A*Pi/180)-(G*S^2)/(2*V0^2*Math.Cos(A*Pi/180)^2)
Label1.Text=L
Select Case L
Case Is <0
Label2.Text="Недолет"
Case Is >H
Label2.Text="Перелет"
Case Else
Label2.Text="Попадание"
End Select
End Sub