主题：[求助]拼音首字查询，模糊查询

Dim a As String ="张笑,张小,章萧,喜爱"
Dim sz As new List(of String)
For Each g As String In a.Split(",") '添加进 集合 sz
    If sz.Contains(g)=False Then  '判断有无重复
        sz.Add(g)
    End If
Next

Dim zm As String = "zx" '定义要查找的 拼音 首字母
For Each g As String In sz
    If getpy(g,True) = zm Then
        output.show(g)
    End If
Next