Private Sub Command1_Click()
Dim x1 As Single
Dim y1 As Single
Dim X2 As Single
Dim Y2 As Single
Dim X3 As Single
Dim Y3 As Single
Dim A As Single
Dim B As Single
Dim C As Single
Dim P As Single
Dim S As Single
Dim Z As Single
x1 = InputBox("请输入第一个坐标横坐标：", "计算三角形的面积", 1)
y1 = InputBox("请输入第一个坐标纵坐标：", "计算三角形的面积", 1)
X2 = InputBox("请输入第二个坐标横坐标：", "计算三角形的面积", 1)
Y2 = InputBox("请输入第二个坐标纵坐标：", "计算三角形的面积", 1)
X3 = InputBox("请输入第三个坐标横坐标：", "计算三角形的面积", 1)
Y3 = InputBox("请输入第三个坐标纵坐标：", "计算三角形的面积", 1)
A = SPR((x1 - X2) ^ 2 + (y1 - Y2) ^ 2)
B = SPR((X2 - X3) ^ 2 + (Y3 - y1) ^ 2)
C = SPR((X3 - x1) ^ 2 + (Y3 - y1) ^ 2)
P = (A + B + C) / 2
S = Sqr(P * (P - A) * (P - B) * (P - C))
Z = A + B + C
Print
Print "三角形面积："; S
Print "三角形周长："; Z