获得VB数组的维数

    在VB中如何获得数组维数，本来是一个简单的问题，但还是有朋友不断问起，为了省事，于是把有关代码片断贴了出来，具体实现过程如下：

 Option Explicit</p> <p>Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (Destination As Any, _<br /> Source As Any, ByVal Length As Long)<br />Private Declare Function VarPtrArray Lib “msvbvm60.dll” Alias “VarPtr” (Var() As Any) As Long</p> <p>Public Function GetArrayDims(pvArray() As Variant) As Long ‘获得数组维数<br /> Dim pArray As Long, ppArray As Long, nDims As Long</p> <p> ppArray = VarPtrArray(pvArray)<br /> CopyMemory pArray, ByVal ppArray, 4<br /> CopyMemory nDims, ByVal pArray, 2</p> <p> GetArrayDims = nDims<br />End Function