VisualFreeBasic代码_数值数据序列

MKShort 从Short变量转换成String的二进制数据，将其长度为2字节

Dim a As Short, b As String
a = 4534
b = MKShort(a)
Print a, CVShort(b)

MKL 从Long变量转换成String的二进制数据，将其长度为4字节

Dim a As Long, b As String
a = 4534
b = MKL(a)
Print a, CVL(b)

MKI 从整数变量到与输入变量的大小相同长度的String的二进制复制

32位软件是 4字节，64位软件是8字节

Dim a As Integer, b As String
a=4534
b=MKI(a)
Print a, CVI(b)

MKLongInt 从LongInt变量转换成String的二进制数据，将其长度为8字节

Dim a As LongInt, b As String
a = 4534
b = MKLongInt(a)
Print a, CVLongInt(b)

MKS 从Single变量转换成String的二进制数据，将其长度为4字节

Dim n As Single, e As String
n = 1.2345
e = MKS(n)
Print n, CVS(e)

MKD 将Double变量转换成String的二进制数据，将其长度为8字节

Dim n As Double, e As String
n = 1.2345
e = MKD(n)
Print n, CVD(e)

CVShort 将一个2个字节String转换为Short整数变量

Dim si As Short, s As String
s = "AB"
si = CVShort(s)

CVL 将Single数或4个字节String转换为整数（Long）变量

Dim l As Long, s As String
s = "ABCD"
l = CVL(s)

CVI 转换成整数，32位软件和64位软件不相同。

Dim i As Integer, s As String
s = "ABCD"
i = CVI(s)

CVLongInt 将Double数或8个字节String转换为LongInt变量

Dim ll As LongInt, s As String
s = "ABCDEFGH"
ll = CVLongInt(ll)

CVS 将32位整数或4个字节String转换为Single变量

Dim f As Single, i As Integer
f = 1.125
i = CVI(f)

CVD 将64位整数或8个字节String转换为Double

Dim d As Double, l As LongInt
d = 1.125
l = CVLongInt(d)
Print Using "l = _&H&"; Hex(l)
Print Using "cvd（i）= &"; CVD(l)