vb,透過公式計算得到一個數值，怎樣取到小數點後三位，並...

設你上面的E值要取三位小數點：

【方法一】

E = Round(Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11)) / 10000,3)

【方法二】

E = Format(Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11)) / 10000,"0.000")

顯示三位小數點的作用是，一般主要用於顯示的時候才用，中間過程沒必要使用的。上面的兩個方法其實也是沒必要的，因為它是中間過程，這裡只是給你看而已。真正使用時如下（假如要在文字框text1顯示E值給使用者看）：

【方法一】

Text1.text= Round(Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11)) / 10000,3)

或Text1.text=Round(E,3)

【方法二】

Text1.text== Format(Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11)) / 10000,"0.000")

或Text1.text=Format(E,"0.000")