Function ShuZiChongFu(N) As Boolean
If Len(N) <> 4 Then Exit Function
Dim Reg
Dim MS
Set Reg = CreateObject("VBScript.RegExp")
Reg.Pattern = "(\d)\1{1,}"
ShuZiChongFu = Reg.Test(CStr(N))
Set Reg = Nothing
End Function
调用方法
ShuZiChongFu（8090）
结果 False
ShuZiChongFu（8890）
结果true
ShuZiChongFu（88090）
结果 False
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024