如题：
从数组
000
000
234
236
174
654
123
589
478
654
346
589
234
000
457
589
589
中取出现次数为2-3次的

即新数组:

000 234 654

请帮忙！谢谢！

这个也不能实现吗？

ReDim Preserve
这个是保留数组数据的，只改变最后一维的下标，这个知道的，可是还是不会写啊

我这里有统计次数的代码，只是该如何选取呢？

Private Sub Command2_Click()

Dim StrB(999) As String
Dim arn(999) As Integer
Dim totnumber As Integer
Dim StrA() As String

StrA() = Split(RichTextBox1.Text, vbCrLf)

Dim TepAll As String

Dim i As Integer, j As Integer
Do Until i = UBound(StrA)

For j = 0 To 999
If StrB(j) = StrA(i) Then
arn(j) = arn(j) + 1
Exit For
ElseIf StrB(j) = Empty Then
StrB(j) = StrA(i)
arn(j) = 1
totnumber = j
Exit For
End If
Next j
i = i + 1
Loop

For i = 0 To totnumber
TepAll = TepAll & StrB(i) & "出现次数:" & arn(i) & vbCrLf
Next i
RichTextBox2 = TepAll

End Sub

这个不能一棒子打死吧，我在百度，google找遍了也没有，MSDN也看过了，一句话，愿意帮就帮，不愿意也不勉强，就不信你没有求人帮忙的时候，本人只找乐于助人，品德高尚的真高手，说实在的会的写这样的例子用不上两分钟，不会的就难了。如果阁下是真高手，就不会用这么多时间和精力来回复这样的帖子，这样是灌水的另一种表现。见到这样的回帖很遗憾。