问题描述:
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
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
问题解答:
我来补答展开全文阅读