Public Class PinYin
    Private Shared a() As String = {"a", "ā", "á", "ǎ", "à"}
    Private Shared o() As String = {"o", "ō", "ó", "ǒ", "ò"}
    Private Shared e() As String = {"e", "ē", "é", "ě", "è"}
    Private Shared i() As String = {"i", "ī", "í", "ǐ", "ì"}
    Private Shared u() As String = {"u", "ū", "ú", "ǔ", "ù"}
    Private Shared v() As String = {"ü", "ǖ", "ǘ", "ǚ", "ǜ"}

    '是否强制转换:如果为真,即将标明声调的数字前的韵母根据标明声调的数字转换为相应的声调
    '如果为假,即根据拼音规则转换
    Private Shared mIsCompelled As Boolean = False
    Public Shared Property IsCompelled() As Boolean
        Get
            Return mIsCompelled
        End Get
        Set(ByVal Value As Boolean)
            mIsCompelled = Value
        End Set
    End Property
    Public Shared PyList As New System.Collections.SortedList()

#Region "拼音列表集合"
    Public Shared Function LoadPyChars() As System.Collections.SortedList
        If PyList.Count > 0 Then Exit Function
        PyList.Add("a", -20319)
        PyList.Add("ai", -20317)
        PyList.Add("an", -20304)
        PyList.Add("ang", -20295)
        PyList.Add("ao", -20292)
        PyList.Add("ba", -20283)
        PyList.Add("bai", -20265)
        PyList.Add("ban", -20257)
        PyList.Add("bang", -20242)
        PyList.Add("bao", -20230)
        PyList.Add("bei", -20051)
        PyList.Add("ben", -20036)
        PyList.Add("beng", -20032)
        PyList.Add("bi", -20026)
        PyList.Add("bian", -20002)
        PyList.Add("biao", -19990)
        PyList.Add("bie", -19986)
        PyList.Add("bin", -19982)
        PyList.Add("bing", -19976)
        PyList.Add("bo", -19805)
        PyList.Add("bu", -19784)
        PyList.Add("ca", -19775)
        PyList.Add("cai", -19774)
        PyLis