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

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

方法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, "提示"

num=Cint(f * 10) mod 10

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

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

dim s as string
x=1123.3123

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