主题：问个问题,

Dim s As String ="2521234565789我们我的"

Dim Values As New List(Of Integer)

Dim s1 As String

For i As Integer = 0 To s.Length-1

    Dim s2 As String = s.SubString(i,1)

    If s.IndexOf(s2) <> s.LastIndexOf(s2)

        s1 = s1 & s2

    End If

Next

Output.Show("相同的字符是: " & s1)

这是另一种思路