Ррр

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