vb中数组分组的问题？？？

来源：百度知道 编辑：UC知道 时间：2024/06/07 00:29:26
现有一数组，比如arr={34645，35012，34728，34625，34736，34728，34801，34710，34612，34758}.我想把它分组，前三位数相等的为一组，即：arr1={34645，34625，34612}；arr2={35012}；arr3={34728，34736，34728，34710，34758}，arr4={34801}，请问如何实现？？

Dim myStr As String, myData() As String, myArr(100 To 999) As String, a As Integer
myStr = "34645，35012，34728，34625，34736，34728，34801，34710，34612，34758"
myData = Split(myStr, "，")
For a = 0 To UBound(myData)
myArr(Val(Mid(myData(a), 1, 3))) = myArr(Val(Mid(myData(a), 1, 3))) & myData(a) & "，"
Next
For a = 100 To 999
If myArr(a) <> "" Then Print myArr(a)
Next