vb 字符串重复比较问题

Private Sub Form_Click()
Dim pxhf(1 To 6) As String
Dim n As Integer
Dim bFind As Boolean
Dim i, j
pxhf(1) = "abcd"
pxhf(2) = "apca"
pxhf(3) = "apca"
pxhf(4) = "abcd"
pxhf(5) = "apca"
pxhf(6) = "abcd"
Dim arr()
ReDim arr(1 To 2, 1 To 1)
arr(1, 1) = pxhf(1)
arr(2, 1) = 1
n = 1
For i = 2 To 6
bFind = False
For j = 1 To n
If pxhf(i) = arr(1, j) Then
bFind = True
arr(2, j) = arr(2, j) + 1
Exit For
End If
Next j
If Not bFind Then
n = n + 1
ReDim Preserve arr(1 To 2, 1 To n)
arr(1, n) = pxhf(i)
arr(2, n) = 1
End If
Next i
For i = 1 To n
Print "字符串" & arr(1, i) & "重复" & arr(2, i) & "次"
Next i
End Sub

终于理解了你要干什么，但算法还要想想先

就是，要实现什么功能啊？说清楚才好帮你解决啊？