我将此方法移植到VB.NET上了,请看源码(二)

ElseIf pyStr.IndexOf(e(0)) >= 0 Then

Chr = pyStr.Chars(pyStr.IndexOf(e(0)))

ElseIf pyStr.IndexOf(i(0)) >= 0 Then

Chr = pyStr.Chars(pyStr.IndexOf(i(0)))

ElseIf pyStr.IndexOf(u(0)) >= 0 Then

Chr = pyStr.Chars(pyStr.IndexOf(u(0)))

ElseIf pyStr.IndexOf(v(0)) >= 0 Then

Chr = pyStr.Chars(pyStr.IndexOf(v(0)))

End If

Return Chr

End Function

@#判断是否为合法的拼音字符

Private Shared Function isPyChar(ByVal chr As Char) As Boolean

Select Case chr

Case "a"c

Return True

Case "o"c

Return True

Case "e"c

Return True

Case "i"c

Return True

Case "u"c

Return True

Case "v"c

Return True

Case Else

Return False

End Select

End Function