主题：数字+英文的　款号自动分析[已解決]

呵呵，估计这样你就理解了：

Dim nm As String = "08476R"
Dim v As String = nm.SubString(nm.Length -2)
If Char.IsLetter(v.Chars(0)) AndAlso Char.IsLetter(v.Chars(1)) Then
    If v.Chars(0) = "e" Then
        output.show(nm & ":exp")
    ElseIf v.Chars(0) = "s" Then
        output.show(nm & "str")
    End If
ElseIf Char.IsDigit(v.Chars(0)) AndAlso Char.IsLetter(v.Chars(1))  Then
    output.show(nm & ":atm")
ElseIf Char.IsLetter(nm.Chars(0)) AndAlso Char.IsLetter(nm.Chars(1)) AndAlso  Char.IsLetter(nm.Chars(2))  Then
    output.show(nm & ":atm")
End If

我原来那样写，只是为了让你一次可以验证各种情况，结果适得其反。