VB中最快速的交换两个数组的元素

一个数组A,一个数组B，大小和类型都相同，现在要交换其中对应位置的元素，如何在VB中最快速。

代码如下

Private Declare Function VarPtrArray Lib "msvbvm50" Alias "VarPtr" (Ptr() As Any) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDst As Any,lpSrc As Any,ByVal ByteLength As Long) Private Sub Swap(a() As Long,b() As Long) Dim SafeA As Long,SafeB As Long Dim AddressA As Long,AddressB As Long CopyMemory SafeA,ByVal VarPtrArray(a),4 '得到指向A数组SAFEARRAY指针的指针 CopyMemory SafeB,ByVal VarPtrArray(b),4 '得到指向B数组SAFEARRAY指针的指针 SafeA = SafeA + 12 '偏移12个字节为指向真数组的指针 SafeB = SafeB + 12 CopyMemory AddressA,ByVal SafeA,4 '得到A数组的“真数组”的内存首地址 CopyMemory ByVal SafeA,ByVal SafeB,4 '交换B数组和A数组对应的真数组的内存首地址 CopyMemory ByVal SafeB,AddressA,4 End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!