主题：问个问题,

没看到,我看看.

我写得代码只能判断相邻位置的.

mr-725兄的代码不能符合我的要求,和我写得一样.

 

 225 和 522 都可以,但是 252就判断不出了.

Dim s As String ="252"
Dim Values As New List(Of Integer)
For i As Integer = 0 To s.Length-1
    Values.add(s.SubString(i,1))
    Values.Sort
Next
If  Values(0) = Values(1) OrElse Values(1) = Values(2)
    Output.Show("相同的字符是: " & Values(1))
End If

集合有個排序命令Sort

 

九楼就告诉您的就是这个问题，正好工地有事，找甲方项目经理去了，刚回来做完，试试14楼的代码

谢谢,我看看.

数组还可以排序,到没有留意.

小规模的不需要排序也可以的：

 

Dim s As String ="252"
Dim s1 As String
Dim n As Integer = s.Length
For i As Integer = 0 To n-1
    s1 = s.Substring(i,n-1-i)
    If s1.contains(s(i))
        Output.Show("相同的字符是: " & s(i))
        Exit For
    End If
Next

不错,今日学了不少.