主题：问个问题,

  我有三个数字  比如  522 

                            252 

                            225 

 

   我想判断有没有相同的数字,并找出    代码怎么写?

循环我知道的,怎么判断相同呢? 比如 522   22是相同的.

 

Dim s As String ="522"
Dim n As Integer = s.Length
Dim ArrStr(0 To n) As String
For i As Integer = 0 To n
    ArrStr(i) = Mid(s,i+1,1)
    Output.Show(ArrStr(i))
Next

 

我分解成了  5  2  2  那怎么判断 2相同呢?

对的

 

老大,这个怎么写代码?

没看到,我看看.

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

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

 

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

谢谢,我看看.

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

不错,今日学了不少.