重码，一直是输入法必须考虑的。。。所以，在这一步。。不得不分析一下。。考虑到重码不可能避免。。。决定只对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 Close #1 n = 1 End If OldBM = BM OldCI = CI JS = JS + 1: DoEvents Form5.ProgressBar1.Value = (JS / rs.RecordCount) * 100 rs.MoveNext Wend Form5.Hide Exit Sub
