VB 删除数组中的重复元素,当几个数组元素的值相等时,只保留第一个元素,其他的元素被删除。并且返回结果数组。 Function Array_unique(Arr As Variant) As Variant For i = 0 To UBound(Arr) Next Array_unique = NewArr Function QuickSort(Arr) For i = 0 To bound - 1 Sub Test() End Sub |
|
来自: franklinfj > 《vb》