Даны декартовы координаты вершин треугольника(в плоскости) - VB

    Dim Pt() As Single, P As Single, S As Single, i As Long
    ReDim Pt(2, 1)
    For i = 0 To 5
        Pt(i \ 2, i And 1) = Val(InputBox(Chr$(&H41 + i \ 2) & Chr$(&H78 + (i And 1))))
    Next
    P = Sqr((Pt(1, 0) - Pt(0, 0)) ^ 2 + (Pt(1, 1) - Pt(0, 1)) ^ 2) + _
        Sqr((Pt(2, 0) - Pt(0, 0)) ^ 2 + (Pt(2, 1) - Pt(0, 1)) ^ 2) + _
        Sqr((Pt(2, 0) - Pt(1, 0)) ^ 2 + (Pt(2, 1) - Pt(1, 1)) ^ 2)
    S = Abs((Pt(1, 0) - Pt(0, 0)) * (Pt(2, 1) - Pt(0, 1)) - _
           (Pt(2, 0) - Pt(0, 0)) * (Pt(1, 1) - Pt(0, 1))) / 2
    MsgBox "P = " & Format(P, "0.00000") & vbNewLine & _
           "S = " & Format(S, "0.00000")