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

发布网友 发布时间：2022-04-24 03:35

我来回答

共2个回答

热心网友 时间：2023-10-25 07:03

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

热心网友 时间：2023-10-25 07:03

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

热心网友 时间：2023-10-25 07:04

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

热心网友 时间：2023-10-25 07:04

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

热心网友 时间：2023-10-25 07:03

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

热心网友 时间：2023-10-25 07:04

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