If GetValueFromIni(App.Path & "\Settings.ini", "Count", "Number" &  i &
"_Right") = "" Then
           WritePrivateProfileString "Count", CStr("Number" & Mid(TxtChar, i
+ 1, 1) & "_Right"), nCount_Right, App.Path & "\Settings.ini"
        Else
           WritePrivateProfileString "Count", CStr("Number" & Mid(TxtChar, i
+  1, 1) & "_Right"), (nCount_Right + GetValueFromIni(App.Path & "\Settings.ini",
"Count", "Number" & i & "_Right")) * 0.5, App.Path & "\Settings.ini"
        End If
    Next i
End Sub

在写入统计值时，如果Settings.ini不存在该键值，直接写入；否则，读出原来的键
值，跟当前统计值求和再取平均值。在采集样本的时候，可以尽量选择数字倾斜度不大的情
况。
有了统计结果，识别的过程比较简单，为“识别”按钮添加部分代码：

Private Sub CmdResult_Click()
    Call CmdClear_Click  '二值化、除噪
    Dim Result(0 To 3) As Integer
    Dim X As Integer
    Dim Y As Integer
    Dim Ret
    Dim i As Integer
    Dim nCount_Up As Integer
    Dim nCount_Down As Integer
    Dim nCount_Middle As Integer
    Dim nCount_Left As Integer
    Dim nCount_Right As Integer
    '循环扫描完四个字符
    For i = 0 To 3
        nCount_Up = 0     '有用像素点总数初始为0
        nCount_Down = 0