关于图片分割和亮度识别的有关问题~

关于图片分割和亮度识别的问题~！！！
如何用VB把一张二值化以后的图片分成若干区域，比如分成12*12个矩形，然后识别矩形中的亮度~ 白的多就变成白色，黑的多就变成黑色。
------解决方案--------------------

'假定 lWidth 和 lHeight 为图片大小

Dim xBlock As Long

Dim yBlock As Long

Dim x As Long

Dim y As Long

Dim lBlockWidth As Long

Dim lBlockHeight As Long

Dim lWhite As Long


For xBlock = 1 To lWidth Step 12

    lBlockWidth = IIf(xBlock + 11 <= lWidth, 12, lWidth - xBlock + 1)

    

    For yBlock = 1 To lHeight Step 12

        lBlockHeight = IIf(yBlock + 11 <= lHeight, 12, lHeight - yBlock + 1)

        

        lWhite = 0

        For x = xBlock To xBlock + lBlockWidth - 1

            For y = yBlock To yBlock + lBlockHeight - 1

                lWhite = lWhite + IIf(像素(x, y) = 白色, 1, 0) '<-这里自己替换

            Next

        Next

        

        Debug.Print "(" & xBlock & "," & yBlock & ")", _

                    lBlockWidth & "x" & lBlockHeight, _

                    IIf(lWhite >= (lBlockWidth * lBlockHeight / 2), "白", "黑")

    Next

Next