请教个进位的算法。

link1130 2012-08-19 03:34:51
就跟小数进位一样
要的结果如下
52---50
55---60
55.2---60
45---50
44---40
...全文
83 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
舉杯邀明月 2012-08-19
  • 打赏
  • 举报
回复
a = ((int(a)+5)\10)*10
c_cyd2008 2012-08-19
  • 打赏
  • 举报
回复
四舍五入到十位?
除以10加0.5取整再乘10,百位千位类似
示例:
Dim a As Single
a = 52.5
Debug.Print Int(a / 10 + 0.5) * 10

7,765

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧