易语言 如何 编写类似 四舍五入 功能的子程序 ？？？？

.版本 2
.程序集 窗口程序集1

.子程序 三舍七入
.参数 欲被三舍七入的数值
.参数 被舍入位置

三舍七入？那3和7之间的数字如何处理？
我帮你写了个六舍七入 的 不知道是不是你要的

====================================================================

.版本 2

.子程序 六舍七入, 双精度小数型, , ‘此代码由dengyg36所写！！ 使用方法跟四舍五入方法是一样的 如有不懂看四舍五入使用方法
.参数 欲被六舍七入的数值, 双精度小数型
.参数 被舍入位置, 整数型
.局部变量 结果, 双精度小数型
.局部变量 分割, 文本型, , "0"
.局部变量 n1, 整数型
.局部变量 尾零, 文本型

.判断开始 (被舍入位置 ＞ 0)
.如果 (寻找文本 (到文本 (欲被六舍七入的数值), “.”, , 假) ＝ -1)
结果 ＝ 欲被六舍七入的数值
.否则
分割 ＝ 分割文本 (到文本 (欲被六舍七入的数值), “.”, )
.如果 (到数值 (取文本中间 (分割 [2], 被舍入位置, 1)) ≥ 7)
.如果 (被舍入位置 ＝ 1)
结果 ＝ 到数值 (分割 [1]) ＋ 1
.否则
结果 ＝ 到数值 (分割 [1] ＋ “.” ＋ 到文本 (到数值 (取文本左边 (分割 [2], 被舍入位置 － 1)) ＋ 1))
.如果结束

.否则
结果 ＝ 到数值 (分割 [1] ＋ “.” ＋ 到文本 (到数值 (取文本左边 (分割 [2], 被舍入位置 － 1))))
.如果结束

.如果结束

.判断 (被舍入位置 ＝ 0)
结果 ＝ 取整 (到数值 (数值编辑框.内容))
.判断 (被舍入位置 ＜ 0)
分割 ＝ 分割文本 (到文本 (欲被六舍七入的数值), “.”, )
.如果 (到数值 (取文本中间 (分割 [1], 取文本长度 (分割 [1]) ＋ 被舍入位置 ＋ 1, 1)) ≥ 7)
.计次循环首 (取绝对值 (被舍入位置), n1)
尾零 ＝ 尾零 ＋ “0”
.计次循环尾 ()
结果 ＝ 到数值 (到文本 (到数值 (取文本左边 (分割 [1], 取文本长度 (分割 [1]) ＋ 被舍入位置)) ＋ 1) ＋ 尾零)
.否则
.计次循环首 (取绝对值 (被舍入位置), n1)
尾零 ＝ 尾零 ＋ “0”
.计次循环尾 ()
结果 ＝ 到数值 (到文本 (到数值 (取文本左边 (分割 [1], 取文本长度 (分割 [1]) ＋ 被舍入位置))) ＋ 尾零)
.如果结束

.默认

.判断结束
返回 (结果)

三舍七入？那四到六的值怎么办？

才看清楚，你要“三舍七入”，那四五六怎么办呢