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

基本工作都完成了。。。不得不再做做重复编码分析....  因为生平最恨没效率的事，重复的事....  code....

   Dim BM As String, OldBM As String   Dim CI As String, OldCI As String   Dim JS As Long   Dim n As Integer       Form5.Show       Form5.Label1.Caption = "正在分析编码..."           Set rs = ADO.CreateRecordset("SELECT * FROM YS_PY")            While rs.EOF = False              BM = rs.Fields(0)         CI = rs.Fields(1)                           If BM = OldBM Then                     If CI = OldCI Then               n = n + 1               MsgBox "重复的词条：" & CI & " - " & BM            End If                  End If                  OldBM = BM         OldCI = CI                  JS = JS + 1: DoEvents         Form5.ProgressBar1.Value = (JS / rs.RecordCount) * 100                  rs.MoveNext                Wend              Form5.Hide              If n = 0 Then          MsgBox "未发重复的词条！"       Else          MsgBox "共发现" & n & "条重复的词条！"       End If

还好，五笔没有重复的编码，拼音有3条。。。即使只有3条，也必须去除。。。　因为多余的编码和花油一样令人讨厌。。。