功能:A --> 1,B --> 1,Z --> 26,AA --> 27.......... Private Function GetValue(ByVal str As String) As Int32 Dim cs As Char() = str.ToCharArray() Dim val As Integer = 0 For i As Int16 = 0 To cs.Length - 2 val += 26 * (cs.Length - 1 - i) * (AscW(cs(i)) - 64) Next Return val + AscW(cs(cs.Length - 1)) - 64 End Function