作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VBA ] 请问一个记忆体配置的观念问题
时间Sun May 6 09:31:26 2007
vb 好像并没有提供计算变数占用记忆体空间的函数，只好自己写
LenB() 可以取得非阵列型态的变数的大小
UBound() 取得阵列索引上限
LenB() * (UBound + 1) 就是整个阵列的大小了
Public Function DblArrLength(ByRef src() As Double) As Long
Dim u As Integer
u = -1: On Error Resume Next: u = UBound(src): On Error GoTo 0
DblArrLength = LenB(src(0)) * (u + 1)
End Function
Public Sub test()
Dim a(3) As Double
a(0) = 9527
a(1) = 65536
a(2) = 77
MsgBox DblArrLength(a), vbInformation
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.224.174
1F：推 icene:感谢版大，终於有人要回答我了 泣! 05/07 23:49