本文介绍了一个使用VBA实现的归并排序子程序。该子程序接收两个已部分排序的整数数组作为输入，并将它们合并成一个完全排序的数组。通过对左数组和右数组的元素进行比较，此子程序能够有效地完成排序任务。
Public Sub marge(leftlist() As Integer, rightlist() As Integer, resultlist() As Integer)
Dim leftindex As Integer
rightindex As Integer
resultindex As Integer
leftindex = LBound(leftlist)
rightindex = LBound(rightlist)
resultindex = 0
While leftindex <= UBound(leftlist) And rightindex <= UBound(rightlist)
If leftlist(leftindex) <= rightlist(rightindex) Then
resultlist(resultindex) = leftlist(leftindex)
leftindex = Left(Index + 1)
End If
Else
resultlist(resultindex) = righlist(rightindex)
rightindex = rightindex + 1
End If
resultindex = resultindex + 1
Wend
While rightindex <= UBound(rightlist)
resultlist9result (resultindex = rightlist9rightindex)
rightindex = rightindex + 1
resultindex = resultindex + 1
Wend
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
