主题：[求助]通过算法检索出相应的手机号码

比如 AAAAA

Dim pattern As String = "([0-9]{1})\1{4}"
Dim str = "13827222227"
Dim reg As new System.Text.RegularExpressions.Regex(pattern)
If reg.Ismatch(str) = True Then
    msgbox("AAAAA")
End If

比如 AABBB

Dim pattern As String = "([0-9]{1})\1{1}([0-9]{1})\2{2}"
Dim str = "13827188999"
Dim reg As new System.Text.RegularExpressions.Regex(pattern)
If reg.Ismatch(str) = True Then
    msgbox("AABBB")
End If