UC知道求VB ListView控件的问题
来源：百度知道 编辑：UC知道 时间：2024/09/21 08:00:43
ListView1.ListItems.Item(2).Text = "7jgf"
…………
ListView1.ListItems.Item(999).Text = "5uj"
ListView1.ListItems.Item(1000).Text = "ahj6"
控件内每个的内容都是随机的，我怎样才能用最简短的代码~~列出重复大于3次的内容都是什么，重复大于2次的内容是什么~
1楼的回答完全不符合要求
2楼的回答代码太多了
'================
2楼的，说实话我写的都比你这个少
你有没有新思路？？一些我不在乎你怎么搞控件~
只要能最快，最短的代码找到重复3个的和重复2个的就可以了~
我也觉得只能遍历，这个代码已经很简练了……
代码并不多啊
……你为什么要代码很少啊？
还有怎么补充和原题不一样了……
是要大于2个和3个的，还是等于2个和3个的？
怎么都要遍历一次吧，还有要最快还是最短？
新建一个工程 添加一个ListView控件，一个CommandButton控件，名称均默认
Option Explicit
Private Sub Command1_Click()
Dim TestR() As String, TestN() As Integer, i As Integer, j As Integer, n As Integer
n = -1
For i = 2 To ListView1.ListItems.Count
For j = 0 To n
If TestR(j) = ListView1.ListItems(i).Text Then
TestN(j) = TestN(j) + 1
Exit For
End If
Next
If j > n Then
n = n + 1
ReDim Preserve TestR(n) As String, TestN(n) As Integer
TestR(n) = ListView1.ListItems(i).Text
TestN(n) = 1
End If
Next
Dim tmpstr As String
For i = 0 To UBound(TestR)
tmpstr = tmpstr + Format(i + 1, "000") + "