第3章彩色图像处理.pptVIP

3.3.5 图像以渐显方式进入界面 For j = 0 To h - 1 Step 2 For i = 0 To w - 1 Step 2 Picture1.PSet (i, j), RGB(pic(i, j, 0), pic(i, j, 1), pic(i, j, 2)) Next i Next j For j = 1 To h - 1 Step 2 For i = 1 To w - 1 Step 2 Picture1.PSet (i, j), RGB(pic(i, j, 0), pic(i, j, 1), pic(i, j, 2)) Next i Next j For j = 0 To h - 1 Step 2 For i = 1 To w - 1 Step 2 Picture1.PSet (i, j), RGB(pic(i, j, 0), pic(i, j, 1), pic(i, j, 2)) Next i Next j For j = 1 To h - 1 Step 2 For i = 0 To w - 1 Step 2 Picture1.PSet (i, j), RGB(pic(i, j, 0), pic(i,