主题：问个问题,

  我有三个数字  比如  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相同呢?

是判断每组数字里是否有相同的字符？

对的

 

Dim s As String ="522"
Dim n0 As Integer = s.Length
For i As Integer = 1 To n0-1
    If s(i) = s(i-1)
    Output.Show("相同的字符是: " & s(i))
    End If
Next

老大,这个怎么写代码?

mr725兄不是在6楼给出代码了吗？

6楼的代码是不行的！

难道我没有搞懂老朱的意思？