如何vb 取小数点后一位的值

答案:5 悬赏:10 手机版

解决时间 2021-11-28 14:51

提问者网友：容嬷嬷拿针来
2021-11-28 05:06

如何vb 取小数点后一位的值

最佳答案

五星知识达人网友：逐風
2021-11-28 05:48

方法1：

先取10倍后小数，再取整，再与10求余数，得到小数点后一位
代码：
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为：" & Str(Int(a * 10) Mod 10), 0, "提示"

方法2：

先将小数用Format转成只有一位小数字符，然后用Right取最后一位字符，得到小数点后一位
代码：
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为：" & Right(Format(a, ".#"), 1), 0, "提示"

方法3：
先将小数放大1倍，再取整数，然后用Right取最后一位字符，得到小数点后一位
代码：
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为：" & Right(Str(Int(a * 10)), 1), 0, "提示"

方法4：
将数先放大10倍，取整，减去取整后放大10倍的数，得到得到小数点后一位的值
代码：
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为：" & Str(Int(a * 10) - Int(a) * 10), 0, "提示"

全部回答

1楼网友：罪歌
2021-11-28 10:36

num=Cint(f * 10) mod 10

2楼网友：梦中风几里
2021-11-28 09:35

num=int(f * 10) mod 10
Cint是不可以的

3楼网友：山有枢
2021-11-28 08:03

先将小数转换成文本，再查小数点的位置，然后用right函数就行了

4楼网友：拾荒鲤
2021-11-28 07:15

dim s as string
x=1123.3123

s=right(format(x,"#.#"),1)
msgbox "第一位小数为," & s

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息