7,763
社区成员
发帖
与我相关
我的任务
分享为什么会这样
Dim i As Integer
Dim j As Integer
i = (13 / 2)
j = (11 / 2)
结果i=6,j=6
怎么一个进，一个舍呢，同样：15/2=8，17/2=8
如何四舍五入呢
Dim j As Integer
i = (13 / 2)
j = (11 / 2)
结果i=6,j=6
怎么一个进，一个舍呢，同样：15/2=8，17/2=8
如何四舍五入呢
...全文
请发表友善的回复…
发表回复
王伟晔 2003-12-02
- 打赏
- 举报
有没有搞错，怎么学的VB，除和整除是不一样的，不知道吗？要想的到浮点数必须经过浮点强制转换
sillyli 2003-12-02
- 打赏
- 举报
我知道什么叫五成双了
王伟晔，我没想得到浮点数，我就是想得到整数，要得到浮点数四舍五入后的整数，"\"是取整，我不想要舍去所有小数后的整数
王伟晔，我没想得到浮点数，我就是想得到整数，要得到浮点数四舍五入后的整数，"\"是取整，我不想要舍去所有小数后的整数
jpinglee 2003-12-02
- 打赏
- 举报
fix(),int()
王伟晔 2003-12-01
- 打赏
- 举报
11\2
sillyli 2003-12-01
- 打赏
- 举报
SoHo_Andy(冰)
但是如果是
i = (16 / 2 - 0.5)
j = (18 / 2 - 0.5)，还是有问题
我用到的 i=x/y x和y是任意整数
有没有四舍五入的函数呢
northwolves(野性的呼唤)
什么是五成双
但是如果是
i = (16 / 2 - 0.5)
j = (18 / 2 - 0.5)，还是有问题
我用到的 i=x/y x和y是任意整数
有没有四舍五入的函数呢
northwolves(野性的呼唤)
什么是五成双
海牛 2003-12-01
- 打赏
- 举报
同意楼上的。
northwolves 2003-12-01
- 打赏
- 举报
四舍六入五成双
SoHo_Andy 2003-12-01
- 打赏
- 举报
看看
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
i = (15 / 2) + 0.5
j = (17 / 2) + 0.5
MsgBox i & " " & j
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
i = (15 / 2) + 0.5
j = (17 / 2) + 0.5
MsgBox i & " " & j
End Sub
