VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000018&
      Height          =   1935
      Left            =   720
      ScaleHeight     =   1875
      ScaleWidth      =   3075
      TabIndex        =   1
      Top             =   360
      Width           =   3135
   End
   Begin VB.CommandButton Command1 
      Caption         =   "ïîèñê"
      Height          =   495
      Left            =   0
      TabIndex        =   0
      Top             =   2640
      Width           =   735
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a(1 To 10) As Single, i As Integer, b As Single, j As Integer, r As Single

Private Sub Command1_Click()
Dim n As Single, p As Single, m As Single, EOp As Single, c As Single
p = InputBox("Ââoä p")
n = InputBox("Ââîä n")
mO = InputBox("Ââîä m")
E=931,5*((1,00783*p+1
Form1.Print



End Sub

Private Sub Form_Click()
Dim n As Single, p As Single, m As Single, E As Single
n = InputBox("Ââîän")
p = InputBox("Ââîän")
m = InputBox("Ââîän")
E = ((1.00783 * p + 1.00866 * n) - m) * 931.5
Form1.Print E
End Sub

Private Sub Form_DblClick()
End
End Sub

Private Sub Picture1_Click()
Dim x As Integer, y As Integer
y = Height / 60
x = Width / 4
Picture1.PSet (x, y), RGB(127, 127, 127)
Picture1.Line Step(0, 0)-Step(500, 500), RGB(127, 127, 127), BF
End Sub
