大家快来看看，我好像了发现的VB语言的BUG。

[getian]

把下面的语句放到一个空的FROM代码中，大家认为输出的应该是几啊？
Private Type d
a As Byte
b As Long
End Type

Private Sub Form_Load()
Dim d1 As d
Debug.Print LenB(d1)
End Sub
我的机器上输出的居然是8，一个BYTE（1字节）加一个LONG（4字节）居然有8个字节，有谁能解释吗？

[simanh]

哈哈
以为是bug

[fleshboy]

VB就这样

[TimLee✿]

·_·

[grady.lu]

Lenb取得自定义数据类型长度时，以自定义类型中数据基础子类型最长的为标准，然后得到长度。

[yangfanatcsdn]

看看C里的结构struct和联合union类型就更加明白了。

[佛的光辉]

这个结构在内存中就是8个字节

[yuyu2002]

麻烦你先把中文练练好

[itzhiren]

对，是8，不过
Private Type d
a As Byte
End Type

Private Sub Form_Load()
Dim d1 As d
Debug.Print LenB(d1)
End Sub

这样输出的是1
Private Type d
b As Long
End Type

Private Sub Form_Load()
Dim d1 As d
Debug.Print LenB(d1)
End Sub

这样输出的是4

[getian]

什么意思，阁下对认为我没有把意思表达清楚？
我的意思是LENB这个函数内部有BUG，因为这个结构写到文件里确实是占5个字节
而MS的文挡中说LENB可以用来取得自定义数据类型的长度，而这里有明显的错误。

那么应该用什么方法取得正确的自定义数据类型的长度呢？

[kmzs]

没什么问题呀。。

[BearRui]

有len就行

[BearRui]

Private Type d
a As Byte
b As Long
End Type

Private Sub Form_Load()
Dim d1 As d
Debug.Print Len(d1)
End Sub

[sogno]

对齐之后，就是占8个byte嘛，很奇怪吗？

[BearRui]

可能在自定义数据类型中每个元素都是占4个字节的。

如果用LENB的话，自定义数据类型中有N个元素就会返回4*N

[BearRui]

又试了一下，原来是在自定义数据类型中每个元素占的字节是元素最长字节数的N倍。

Private Type d
a As Integer
b As Integer
c As long
End Type
返回12

Private Type d
a As Integer
b As Integer
c As Integer
End Type
返回6

Private Type d
a As Integer
b As Integer
c As String * 12
End Type
这个比较奇怪，返回28