vb.net 实现高斯滤波中值滤波均值滤波的一种 需求vb.net程序，实现对图像的滤波处理，以上任意一种均可

'中值滤波：

Dim x As Integer, y As Integer, size As Integer = 3, point(8) As Integer

For x = CInt((size - 1) / 2) To CInt(jpgImage.Width - 1 - (size - 1) / 2)

For y = CInt((size - 1) / 2) To CInt(jpgImage.Height - 1 - (size - 1) / 2)

point(0) = jpgImage.GetPixel(x - 1, y - 1).R

point(1) = jpgImage.GetPixel(x - 1, y).R

point(2) = jpgImage.GetPixel(x - 1, y + 1).R

point(3) = jpgImage.GetPixel(x, y - 1).R

point(4) = jpgImage.GetPixel(x, y).R

point(5) = jpgImage.GetPixel(x, y + 1).R

point(6) = jpgImage.GetPixel(x + 1, y - 1).R

point(7) = jpgImage.GetPixel(x + 1, y).R

point(8) = jpgImage.GetPixel(x + 1, y + 1).R

Array.Sort(point)

jpgImage.SetPixel(x, y, Color.FromArgb(point(4), point(4), point(4)))

Next

Next

（1）雨流依次从载荷时间历程的峰值位置的内侧沿着斜坡往下流；（2）雨流从某一个峰值点开始流动，当遇到比其起始峰值更大的峰值时要停止流动；（3）雨流遇到上面流下的雨流时，必须停止流动；

可以告诉你方法：算数平均滤波，就是求出k次采样值的总和，再除以k；中值滤波法，是把k个采样值按照从小到大排列顺序，然后找到位于最中间的那个值；最后一种不知道你们老师的防脉冲是什么意思，猜测可能是去掉k次采样值中大于或小于某个值，剩余值求平均数。

让别人免费给你写程序基本上不可能，这个得花时间和精力。

---