vb,通过公式计算得到一个数值,怎样取到小数点后三位,并且自动四舍五入Dim h,x1,x2,y1,y2 As LongDim o_其他解答

vb,通过公式计算得到一个数值,怎样取到小数点后三位,并且自动四舍五入
Dim h,x1,x2,y1,y2 As Long
Dim outstr$
'自动画线起点和终点的纵坐标都为h
y1 = h
y2 = h
Dim E$,F$ '自动画线起点是A终点B,手动画线起点A'终点B',E是AA'距离,F是BB'距离
E = Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) * (y1 - y11)) / 10000
F = Sqr((x2 - x22) * (x2 - x22) + (y1 - y22) * (y2 - y22)) / 10000

人气：453 ℃　时间：2020-04-11 10:47:05

解答

假设你上面的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")