主题：统计集合中元素的个数问题

对应代码

Dim ls As New List(Of Integer)
ls.Add(1)
ls.Add(2)
ls.Add(3)
ls.Add(1)
ls.Add(2)
ls.Add(1)
ls.Add(5)

Dim dis As New Dictionary(Of Integer, Integer)
For Each i As Integer In ls
    If dis.ContainsKey(i) = False Then
        dis.Add(i, 1)
    Else
        dis(i) += 1
    End If
Next

For Each key As Integer In dis.Keys
    output.show(key & ":" & dis(key))
Next

什么意思？直接说，要想实现table的什么功能？

最好有例子说明