以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  问个问题,  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=19067)
--  作者：blackzhu
--  发布时间：2012/4/26 12:50:00
--  问个问题,

  我有三个数字  比如  522 

                            252 

                            225 

 

   我想判断有没有相同的数字,并找出    代码怎么写?
--  作者：mr725
--  发布时间：2012/4/26 12:56:00
--  

循环···
--  作者：blackzhu
--  发布时间：2012/4/26 13:02:00
--  

循环我知道的,怎么判断相同呢? 比如 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相同呢?
--  作者：mr725
--  发布时间：2012/4/26 13:14:00
--  

是判断每组数字里是否有相同的字符？
--  作者：blackzhu
--  发布时间：2012/4/26 13:29:00
--  

对的

 
--  作者：mr725
--  发布时间：2012/4/26 14:44:00
--  
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
--  作者：blackzhu
--  发布时间：2012/4/26 14:46:00
--  
老大,这个怎么写代码?
--  作者：狐狸爸爸
--  发布时间：2012/4/26 14:48:00
--  
mr725兄不是在6楼给出代码了吗？
--  作者：程兴刚
--  发布时间：2012/4/26 15:05:00
--  
6楼的代码是不行的！
--  作者：狐狸爸爸
--  发布时间：2012/4/26 15:08:00
--  
难道我没有搞懂老朱的意思？