Function khoangcach(X1 As Double, Y1 As Double, Z1 As Double, X2 As Double, Y2 As Double, Z2 As Double, n As Integer) As Double'Neu chon 1 tinh khoang cach trong mat phang XY theo cong thuc
Select Case n
Case 1
khoangcach = Sqr((X1 - X2) * (X1 - X2) + (Y1 - Y2) * (Y1 - Y2))
'Neu chon 2 tinh khoang cach trong mat phang XZ theo cong thuc
Case 2
khoangcach = Sqr((X1 - X2) * (X1 - X2) + (Z1 - Z2) * (Z1 - Z2))
'Neu chon 3 tinh khoang cach trong mat phang YZ theo cong thuc
Case 3
khoangcach = Sqr((Y1 - Y2) * (Y1 - Y2) + (Z1 - Z2) * (Z1 - Z2))
End Select
End Function
