VB人脸识别技术 Public Sub picpoint() Dim i, j, k As Integer Dim h(0 To 400, 0 To 400) As Integer '存储像素的灰度值 Dim r As Integer Dim c As Long Dim hd(0 To 300) As Integer Dim p(0 To 300) As Currency '灰度均值 Dim tt(0 To 300) As Long '存储各等级像素个数 Dim u As Long Dim uu(0 To 300) As Long Dim w(0 To 300) As Currency Dim b(0 To 300) As Long Dim max As Long Dim maxb As Integer Dim t As Integer MousePointer = 11 '扫描全图，取得各像素灰度值