訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容
Sub Command1_Click() Dim 距離# 距離=(Abs(Val(X1)-Val(X2))^2+Abs(Val(Y1)-Val(Y2))^2)^0.5 MsgBox 距離 End Sub