求兩點間距離的編程怎麽寫？

Dim x1為單個，x2為單個，y1為單個，y2為單個，s為單個

X1 = InputBox("x1 "，"輸入X1 ")。

Y1 = InputBox("y1 "，"輸入Y1 ")。

X2 =輸入箱(" X2 "，"輸入x2 ")

Y2 = InputBox("y2 "，" input y2 ")

s = sqr((x2-x 1)^ 2+(y2-y 1)^ 2)

打印“兩點之間的距離是”；s

末端接頭