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

关注

原创最新推荐文章于 2026-03-25 22:16:52 发布 1.2k 阅读 AI 写同款· GEO 优化 ›

实验二线性分组码课程项目实验要求： 1、写出汉明编码基本步骤，画出程序流程图； 2、画出汉明编码输出波形图； 3、汉明码模块发端加错信号进行观测； 4、汉明码模块发端错码检测能力观测和错码纠错性能的测量； 5、分析整理实验测试的数据；立即下载

重码，一直是输入法必须考虑的。。。所以，在这一步。。不得不分析一下。。考虑到重码不可能避免。。。决定只对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

收录于