VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00C0FFFF&
   Caption         =   "Бросание тела"
   ClientHeight    =   1716
   ClientLeft      =   2568
   ClientTop       =   2988
   ClientWidth     =   6960
   DrawWidth       =   5
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   9.6
      Charset         =   204
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   30.268
   ScaleMode       =   6  'Millimeter
   ScaleWidth      =   122.767
   Begin VB.TextBox txtP 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   3720
      TabIndex        =   12
      Top             =   600
      Width           =   732
   End
   Begin VB.TextBox txtH 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   2880
      TabIndex        =   8
      Top             =   120
      Width           =   732
   End
   Begin VB.TextBox txtS 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   720
      TabIndex        =   3
      Top             =   600
      Width           =   732
   End
   Begin VB.TextBox txtV0 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   720
      TabIndex        =   2
      Top             =   120
      Width           =   732
   End
   Begin VB.CommandButton CmdCalc 
      Caption         =   "Диапазон углов"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   612
      Left            =   5520
      TabIndex        =   1
      Top             =   240
      Width           =   1212
   End
   Begin VB.TextBox txtA1 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   120
      TabIndex        =   0
      Top             =   1200
      Width           =   6012
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Точность"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   2280
      TabIndex        =   14
      Top             =   600
      Width           =   1332
   End
   Begin VB.Label lbl4 
      BackColor       =   &H00FFFFFF&
      Caption         =   "град"
      Height          =   372
      Left            =   4560
      TabIndex        =   13
      Top             =   600
      Width           =   492
   End
   Begin VB.Label lbl2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "м"
      Height          =   372
      Left            =   1560
      TabIndex        =   11
      Top             =   600
      Width           =   492
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "град"
      Height          =   372
      Left            =   6240
      TabIndex        =   10
      Top             =   1200
      Width           =   612
   End
   Begin VB.Label lblH 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "H"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   2280
      TabIndex        =   9
      Top             =   120
      Width           =   492
   End
   Begin VB.Label lbl3 
      BackColor       =   &H00FFFFFF&
      Caption         =   "м"
      Height          =   372
      Left            =   3720
      TabIndex        =   7
      Top             =   120
      Width           =   492
   End
   Begin VB.Label lbl1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "м/с"
      Height          =   372
      Left            =   1560
      TabIndex        =   6
      Top             =   120
      Width           =   492
   End
   Begin VB.Label lblS 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "S"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   120
      TabIndex        =   5
      Top             =   600
      Width           =   492
   End
   Begin VB.Label lblV0 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Vо"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   492
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const G As Single = 9.81
Const Pi As Single = 3.14
Dim V0, S, H, P As Double
Private Sub CmdCalc_Click()
'Ввод начальных значений
V0 = Val(txtV0.Text)
S = Val(txtS.Text)
H = Val(txtH.Text)
P = Val(txtP.Text)
txtA1.Text = ""
For A = 0 To 90 Step P
'Попадание в мишень
L = S * Tan(A * Pi / 180) - (G * S ^ 2) / (2 * V0 ^ 2 * Cos(A * Pi / 180) ^ 2)
If 0 < L And L < H Then
txtA1.Text = txtA1.Text + Str(A)
End If
Next A
End Sub

