vb,通过公式计算得到一个数值,怎样取到小数点后三位,并且自-查字典问答网

来自江光灵的问题

　　vb,通过公式计算得到一个数值,怎样取到小数点后三位,并且自动四舍五入Dimh,x1,x2,y1,y2AsLongDimoutstr$'自动画线起点和终点的纵坐标都为hy1=hy2=hDimE$,F$'自动画线起点是A终点B,手动画线起点A

　　vb,通过公式计算得到一个数值,怎样取到小数点后三位,并且自动四舍五入

　　Dimh,x1,x2,y1,y2AsLong

　　Dimoutstr$

　　'自动画线起点和终点的纵坐标都为h

　　y1=h

　　y2=h

　　DimE$,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

1回答

2020-06-13 13:31

我要回答

请先登录

毛素娥

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

2020-06-13 13:34:07