vb中怎么把一个数字变成单精度？

CSng 函数
返回表达式，该表达式已被转换为 Single 子类型的 Variant。
CSng(expression)
expression 参数是任意有效的表达式。
说明
通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，在出现货币或整数运算的情况下，使用 CDbl 或 CSng 强制执行双精度或单精度运算。
CSng 函数用于进行从其他数据类型到 Single 子类型的国际公认的格式转换。例如，对十进制分隔符（如千分符）的识别取决于系统的区域设置。
如果 expression 在 Single 子类型允许的范围之外，则发生错误。
下面的示例利用 CSng 函数把值转换为 Single:
Dim MyDouble1, MyDouble2, MySingle1, MySingle2 ' MyDouble1, MyDouble2 是双精度值。
MyDouble1 = 75.3421115: MyDouble2 = 75.3421555
MySingle1 = CSng(MyDouble1) ' MySingle1 包含 75.34211 。
MySingle2 = CSng(MyDouble2) ' MySingle2 包含 75.34216 。

Private Sub Command1_Click()
MsgBox CSng(你的数字)
End Sub

csng()