Diml1AsDouble.docVIP

Dim l1 As Double, l2 As Double, l3 As Double, b1 As Double, b2 As Double, β1 As Double, β2 As Double, β3 As Double, S As Double Dim l4 As Double, l5 As Double, l6 As Double, l7 As Double, l8 As Double Dim N As Double, w1 As Double, w2 As Double, w3 As Double, W As Double Dim l9 As Double, l10 As Double, l11 As Double, l21 As Double, l22 As Double, l23 As Double, l15 As Double, l24 As Double Dim Ф1 As Double, Ф2 As Double, Ф3 As Double, Ф4 As Double Dim P(1 To 10, 1 To 2) As Double Private Sub Command1_Click() Command1.Visible = False Command2.Visible = True Command3.Visible = True Command