VB 如何将整数型数据类型转换成单浮点数据类型

VB使用CSng 函数可将整数型数据类型转换成单精度浮点数据类型巧旁。

CSng 函数示例

本示例使用 CSng 函数将一整型数值转换为 Single。

Private Sub Command1_Click()

    Dim MyInteger As Integer

    Dim MySingle As Single

    MyInteger = 7534

    MySingle = CSng(MyInteger)

    Debug.Print MySingle

    Debug.Print LenB(MyInteger)

    Debug.Print LenB(MySingle)

End Sub

Debug.Print LenB(MyInteger)输出为2，是Integer数据类型的字节数。

Debug.Print LenB(MySingle)输出为衫拿4，是Single数据类型的字节数。或宽搭

Dim a As Double, b As Single

a = 3.1415926

b = a   '直接赋值即可，VB会销卖自动转换的

b = CSng(a)  '如果你不放心滚模，那么也可以这样转亏备逗换

---