主题：根据联系电话号码，知道是那个城市的

有个电话号码联系表，要根据电话号码知道是那个城市的，想要用下面的代码实现，就是不行，请哪位高手指点一下，谢谢。

 必须用If Else EndIf

 

Dim a As String = "02155556666"
Dim qhs As String = "010,021,0755"
Dim css As String = "北京,上海,深圳"

Dim ary1() As String = qhs.Split(",")
Dim ary2() As String = css.Split(",")
Dim idx As Integer = Array.IndexOf(ary1, a.SubString(0,3))
If idx > -1 Then
    msgbox(ary2(idx))
Else
    idx = Array.IndexOf(ary1, a.SubString(0,4))
    If idx > -1 Then
        msgbox(ary2(idx))
    Else
        msgbox("没有")
    End If
End If

但是if好像要嵌套，而且嵌套的比较多，比较烦，有没有什么好的方法，谢谢

 没有办法，2楼的代码不需要嵌套啊

但是号码很多，需要全部加上面吗，谢谢指点

 如果号码很多，建议弄成一个表来存储，然后查询即可

 

 看这个例子，同样的道理

 

http://www.foxtable.com/help/topics/1459.htm

 

这个和根据身份证自动识别出生地是一样的原理,用一个表储存数据,然后查询对应的数据,这个就是数据库查表原理

给个文件，您这样逐个判断确实太累！

请以后不要做不提交示例文件的懒人，这样是在浪费别人的时间：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:电话属地.table

谢谢