vb,通过公式计算得到一个数值,怎样取到小数点后三位,并且自动四舍五入
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:历史作业 时间:2024/08/18 17:11:05
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
![vb,通过公式计算得到一个数值,怎样取到小数点后三位,并且自动四舍五入](/uploads/image/z/1442494-46-4.jpg?t=vb%2C%E9%80%9A%E8%BF%87%E5%85%AC%E5%BC%8F%E8%AE%A1%E7%AE%97%E5%BE%97%E5%88%B0%E4%B8%80%E4%B8%AA%E6%95%B0%E5%80%BC%2C%E6%80%8E%E6%A0%B7%E5%8F%96%E5%88%B0%E5%B0%8F%E6%95%B0%E7%82%B9%E5%90%8E%E4%B8%89%E4%BD%8D%2C%E5%B9%B6%E4%B8%94%E8%87%AA%E5%8A%A8%E5%9B%9B%E8%88%8D%E4%BA%94%E5%85%A5)
假设你上面的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")
【方法一】
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")
vb,通过公式计算得到一个数值,怎样取到小数点后三位,并且自动四舍五入
vb,通过公式计算得到一个数值,怎样取到小数点后三位,并...
vb 数据四舍五入取到小数点后两位
excel表格怎样在公式计算后自动在计算后的数值上保留小数点后两位?
EXCEL 不四舍五入取小数点后三位,再四舍五入取小数点后两位-----跟直接四舍五入取小数点后两位有区别麽?
Excel2010中单元格减少小数点位数数值自动四舍五入,再增加位数后数字保持四舍五入后的不变
在lingo中,怎样让计算过程中只计算小数点后三位,变量值也只要计算到小数点后三位即可
excel四舍五入到个位后,如何让小数点后的数值归零?
C语言中怎样取小数点后两位数字 并且不四舍五入
我打算将EXCEL中某列数值除以一个数,序列填充到后一列中,请问计算公式如何列?并且保留一位小数
计算到小数点后两位数,尾数四舍五入(最终成绩小数点后面有几位)?
标准化评分按百分制计算,最后采用四舍五入取小数点后一位数