VisualFreeBasic代码_字符串转换为数字

Val 将字符串转换为浮点数

Dim a As String, b As Double
a = "2.1E+30xa211"
b = Val(a)
Print a, b
输出：2.1E+30xa211   2.1e+030

ValInt 将字符串转换为整数

Dim a As String, b As Integer
a = "20xa211"
b = ValInt(a)
Print a, b
输出：20xa211   20

ValLng 将字符串转换为长整数

Dim a As String, b As LongInt
a = "20xa211"
b = ValLng(a)
Print a, b
输出：20xa211   20

ValUInt 将字符串转换为无符号整数

Dim a As String, b As UInteger
a = "20xa211"
b = ValUInt(a)
Print a, b
输出：20xa211   20

ValULng 将字符串转换为无符号长整数

Dim a As String, b As ULongInt
a = "20xa211"
b = ValULng(a)
Print a, b
输出：20xa211   20