输入法继续写之：重码分析~

重码，一直是输入法必须考虑的。。。所以，在这一步。。不得不分析一下。。考虑到重码不可能避免。。。决定只对10个以上重码进行分析与优化。。因为10个以下选择一下还是比较方便的。

一经分析下来，不得不再说说王永民的伟大了。。。五笔重码>10的仅23条，但拼音却的却有495条之多。。

   Dim BM As String, OldBM As String
   Dim CI As String, OldCI As String
   Dim JS As Long
   Dim n As Integer, fg As Integer

       n = 1
       Form5.Show
       Form5.Label1.Caption = "正在分析编码..."
    
       Set rs = ADO.CreateRecordset("SELECT * FROM YS_WN")     'OR YS_PY
     
       While rs.EOF = False
     
         BM = rs.Fields(0)
         CI = rs.Fields(1)
                  
         If BM = OldBM Then
            n = n + 1
         Else
                    
            Open App.Path & "/wn_code.txt" For Append As #1
            
               If OldBM <> "" and n>10 Then
                  Print #1, OldBM; ":"; n
               End If