nCount_Middle = 0 nCount_Left = 0 nCount_Right = 0 '扫描18*18 方格 For X = i * 18 To i * 18 + 17 '上部 For Y = 0 To 5 If Picture2.Point(X, Y) = vbBlack Then nCount_Up = nCount_Up + 1 '黑色像素点总数+1 End If Next Y '中部 For Y = 6 To 11 If Picture2.Point(X, Y) = vbBlack Then nCount_Middle = nCount_Middle + 1 '黑色像素 点总数+1 End If Next Y '下部 For Y = 12 To 17 If Picture2.Point(X, Y) = vbBlack Then nCount_Down = nCount_Down + 1 '黑色像素点总数+1 End If Next Y Next X For Y = 0 To 17 '左侧 For X = 0 To 8 If Picture2.Point(X, Y) = vbBlack Then nCount_Left = nCount_Left + 1 '黑色像素点总 数+1 End If Next X '右侧 For X = 9 To 17 If Picture2.Point(X, Y) = vbBlack Then nCount_Right = nCount_Right + 1 '黑色像素点 总数+1 End If Next X Next Y Debug.Print nCount_Up Debug.Print nCount_Middle Debug.Print nCount_Down Debug.Print nCount_Left Debug.Print nCount_Right '比较像素点最接近的点 Dim j As Integer Dim MinVal As Integer Dim Total As Integer MinVal = 1000 For j = 0 To 9 Total = 0 If Abs(nCount_Up - Number_Count_Up(j)) > 6 Then Total = Total + Abs(nCount_Up - Number_Count_Up(j)) * 2 Else _ Total = Total + Abs(nCount_Up - Number_Count_Up(j)) |